Formdaki Rownum([Form]) İle Ekrana Gelen Sıra Noyu Tabloya Yazdırmak

Formdaki Rownum([Form]) İle Ekrana Gelen Sıra Noyu Tabloya Yazdırmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdaki Rownum([Form]) İle Ekrana Gelen Sıra Noyu Tabloya Yazdırmak (/konu-formdaki-rownum-form-ile-ekrana-gelen-sira-noyu-tabloya-yazdirmak.html)

Sayfalar: 1 2 3 4

RE: Formdaki Rownum([Form]) İle Ekrana Gelen Sıra Noyu Tabloya Yazdırmak - Subco - 27/04/2021

(27/04/2021, 14:43)berduş yazdı: Kodu hangi forma eklediniz?

Alt form olan Frm_Mat_Out_Det ye ekledim.

alt formda ki (Mat_Queue_No) alanina yazdigim Rownun([Form]) u kaldirarak gercek alani olan Mat_Queue_No yi control source e atadim.

Ilginiz icin cok tesekkur ederiz

Saygilar

RE: Formdaki Rownum([Form]) İle Ekrana Gelen Sıra Noyu Tabloya Yazdırmak - berduş - 27/04/2021

dilerim işinize yarar
kayıt sidikten sonra çalışan kod

Private Sub Form_AfterDelConfirm(Status As Integer)

SqlGuncelle = "UPDATE Tbl_WH_Out_Det SET Tbl_WH_Out_Det.Mat_Queue_No = DCount('*','[Tbl_WH_Out_Det]','[WHOMRI]=' & [WHOMRI] & ' and [WHORI]<=' & [WHORI])" & _

              "WHERE ((Tbl_WH_Out_Det.WHOMRI)=" & Me.WHOMRI & ");"



CurrentDb.Execute SqlGuncelle

me.requery '<==çalışmada eklenmemiş kod

End Sub

kayıt ekledikten sonra çalışan kod



Private Sub Form_AfterInsert()

SqlGuncelle = "UPDATE Tbl_WH_Out_Det SET Tbl_WH_Out_Det.Mat_Queue_No = DCount('*','[Tbl_WH_Out_Det]','[WHOMRI]=' & [WHOMRI] & ' and [WHORI]<=' & [WHORI])" & _

              "WHERE ((Tbl_WH_Out_Det.WHOMRI)=" & Me.WHOMRI & ");"



CurrentDb.Execute SqlGuncelle

End Sub

silme ya da ekleme işleminden sonra F5 yaparsanız anında günceller
yada yukardaki kodlar me.requery eklenebilir

RE: Formdaki Rownum([Form]) İle Ekrana Gelen Sıra Noyu Tabloya Yazdırmak - Subco - 28/04/2021

(27/04/2021, 16:19)berduş yazdı: dilerim işinize yarar
kayıt sidikten sonra çalışan kod

Private Sub Form_AfterDelConfirm(Status As Integer)

SqlGuncelle = "UPDATE Tbl_WH_Out_Det SET Tbl_WH_Out_Det.Mat_Queue_No = DCount('*','[Tbl_WH_Out_Det]','[WHOMRI]=' & [WHOMRI] & ' and [WHORI]<=' & [WHORI])" & _

              "WHERE ((Tbl_WH_Out_Det.WHOMRI)=" & Me.WHOMRI & ");"



CurrentDb.Execute SqlGuncelle

me.requery '<==çalışmada eklenmemiş kod

End Sub

kayıt ekledikten sonra çalışan kod



Private Sub Form_AfterInsert()

SqlGuncelle = "UPDATE Tbl_WH_Out_Det SET Tbl_WH_Out_Det.Mat_Queue_No = DCount('*','[Tbl_WH_Out_Det]','[WHOMRI]=' & [WHOMRI] & ' and [WHORI]<=' & [WHORI])" & _

              "WHERE ((Tbl_WH_Out_Det.WHOMRI)=" & Me.WHOMRI & ");"



CurrentDb.Execute SqlGuncelle

End Sub

silme ya da ekleme işleminden sonra F5 yaparsanız anında günceller
yada yukardaki kodlar me.requery eklenebilir

Cok tesekkur ederim Halil Bey, Istedigimiz gibi olmus.
Daha once ki mesajlarimda da belirtttigim alt forma focuslanma ile ilgili yardimci olabilrmisiniz. Yada bir baska arkadas yardimci olabilir mi.

Herkese Saygilar,

RE: Formdaki Rownum([Form]) İle Ekrana Gelen Sıra Noyu Tabloya Yazdırmak - berduş - 28/04/2021

neden altformu altbilgi(footer) kısmına almışsınız? ana gövdeye alıp sekme dizini=7 yapmanız yeterli

ayrıca her farklı soru için yeni konu açmaya özen gösterelim.

RE: Formdaki Rownum([Form]) İle Ekrana Gelen Sıra Noyu Tabloya Yazdırmak - Subco - 28/04/2021

(28/04/2021, 09:51)berduş yazdı: neden altformu altbilgi(footer) kısmına almışsınız? ana gövdeye alıp sekme dizini=7 yapmanız yeterli

ayrıca her farklı soru için yeni konu açmaya özen gösterelim.

Tesekkur ederiz Halil Bey,

yapilan hatalarimiz icin cahillik diyebiliriz.

Benim ogrenmek istedigim Setfocus un vb code ile calismasini ogrenmekti.

Saygilar,

RE: Formdaki Rownum([Form]) İle Ekrana Gelen Sıra Noyu Tabloya Yazdırmak - berduş - 28/04/2021

kodla Note çıkış olayı

Private Sub NOTE_Exit(Cancel As Integer)

Me.Frm_Mat_Out_Det.SetFocus

End Sub

sorun çözüldüyse cevaplanmışlara taşıyalım?