+- 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ığı: Sürekli Formda Yazılacak Verinin Otomatik Olarak Gelmesi (/konu-surekli-formda-yazilacak-verinin-otomatik-olarak-gelmesi.html)
Sürekli Formda Yazılacak Verinin Otomatik Olarak Gelmesi - mmert06 - 19/04/2019
Merhaba. Sürekli formda bir satırdaki alana girdiğimiz veriyi, bir alt satırda tekrar girmeye çalıştığımızda otomatik olarak alana yazılmasını (örneğin yukarıdaki alana Access yazdık alt satıra geçtik ve alana ac yazdığımız anda otomatik olarak Access yazılsın) nasıl sağlayabiliriz?
Merhaba. Sürekli formda bir satırdaki alana girdiğimiz veriyi, bir alt satırda tekrar girmeye çalıştığımızda otomatik olarak alana yazılmasını (örneğin yukarıdaki alana Access yazdık alt satıra geçtik ve alana ac yazdığımız anda otomatik olarak Access yazılsın) nasıl sağlayabiliriz?
Merhaba. Sürekli formda bir satırdaki alana girdiğimiz veriyi, bir alt satırda tekrar girmeye çalıştığımızda otomatik olarak alana yazılmasını (örneğin yukarıdaki alana Access yazdık alt satıra geçtik ve alana ac yazdığımız anda otomatik olarak Access yazılsın) nasıl sağlayabiliriz?
Cvp: Sürekli Formda Yazılacak Verinin Otomatik Olarak Gelmesi - berduş - 19/04/2019
tablonuzda otomatik sayı alanı var mı?
eğer varsa aşağıdakine benzer bir kod işinizi görebilir
id=otomatik sayı alanınız
tablo2=çalıştığınız tablonun adı
Sira.Text=üstten değer almasını istediğiniz alan
kusura bakmayın yazmayı unutmuşum değiştiğinde olayına yazılacak
Private Sub Sira_Change()
Dim maxid, txtSec As Integer
Dim txtDeger As String
maxid = DMax("id", "tablo2", "id<" & Me.id)
txtDeger = Dlookup ("sira", "tablo2", "id=" & maxid)
txtSec = Len(Me.Sira.Text)
If (Not IsNull(Me.Sira.Text)) And Me.Sira.Text <> "" And InStr(1, txtDeger, Me.Sira.Text) > 0 Then
Me.Sira.Text = txtDeger
Me.Sira.SelStart = txtSec
Me.Sira.SelLength = Len(txtDeger) - txtSec
End If
End SubCvp: Sürekli Formda Yazılacak Verinin Otomatik Olarak Gelmesi - mmert06 - 19/04/2019
Teşekkürler Haliliyas bey