URGENT help required (1 Viewer)

i need to annotate these for my software, but i have never used vb. please help me out. i need it by tomorow. my teacher is of no help
' when search by product id is Click
Private Sub search_productid_Click() ‘declare sub
On Error GoTo search_productid_Click_Err
DoCmd.OpenQuery "Search by Product ID", acViewNormal, acEdit ‘opens query in normal view
search_productid_Click_Exit:
Exit Sub ‘ends block of code

search_productid_Click_Err:
MsgBox Error$
Resume search_productid_Click_Exit

End Sub

' when search by purchase date is click

Private Sub search_pdate_Click()
On Error GoTo search_pdate_Click_Err

DoCmd.OpenQuery "search by purchase date", acViewNormal, acEdit


search_pdate_Click_Exit:
Exit Sub

search_pdate_Click_Err:
MsgBox Error$
Resume search_pdate_Click_Exit

End Sub


'------------------------------------------------------------
' search_pid_Click
'
'------------------------------------------------------------
Private Sub search_pid_Click()
On Error GoTo search_pid_Click_Err

DoCmd.OpenQuery "Search By Purchase ID", acViewNormal, acEdit


search_pid_Click_Exit:
Exit Sub

search_pid_Click_Err:
MsgBox Error$
Resume search_pid_Click_Exit

End Sub



' search_reciept_Click
Private Sub search_reciept_Click()
On Error GoTo search_reciept_Click_Err

DoCmd.OpenQuery "Search By Reciept No", acViewNormal, acEdit


search_reciept_Click_Exit:
Exit Sub

search_reciept_Click_Err:
MsgBox Error$
Resume search_reciept_Click_Exit

End Sub

' search_Sdate_Click
Private Sub search_Sdate_Click()
On Error GoTo search_Sdate_Click_Err

DoCmd.OpenQuery "search by selling date", acViewNormal, acEdit

search_Sdate_Click_Exit:
Exit Sub

search_Sdate_Click_Err:
MsgBox Error$
Resume search_Sdate_Click_Exit

End Sub


'------------------------------------------------------------
' search_sid_Click
'
'------------------------------------------------------------
Private Sub search_sid_Click()
On Error GoTo search_sid_Click_Err

DoCmd.OpenQuery "Search by Supplier ID", acViewNormal, acEdit


search_sid_Click_Exit:
Exit Sub

search_sid_Click_Err:
MsgBox Error$
Resume search_sid_Click_Exit

End Sub


'------------------------------------------------------------
' search_by_sname_Click
'
'------------------------------------------------------------
Private Sub search_by_sname_Click()
On Error GoTo search_by_sname_Click_Err

DoCmd.OpenQuery "Search by Supplier Name", acViewNormal, acEdit


search_by_sname_Click_Exit:
Exit Sub

search_by_sname_Click_Err:
MsgBox Error$
Resume search_by_sname_Click_Exit

End Sub


'------------------------------------------------------------
' close_queryform_Click
'
'------------------------------------------------------------
Private Sub close_queryform_Click()
On Error GoTo close_queryform_Click_Err

DoCmd.Close , ""


close_queryform_Click_Exit:
Exit Sub

close_queryform_Click_Err:
MsgBox Error$
Resume close_queryform_Click_Exit

End Sub


'------------------------------------------------------------
' search_by_grn_Click
'
'------------------------------------------------------------
Private Sub search_by_grn_Click()
On Error GoTo search_by_grn_Click_Err

DoCmd.OpenQuery "Search By GRN Number", acViewNormal, acEdit


search_by_grn_Click_Exit:
Exit Sub

search_by_grn_Click_Err:
MsgBox Error$
Resume search_by_grn_Click_Exit

End Sub

Private Sub Form_Current() ‘declares sub
On Error GoTo Form_Current_Err
TempVars.Add "CurrentItemNumber", "[ItemNumber]"

Form_Current_Exit: ‘closes form
Exit Sub



Form_Current_Err: ‘opens an error message
MsgBox Error$
Resume Form_Current_Exit
End Sub

' Opens a form
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Form_Open_Err
TempVars.Add "SwitchboardID", "DLookUp(""SwitchboardID"",""Switchboard Items"",""[ItemNumber] = 0 AND [Argument] = 'Default'"")"
DoCmd.SetProperty "Label1", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.SetProperty "Label2", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.Requery ""

Form_Open_Exit:
Exit Sub

Form_Open_Err:
MsgBox Error$
Resume Form_Open_Exit

End Sub




'Click on add new sales details button
Private Sub Option1_Click()
On Error GoTo Option1_Click_Err
On Error GoTo 0
If (Command = 1) Then
TempVars.Add "SwitchboardID", "[Argument]"
DoCmd.SetProperty "Label1", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.SetProperty "Label2", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.Requery ""
Exit Sub
End If
If (Command = 2) Then
DoCmd.OpenForm Argument, acNormal, "", "", acAdd, acNormal
Exit Sub
End If
If (Command = 3) Then
DoCmd.OpenForm Argument, acNormal, "", "", , acNormal
Exit Sub
End If
If (Command = 4) Then
DoCmd.OpenReport Argument, acViewReport, "", "", acNormal
Exit Sub
End If
If (Command = 5) Then
DoCmd.RunCommand acCmdSwitchboardManager
TempVars.Add "SwitchboardID", "DLookUp(""SwitchboardID"",""Switchboard Items"",""[ItemNumber] = 0 AND [Argument] = 'Default'"")"
DoCmd.SetProperty "Label1", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.SetProperty "Label2", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.Requery ""
Exit Sub
End If
If (Command = 6) Then
DoCmd.CloseDatabase
Exit Sub
End If
If (Command = 7) Then
DoCmd.RunMacro Argument, , ""
Exit Sub
End If
If (Command = 8) Then
Call Argument & "()"
Exit Sub
End If
Beep
MsgBox "Unknown option.", vbOKOnly, ""

Option1_Click_Exit:
Exit Sub

Option1_Click_Err:
MsgBox Error$
Resume Option1_Click_Exit

End Sub

' OptionLabel1_Click
Private Sub OptionLabel1_Click()
On Error GoTo OptionLabel1_Click_Err

On Error GoTo 0
If (Command = 1) Then
TempVars.Add "SwitchboardID", "[Argument]"
DoCmd.SetProperty "Label1", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.SetProperty "Label2", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.Requery ""
Exit Sub
End If
If (Command = 2) Then
DoCmd.OpenForm Argument, acNormal, "", "", acAdd, acNormal
Exit Sub
End If
If (Command = 3) Then
DoCmd.OpenForm Argument, acNormal, "", "", , acNormal
Exit Sub
End If
If (Command = 4) Then
DoCmd.OpenReport Argument, acViewReport, "", "", acNormal
Exit Sub
End If
If (Command = 5) Then
DoCmd.RunCommand acCmdSwitchboardManager
TempVars.Add "SwitchboardID", "DLookUp(""SwitchboardID"",""Switchboard Items"",""[ItemNumber] = 0 AND [Argument] = 'Default'"")"
DoCmd.SetProperty "Label1", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.SetProperty "Label2", acPropertyCaption, DLookup("ItemText", "Switchboard Items", "[SwitchboardID] = " & TempVars("SwitchboardID"))
DoCmd.Requery ""
Exit Sub
End If
If (Command = 6) Then
DoCmd.CloseDatabase
Exit Sub
End If
If (Command = 7) Then
DoCmd.RunMacro Argument, , ""
Exit Sub
End If
If (Command = 8) Then
Call Argument & "()"
Exit Sub
End If
Beep
MsgBox "Unknown option.", vbOKOnly, ""
OptionLabel1_Click_Exit:
Exit Sub

OptionLabel1_Click_Err:
MsgBox Error$
Resume OptionLabel1_Click_Exit

End Sub

Haven't got time to do all of them but this will get you started

thankyou mate. if possible please, help me out with the rest too. assignment due tomorrow

sorry -no time, you'll have to work late tonight

i have a economics paper due tomow too !

please help me outtt!

Hello usrarasoool, Could you please refrain from Double posting ??

Not being rude, but everyone on this Forum is helping out from their own time and no one is paid to do this. We can help you get going, but expecting someone to do the work for you is not appreciated.. Some users do go over and beyond to help others.. But not everyone will do that..

Please appreciate the input that CJ_London has provided so far, and do your homework.. IF you want someone to do the work for you this FORUM is not the right place to ask..