Solved Open form to spesific record or add it (1 Viewer)

[npa3000]

Well, I have my order form and a button which it should open us the invoice form for this spesific order, if exists or add new record (invoice data)

How can i combine these two functions?

 

[Isaac]

One idea would be to use the same (order form), but either open it acFormAdd or else open not as acFormAdd and with openargs (or set recordsource immediately after opening to that ID #)

 

[Ranman256]

put an unbound 'find' box in your form that shows all data.
when user enters the Order# , it filters to the record. If not there, click the ADD NEW button on the record selector.

sub txtBox_afterupdate()
if isNull(txtBox) then
   me.filterOn = false
else
   me.filter = "[OrderNum]='" & txtBox & "'"
   me.filterOn = true
endif
end sub

 

[bastanu]

Maybe something like this:

Dim boOrderExists As Boolean

boOrderExists = IIf(DCount("*", "[tblOrders]", "[OrderID]='" & Me.OrderID) = 0, False, True)

If boOrderExists Then
    DoCmd.OpenForm "frmYourOrderForm", , , "[OrderID]=" & Me.OrderID
Else
    DoCmd.OpenForm "frmYourOrderForm", , , , acFormAdd
End If

 

[arnelgp]

using OpenArgs to set the Invoice recordset.