Skip to main content

AccessTr.neT


Seçenek Kutusuyla Birleşik Kutunun Satır Kaynağını Değiştirmek.

Seçenek Kutusuyla Birleşik Kutunun Satır Kaynağını Değiştirmek.

#20
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ümImg-grin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Seçenek Kutusuyla Birleşik Kutunun Satır Kaynağını Değiştirmek. - Yazar: SeferŞANLI - 30/12/2019, 00:34
Task