Button to open form and link IDs

[dniezby]

So I want to create a pop-up form where my user clicks a button, it opens the form and it's linked to the record they're currently on.



My code is opening the form but it's not linking the two records.

For example, let's say I have a "notes" table. I want all notes to be linked to the specific record. I could just create a subform but it's not as asthetic as I want the form to be. So, I wanted to open up a beautiful form to enter notes.

In the popup form, the for has these controls : ContactID, Subject, Message

Here is the code I tried in the button click:

Private Sub Notes_Click()

CurRec = Me.ID.Value


DoCmd.OpenForm "SMS Activity", , , "ContactID =" & CurRec


End Sub

I know I'm an idiot so I won't feel bad if you laugh at my own code. LOL. Relearning VBA

[aytee111]

Nothing is glaringly wrong with this. The issue is either in the value you are passing - did you check that the value is correct prior to opening the form? Or else that field doesn't not exist on the form you are trying to open, something in the record source? Or there is an OnLoad event that is changing it?

[dniezby]

Nothing is glaringly wrong with this. The issue is either in the value you are passing - did you check that the value is correct prior to opening the form? Or else that field doesn't not exist on the form you are trying to open, something in the record source? Or there is an OnLoad event that is changing it?

No, this is why I'm baffled. It looks like it should be passing record ID of the form I'm currently on to the pop up form.

Wonder if I can do it directly without creating the variable. I.E. : DoCmd.OpenForm "SMS Activity",,,"ContactID=" & Me.ID

[aytee111]

Yes, you don't need the middle-man there. Do you know how to debug code? Put a stop on the openform and see exactly what value you are passing.

[dniezby]

Yes, you don't need the middle-man there. Do you know how to debug code? Put a stop on the openform and see exactly what value you are passing.

I just know that if there is an error it will open the debugger and highlight errors in yellow. Lol.


Sent from my iPhone using Tapatalk

[aytee111]

Put a stop on the openform line - click on the margin to the left of the line and it will put a dot there. Then when the code executes it will stop there and wait for you. At that point, hold your mouse over the ID and it will show you what value is in that field. Then either stop the code, let it continue (f5) or go line by line (f8).

[dniezby]

Put a stop on the openform line - click on the margin to the left of the line and it will put a dot there. Then when the code executes it will stop there and wait for you. At that point, hold your mouse over the ID and it will show you what value is in that field. Then either stop the code, let it continue (f5) or go line by line (f8).

Okay, first - Thanks for showing me how to do that.

Second, I have this line of code now in the OnClick event:

DoCmd.OpenForm "SMS Activity",,,"ContactID=" & Me.ID

Using the Stop, I hover over the Me.ID and it DOES give me the appropriate ID of the record I'm on when I click the button. It does NOT enter that ID into the pop-up form in the ContactID control.

Maybe I need to make it "ContactID.value=" ??

[Missinglinq]

Are you talking about/do any of these scenarios ever occur:

1. Being on an existing Record, in the primary Form, and going to an existing Record in the secondary Form?
2. Being on an existing Record, in the primary Form, and going the secondary Form that doesn't currently have an existing, matching Record?
3. Being on a New Record, in the primary Form, and going to a New Record in the secondary Form?

Also, is ContactID defined as a Number Datatype or as a Text Datatype?

Linq ;0)>

[aytee111]

What you have discovered so far - you are opening a form with a filter and the filter is correct. So now move on to the next step - the actual opening of the form, that is where the problem lies. Either in the record source, that that field does not exist, or something else is going on as that form opens.

[dniezby]

Maybe my issue is that I'm expecting it to open the form with the ContactID already entered? Will it update after the record is saved so I won't physically see the ID updated until after the record is saved??

[dniezby]

Are you talking about/do any of these scenarios ever occur:

1. Being on an existing Record, in the primary Form, and going to an existing Record in the secondary Form?
2. Being on an existing Record, in the primary Form, and going the secondary Form that doesn't currently have an existing, matching Record?
3. Being on a New Record, in the primary Form, and going to a New Record in the secondary Form?

Also, is ContactID defined as a Number Datatype or as a Text Datatype?

Linq ;0)>

Option 2 is what I'm doing.

It's a contact form. Then there is a button on the contact form that opens the pop-up form that has three fields.
ContactID
Subject
Message

Each entry will be a new record for that contact. The pop-up will ONLY create new entries.

[aytee111]

Filters only work on existing records.

[dniezby]

Maybe my issue is that I'm expecting it to open the form with the ContactID already entered? Will it update after the record is saved so I won't physically see the ID updated until after the record is saved??

Nope, this wasn't the issue. LOL. It just assigned a 0 to every ContactID

What you have discovered so far - you are opening a form with a filter and the filter is correct. So now move on to the next step - the actual opening of the form, that is where the problem lies. Either in the record source, that that field does not exist, or something else is going on as that form opens.

I have no code at all in this pop-up form. So I don't know what's happening to the variable as it's passed to the opening form.

[aytee111]

If you have no code when the form opens, how are you ensuring that only new records are added?

[Missinglinq]

For Option #2 here's an example...I believe I've got your names correct:

In the Primary Form:

Private Sub Notes_Click()

 If Nz(Me.ID,"") <> "" Then
  DoCmd.OpenForm "SMS Activity", , , , , , Me.ID
 Else
  MsgBox "The ID Field Must Be Entered First!"
 End If

End Sub

In the Secondary Form:

Private Sub Form_Load()

    DoCmd.GoToRecord , , acNewRec
    
    If Nz(Me.OpenArgs,"") <> "" Then
      Me.ContactID = Me.OpenArgs
    End If

End Sub

Linq ;0)>