Adding 2 Scripts together!

B

Bob

Normally I click "ModifyHoldingInvoice" Double click the horse and up comes
the Invoice to use, But Now I have a horse list on my "Main" is it possible
to double click the horse from here, below is the 2 scripts I usally use to
get Invoice up!

So now I would like to double click the horse selected from Main



Private Sub cmdModifyIntermediateInvoice_Click()

DoCmd.Close acForm, "frmModify"

DoCmd.OpenForm "frmModify", , , , , , "ModifyHoldingInvoice"

End Sub

---------------------------------------------------------------------------------

Private Sub lstModify_DblClick(Cancel As Integer)

Select Case Me.OpenArgs

Case "ModifyOldInvoice"

If lstModify.value = "" Or IsNull(lstModify.value) Then

MsgBox "Please Select Owner.", vbApplicationModal + vbOKOnly
+ vbInformation

Else

DoCmd.OpenForm "frmInvoice", , , , , , "ModifyOldInvoice"

End If



Case "ModifyHoldingInvoice"

If lstModify.value = "" Or IsNull(lstModify.value) Then

MsgBox "Please Select Horse.", vbApplicationModal + vbOKOnly
+ vbInformation

Else

DoCmd.OpenForm "frmInvoice", , , , , ,
"ModifyHoldingInvoice"

End If



Case Else

If lstModify.value = "" Or IsNull(lstModify.value) Then

MsgBox "Please Select OwnerName.", vbApplicationModal +
vbOKOnly + vbInformation

Else

DoCmd.OpenForm "frmInvoice", , , , , , "ModifyOldInvoice"

End If



End Select

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Closing PDF file from Excel VBA (Adobe Reader, Adobe Acrobat, Browser) 0
Open In Snap Shot Format? 1
Intresting Visible problem 0
Intellisoft Problem! 7
Using a Check Box as a Condition 4
Date Warning MsgBox 2
Emailing Question from my DB 2
Scroll Records! 0

Top