<<
Private Sub Form_Load()
Dim warndate As Date
Dim validdate As Date
Dim trandate As Date
trandate = DLookup("dayenddate", "tbl_dayend", "dayend=true")
warndate = DLookup("paymentdate", "tbl_paid", "active=true")
validdate = DLookup("validdate", "tbl_paid", "active=true")
Dim ctlsales As String
Dim ctlreports As String
Dim ctlinventory As String
Dim ctlpurchase As String
Dim ctlstock As String
ctlsales = DLookup("sales", "logintable", "username='" & txtuser & "'")
ctlreports = DLookup("reports", "logintable", "username='" & txtuser & "'")
ctlpurchase = DLookup("purchase", "logintable", "username='" & txtuser & "'")
ctlstock = DLookup("stock", "logintable", "username='" & txtuser & "'")
ctlinventory = DLookup("inventory", "logintable", "username='" & txtuser & "'")
If ([trandate] > [warndate] And [trandate] < [validdate]) Then
DoCmd.OpenForm "Frm_amc_warn"
If (ctlsales = True) Then
TABMENU.Pages(0).Enabled = True
Else
TABMENU.Pages(0).Enabled = False
End If
If (ctlreports = True) Then
TABMENU.Pages(3).Enabled = True
Else
TABMENU.Pages(3).Enabled = False
End If
If (ctlstock = True) Then
TABMENU.Pages(1).Enabled = True
Else
TABMENU.Pages(1).Enabled = False
End If
If (ctlpurchase = True) Then
TABMENU.Pages(2).Enabled = True
Else
TABMENU.Pages(2).Enabled = False
End If
If (ctlinventory = True) Then
TABMENU.Pages(4).Enabled = True
Else
TABMENU.Pages(4).Enabled = False
End If
txtslmob.SetFocus
ElseIf ([trandate] > [validdate]) Then
MsgBox "Couldn't Open Menu...Contact Developer", vbCritical
TABMENU.Pages(0).Enabled = False
TABMENU.Pages(1).Enabled = False
TABMENU.Pages(2).Enabled = False
TABMENU.Pages(4).Enabled = False
Else
If (ctlsales = True) Then
TABMENU.Pages(0).Enabled = True
Else
TABMENU.Pages(0).Enabled = False
End If
If (ctlreports = True) Then
TABMENU.Pages(3).Enabled = True
Else
TABMENU.Pages(3).Enabled = False
End If
If (ctlstock = True) Then
TABMENU.Pages(1).Enabled = True
Else
TABMENU.Pages(1).Enabled = False
End If
If (ctlpurchase = True) Then
TABMENU.Pages(2).Enabled = True
Else
TABMENU.Pages(2).Enabled = False
End If
If (ctlinventory = True) Then
TABMENU.Pages(4).Enabled = True
Else
TABMENU.Pages(4).Enabled = False
End If
txtslmob.SetFocus
End If
Dim del10 As String
Dim del20 As String
Dim del30 As String
Dim del40 As String
del10 = "delete from temp_sales_item"
del20 = "delete from temp_payment"
del30 = "delete from temp_sale_adv_data"
del40 = "delete from temp_sale_sr_data"
DoCmd.RunSQL del10
DoCmd.RunSQL del20
DoCmd.RunSQL del30
DoCmd.RunSQL del40
Temp_Sales_Item_subform.Requery
Temp_payment_subform11.Requery
Temp_Sale_Adv_Data_subform.Requery
Temp_Sale_Sr_Data_subform.Requery
CMDSLADD.Enabled = False
CMDSLSAVE.Enabled = False
End Sub
>>