Sayın hocam; kodlarınız kusursuz çalışıyor. Ama ben çok zorlanıyorum ve bu şekilde zar zor bişeyler öğreniyorum. Şimdi açılır kutuyu çerçeve ile ilişkilendirip açılır kutudaki seçime göre kişi bilgilerini metin kutusuna aktarmam gerek. Sizde haklı olarak çabala diyeceksiniz. Çabalayım lakin nerden tutacağımı bilmiyorum.

if Me.cercevegorus = 1 Then

Dim strSQL As String

strSQL = "SELECT * FROM tbl_ogretmen WHERE Kimlik =" & Me.ackisi.Column(0) & ""

Set rs = CreateObject("ADODB.Recordset")

rs.CursorType = adOpenKeyset

rs.LockType = adLockOptimistic

rs.Open strSQL, CurrentProject.Connection

     

If Not rs.BOF Then

Me.txtad = rs("ogretmenadısoyadi")

Me.txtbrans = rs("bransi")







End If

rs.Close

Set rs = Nothing

End If

If Me.cercevegorus = 2 Then

Dim strSQL1 As String

strSQL1 = "SELECT * FROM tbl_rehberogretmen WHERE Kimlik =" & Me.ackisi.Column(0) & ""



Set rs = CreateObject("ADODB.Recordset")

rs.CursorType = adOpenKeyset

rs.LockType = adLockOptimistic

rs.Open strSQL1, CurrentProject.Connection

      

If Not rs.BOF Then

Me.txtad = rs("ogretmenadısoyadi")

Me.txtbrans = rs("bransi")



End If

rs.Close

Set rs = Nothing

End If

Hocam Bu şekilde çözdüm

))
iyi çalışmalar