populate textbox on new form with choice of combo on other form

[accesstos]

You're welcome!

I recommend replacing the Macros of your project with VBA procedures.


For example, for the btnContactEdit of the sfrm_contactlijst form, the code could be as follows:

Private Sub btnContactEdit_Click()
    If IsNull(Me.IDContact) Then
        Beep
    Else
        DoCmd.OpenForm "sfrm_contactedit", , , "IdContact=" & Me.IDContact, , acDialog
        Me.Requery
    End If
End Sub

[chriscla]

Thanks for the advice. I was planning to do so, since I noticed that code gives more opportunities to customize things.

I you allow we to take advantage of your expertise: I've been trying to translate what you've coded for the 'notities' form to the sfrm_contactnieuw form, but there is no combo box depending on the populated tekst box from the main form.
What do I need to change to have the prospects name autofilled in on the sfmr_contactnieuw form?

best regards
Chris

[accesstos]

Hi Cris!

Surely, your application has plenty of room for development and optimization, but, for this moment...
add the proccedure below in the code module of the frm_fiche:

Public Sub AddSomething(ByVal strAddTo As String)
        With Me
        If IsNull(.Id) Then
            MsgBox "Please select a prospect.", vbInformation, Me.Caption
            .cboZoekProspect.SetFocus
        Else
            DoCmd.OpenForm strAddTo, acNormal, , , acFormAdd, acDialog, .Id
            Me.Requery
        End If
    End With
End Sub

For the Click event of the Nieuwe contactpersoon "button" give this code:

Me.Parent.AddSomething "sfrm_contactnieuw"

of Nieuwe notitie give this:

Me.Parent.AddSomething "sfrm_notitieNieuw"

and for Nieuwe offerte this:

Me.Parent.AddSomething "sfrm_offerteNieuw"

As you can see, at the last three expressions, changing only the name of the form that you want to open.

From the pop-up forms side, you can use the passed prospect ID as folows:

For sfrm_contactnieuw:

Private Sub Form_Load()
    Me.c_rel_id = CLng(Me.OpenArgs)
End Sub

and for sfrm_offerteNieuw:

Private Sub Form_Load()
    Me.cmb_relatie = CLng(Me.OpenArgs)
End Sub

Cheers,
John

[chriscla]

Hi John

Thanks for your help again.
I know there is a lot of room for improvement, but then I'll have to grow above my actual novice skills.

Regarding your last solution, I noticed that after filling in a new prospect contact, when closing the popup form, the data are no longer those of the frm_fiche of the prospect that was selected, ie after adding a new contact to prospect 1 the frm_fiche is no longer that of prospect 1 after closing the sfrm_contactnieuw form.

Any suggestions?

Thanks
Chris

[accesstos]

Hi John

Thanks for your help again.
I know there is a lot of room for improvement, but then I'll have to grow above my actual novice skills.

You're welcome!
Self-improvement is a good reason to live.

Regarding your last solution, I noticed that after filling in a new prospect contact, when closing the popup form, the data are no longer those of the frm_fiche of the prospect that was selected, ie after adding a new contact to prospect 1 the frm_fiche is no longer that of prospect 1 after closing the sfrm_contactnieuw form.

Any suggestions?

Thanks
Chris

Remove the line Me.Requery from the Sub AddSomething() and add it afrer each Me.Parent.AddSomething "..."

For example:

Private Sub Bijschrift22_Click()
    Me.Parent.AddSomething "sfrm_contactnieuw"
    Me.Requery
End Sub

Cheers,
john

[chriscla]

Hi John

Many thanks again. If everything were as simple as you make it look .

Cheers
Chris