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
