Private Sub AL_KITAP_AfterUpdate()
Dim tur As String
tur = Me.AL_KITAP.Column(1)
If tur = "" Then
Me.TURU.Visible = False
Else
Me.TURU.Visible = True
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub
Private Sub Form_Current()
On Error Resume Next
Dim tur As String
tur = Me.AL_KITAP.Column(1)
If tur = "" Then
Me.TURU.Visible = False
Else
Me.TURU.Visible = True
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub
şeklinde değiştirdim.örnek ektedir.
kolay gelsin