Forum Discussion

Upaliwije's avatar
Upaliwije
Copper Contributor
Jan 09, 2024

VBA Program

Hi Friends  I am new to this forum and this is my first post. Please bear with me If I make a mistake . I have developed a small VBA program with two forms Main from and addProduct form . In this V...
community
Ashokmca's avatar
Ashokmca
Copper Contributor
Jan 09, 2024
Try the following idea:
'Main form
Private Sub cmdProductform_Click()
On Error GoTo Err_cmdProductform_Click

Dim stDocName As String
Dim stLinkCriteria As String

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

Exit_cmdProductform_Click:
Exit Sub

Err_cmdProductform_Click:
MsgBox Err.Description
Resume Exit_cmdProductform_Click

End Sub

'Product form
Private Sub cmdCloseMe_Click()
On Error GoTo Err_cmdCloseMe_Click


If Me.Dirty Then Me.Dirty = False
DoCmd.Close

Exit_cmdCloseMe_Click:
Exit Sub

Err_cmdCloseMe_Click:
MsgBox Err.Description
Resume Exit_cmdCloseMe_Click

End Sub
  • Upaliwije's avatar
    Upaliwije
    Copper Contributor
    Jan 14, 2024
    Thanks For your reply . I get below msg when I run the code pls
    " Compile Error Variable not Defined"
    'Main form
    Private Sub cmdProductform_Click()
    On Error GoTo Err_cmdProductform_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

    Exit_cmdProductform_Click:
    Exit Sub

    Err_cmdProductform_Click:
    MsgBox Err.Description
    Resume Exit_cmdProductform_Click

    End Sub

Resources