Option Compare Database

Private Sub Form_Close()
Me.TextBox1 = ""
Me.TextBox2 = ""
End Sub

Private Sub Liste1_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[SIRANO] = " & str(Nz(Me![Liste1], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub TextBox1_Enter()
Me.TextBox2 = ""
TextBox2.Requery
End Sub

Private Sub TextBox1_Updated(Code As Integer)
Liste1.Requery
End Sub

Private Sub TextBox2_Enter()
Me.TextBox1 = ""
TextBox1.Requery
End Sub

Private Sub TextBox2_Updated(Code As Integer)
Liste1.Requery
End Sub
Private Sub Komut30_Click()
Me.TextBox1 = ""
TextBox1.Requery
Me.TextBox2 = ""
TextBox2.Requery
DoCmd.Quit

Exit_Komut30_Click:

Exit Sub


End Sub

Hangi satir hata veriyor? (renkleniyor)

İlginize teşekkürler...

Private Sub TextBox1_Enter()
Me.TextBox2 = "" veya

Me.TextBox1 = ""

Form uzerinde ki TextBox1 ve 2 metin kutulari Activex nesnesi olarak 64bit ile olusturulmus ise 32bit bilgisayarda hata verebilir. Kodlar ile tam olarak eylemi anlayamadim.
Ornek VT konuya eklemeniz halinde daha fazla yardi alabilirsiniz.

Dosyayı ekledim.

text1,2 activex formu oldugundan hata vermekte, metin dosyasina cevirmek gerekir.
  relaxim_telefon.rar (Boyut: 112,95 KB / İndirilme: 98)