Option Compare Database
Option Explicit
Dim L As Long
Dim lbarlnth As Long
Dim boolChange As Boolean
Const Steplth = 30
Private Sub Form_Open(Cancel As Integer)
Me.Etiket24.Visible = False
DoCmd.Hourglass True
If LinkTables Then
DoCmd.OpenForm "frmkullanicigiris"
DoCmd.GoToControl "kullanici"
Else
Cancel = True
DoCmd.Quit
End If
DoCmd.Hourglass False
End Sub
Function LinkTables()
On Error GoTo LinkTables_Err: