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

One of the nice things about vb is that if your objects and variables are appropriately named, it's pretty well self-documenting, which is the case with your code, plus, there are already additional (mostly redundant) notes added, so I'm not sure what it is you need. The first two subroutines could be cleaned up to look more like the others, but what are you needing otherwise?

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

In the other thread CJ_London has helped you to get started.

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 and do your homework.. IF you want someone to do the work for you this FORUM is not the right place to ask..