Form Load problem

  • Thread starter Thread starter Bob Vance
  • Start date Start date
B

Bob Vance

The problem is that I create my invoice/record from frmMain my main page but
to update my Invoice I have to do it from frmModifyClientinvoice, Is there a
way to code ot so if the first part fails it will move to the 2nd part?

recInvoice.Open "SELECT * FROM tblInvoice where InvoiceID=" &
Forms!frmMain!subfrmModifyInvoiceClient.Form!lstModify.value _
, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
subShowInvoiceValues
subShowInvoiceDetailValues

recInvoice.Open "SELECT * FROM tblInvoice where InvoiceID=" &
Form_frmModifyInvoiceClient.lstModify.value _
, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
subShowInvoiceValues
subShowInvoiceDetailValues


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


If CurrentProject.AllForms("frmActiveHorses").IsLoaded = True Then
cbOwnerName.value = Form_frmActiveHorses.cboClient.value

If CurrentProject.AllForms("frmMain").IsLoaded = True Then
cbOwnerName.value = Form_frmMain.cboClient.value
 
Bob Vance said:
The problem is that I create my invoice/record from frmMain my main page
but to update my Invoice I have to do it from frmModifyClientinvoice, Is
there a way to code ot so if the first part fails it will move to the 2nd
part?

recInvoice.Open "SELECT * FROM tblInvoice where InvoiceID=" &
Forms!frmMain!subfrmModifyInvoiceClient.Form!lstModify.value _
, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
subShowInvoiceValues
subShowInvoiceDetailValues

recInvoice.Open "SELECT * FROM tblInvoice where InvoiceID=" &
Form_frmModifyInvoiceClient.lstModify.value _
, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
subShowInvoiceValues
subShowInvoiceDetailValues


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


If CurrentProject.AllForms("frmActiveHorses").IsLoaded = True Then
cbOwnerName.value = Form_frmActiveHorses.cboClient.value

If CurrentProject.AllForms("frmMain").IsLoaded = True Then
cbOwnerName.value = Form_frmMain.cboClient.value
Click to expand...
 
Back
Top