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
Seçenek Kutusuyla Birleşik Kutunun Satır Kaynağını Değiştirmek.
Konuyu Okuyanlar: 1 Ziyaretçi