"Add new record" Form

[cos]

How can i make a form open, with the default correct foreign key from a previous form, so that i can enter a new record?

i tried the "Open form" macro, and set "where condition" to equal the foreign key

( [ShopID]=[Forms]![FRM_Shop]![ShopID] )​

and that didn't seem to work..

any ideas fellers?

 

[John Big Booty]

Check out the OpenArgs portion of the OpenForm method.

 

[John Big Booty]

Here's a sample that demonstrates the principal. Check out the comments in the various Events.

 

[cos]

not really helping to be honest with you =(

 

[John Big Booty]

Did you have a look at the On Dbl Click event of Combo2 on FRM-Records and the On Load event of FRM_Items?

 

[cos]

there must be some easier way of accomplishing this for example via a macro? im no good with this code stuff =/

 

[cos]

your code isn't working.. maybe its because yours involves a combo box, where as mine involves a button which just opens the form (which should be blank, ready for a new record with the correct foreign key in place)...

so how can i fix this?

 

[John Big Booty]

If it's through a combo or a command button the principal is still the same.

You use the OpenArgs portion of the OpenForm method to pass information to the form being opened. This form then checks the OpenArgs in it's On Load event.

 

[cos]

i got this:

Private Sub Command23_Click()

Dim lngcombo2 As Long
Dim strOpenArgs As String

strOpenArgs = Me.Command23
lngcombo2 = Me![Command23]
Me.Command23 = Null


DoCmd.OpenForm "FRM_ShopContactsAdd", , , , , acDialog, "New#" & strOpenArgs
Me.Command23.Requery


End Sub

and i got Run-time error: 438
i tried doing it as you told meh, yet it still dislikes it..

 

[John Big Booty]

Try;

Private Sub Command23_Click()

Dim strOpenArgs As String

strOpenArgs = Me.YourIDFieldName

DoCmd.OpenForm "FRM_ShopContactsAdd", , , , , acDialog, "New#" & strOpenArgs

End Sub

 

[cos]

nop... still opens a record which already exists.. i need for it to open a blank form =(

 

[John Big Booty]

What code do you have in the On Load event of the form that is being opened?

 

[cos]

this macro atm..

 

[John Big Booty]

You need to interrogate the OpenArgs :banghead:

 

[cos]

so what do i need to do?

 

[John Big Booty]

Dude, it's all in the sample I posted up there in Post #3. I've directed you to the salient portions of the code, which is all explained in the comments (that's the green bits of code), from there you will need to have a play with the code and find out what happens as you make changes. You comments and code would seem to indicate that you have spent little to no time doing any of the things I have suggested.

P.S. I don't deal in Macros.