Items automatically selected in combo box on data entry form

[mike02]

Hello,



This is my set up:

I have a Master Form, Which I will select the client, and the Product. then i can veiw a bunch of different data from the tables.. now on this form i have add Account details....

This opens a data entry form for account details...

In the ClientID, and ProductID for this table I have combo boxes set up... (I can see a text name instead of number).

I currently have these combo boxes search on what i have selected in the MasterForm...It only shows me that option... What i want it to do, is automatically select them.. that way i dont have to select them each time. As well as how can i set it up that it doesnt automatically update the form for a new entry unless i click a button i have set up as Save and Close.

Thanks,

[June7]

Don't understand. You want data entry form to open filtered by criteria entered on Master Form? Why not use form/subform arrangement?

Records entered on a bound form with bound controls are committed to table when moving to another record, close form, or run code. Once data is entered into a new record row, the only way to not commit the record is to undo the entries.

[mike02]

I have this master form set up to veiw data, and edit etc. But when i need to Execute a new entry. I click a button which opens a form..

currently the combo boxes filter from the Master form, but how can i get that to be the value it selects without input it as a new entry until i click the button.. The reason is i still want to be able to veiw my data in tables as i enter new data, and this allows my to do so.. It is much easier to input in form over the table...

[June7]

You have master form in continous or datasheet view so all records are viewable? You might find this of interest http://www.fmsinc.com/MicrosoftAcces...edSubforms.asp

Otherwise, use code to load data from the master form. Perhaps in the data entry form Open event.

If Me.NewRecord Then
Me.fieldname = Forms!mainform.fieldname
End If

Allowing option to cancel the entry is trickier. Maybe: Docmd.RunCommand acCmdUndo

Might want to disable the X close button.

[mike02]

Is there a way set up a close button... Closes the form, and promts the user to save or not to save?

Im thinking some sort of IF

IE.

If Me.FormName = Dirty Then
Promt Save

Else

Docmd.RunCommand acCmdUndo
Docmd.Close "FormName"

EndIF

[June7]

That might work. I have tried Undo but couldn't get it to work right and resorted to Sendkeys "{ESC} {ESC}" - but it has been a while, maybe I should visit code again.

[mike02]

I used this and got it to work! thanks for your help!

If Me.Dirty Then
   If MsgBox("Do you want to save?", VbYesNo + VbQuestion, _
       "Save Record") = VbNo then 
     Me.Undo
   End IF
End IF