Using popup form to add entries into a subform

[Stephenson]

Hello all,I'm trying to develop a form to display my vendors general information as well as a list of all of the contacts. I would like to use a popup form to add new contacts to the list of current contacts on my main form. I have a form, frmVendor, sfrmContact and frmContact. sfrmContact is a a continuous subform on frmVendor. On frmVendor I have command button, cmdAddContact that I would like to call my form, frmContact. I'm using the following code for this event.

Private Sub cmdAddContact_Click()        DoCmd.OpenForm "frmContact", , , "VendorID = " & Me!tboVendorID ,acFormAdd          Me.sfrmContact.RequeryEnd Sub

My first problem is that this code does not open up fmrContact to the correct VendorID if I use acFormAdd. If I quote this out I am able to open to the correct ID, but on the current record and when I advance to a new record it goes to a new ID. Is there a way to open this form to the correct ID as well as a new record?My second problem is getting sfrmContact to show the new record once frmContact is closed. Is there a more effective way to do this beyond my current attempt? Thank you for having a look. I appreciate any feedback you may have. John

[pbaldy]

If the popup form will always be opened from the same form, you can make the default value property of the vendor refer to the form that opens it. If not, there are other ways around it.

The requery should work, but the contact form would need to be opened in dialog mode so the requery doesn't happen until it closes. Or, do the requery from the close event of the popup form.

[Stephenson]

Paul,

Thank you for the quick response. My plan was to use the popup form in a similar fashion with another form. It would be easy however to make a copy of it and rename it however. I will play around with the default value, it never hurts to learn something new.

I was intentionally keeping the requery event in the main form because I intend to use this form in conjunction with another form. I will make the popup open in dialog mode and see what happens.

Could you point me in the direction of what to do if I don't keep the default value changed and use this form elsewhere as well?

Thank you for your help,

John

[pbaldy]

You can pass the value in OpenArgs and use that in the current event to set the value on the form, testing to make sure it's a new record:

If Me.NewRecord Then
  Me.TextboxName = Me.OpenArgs
End If

[Stephenson]

Thank you for the idea.

Here's what I'm working with now.

Private Sub cmdAddContact_Click()    DoCmd.OpenForm "frmContact", , , , acFormAdd, acDialog, tboVendorID.Value
    Me.sfrmContact.Requery
End Sub

And

Private Sub Form_Load(Cancel As Integer)    If Me.NewRecord Then
        Me.tboVenID = Me.OpenArgs
    End If
End Sub

I'm still not having any luck. The doesn't requery either.

I'll keep trying.

Thank you.

[pbaldy]

I mentioned the current event, though the load event might work for the first one. Can you attach the db here?

[Stephenson]

Here she is.

I will try it on the current event. Honestly I didn't catch that at first.

Thank you for the help.

[Stephenson]

Paul,

I've only made a few tests, but it looks like your help got it up and working.

I really appreciate your help once again.

Have a great night,

John

[pbaldy]

Right off, there are all kinds of compile errors in this. Add this:

http://www.baldyweb.com/OptionExplicit.htm

to every module, then hit Debug/Compile and fix each error (until the compile doesn't return any errors).

[pbaldy]

Ah, I was typing and didn't see you got it working. I'd still fix those errors. For example this has 2:

     If .CurrentRecord = 1 Then
        Form.cmdBack.Enabled = False
    DoCmd.GoToRecord , , acPrevious

An If with no End If, and no With block defined.

[Stephenson]

I appreciate you looking Paul. I have set my DB to require variable deceleration. Looks like I have some debugging to do.

Thanks again,

John

[pbaldy]

No problem John. Post back if there are any you can't figure out.