View Single Post
  #3 (permalink)  
Old July 12th, 2005, 10:38 PM
Astro Astro is offline
Authorized User
 
Join Date: Jul 2005
Location: , , .
Posts: 40
Thanks: 0
Thanked 0 Times in 0 Posts
Default

thank you Raghavendra_Mudugal, i've checked out the link already. it's just as im looking for and i appreciate that alot. im having problem extracting the codes to fit into the form i have already created.

--------------------------------
Option Compare Database

Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "NewProject"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command2_Click:
    Exit Sub

Err_Command2_Click:
    MsgBox Err.Description
    Resume Exit_Command2_Click

End Sub
Private Sub Command3_Click()
On Error GoTo Err_Command3_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Form2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command3_Click:
    Exit Sub

Err_Command3_Click:
    MsgBox Err.Description
    Resume Exit_Command3_Click

End Sub

Private Sub Detail_Click()

End Sub

Private Sub Label0_Click()

End Sub
--------------------------------

the codes you have shown me are to be applied to Command2_Click().

getting a hang of this now.

thanks again Raghavendra_Mudugal.
:)

Reply With Quote