AccessTr.neT

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?

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 Sub

Teşekkürler Haliliyas bey