Subform opens new form that gets its info from the main form. *yuck!*

[danbo]

Happy to help! I do have the "will code for beer" sign, so I'll take you up on that beer when you get to Nevada.

Damnit, I spoke too soon. I didn't think about the fact that before i ran a macro that would take you to an existing record if one was there and in it's place I'm running an event proceedure on click and can no longer run the macro. Now, even if I want to look at an old record it opens based on the proceedure, new record.

[pbaldy]

I don't use macros, but this type of logic should handle both cases (presumes it's a numeric field):

If IsNumeric(Me.Text12) Then
  'Open form to existing record
Else
  'Open to a new record and copy
End If

Here's the code equivalent of the macro to open the form to that record:

BaldyWeb wherecondition

[danbo]

I don't use macros, but this type of logic should handle both cases (presumes it's a numeric field):

If IsNumeric(Me.Text12) Then
  'Open form to existing record
Else
  'Open to a new record and copy
End If

Here's the code equivalent of the macro to open the form to that record:

BaldyWeb wherecondition

That looks like a macro, right? how do I combine that with the current code I have on the "click" command.
Can you give an example using my current code?
Private Sub Text12_Click()
DoCmd.OpenForm "Call Details", acNormal, , , acFormAdd
Forms![Call Details].txtCID = Forms![Call history data]!navigationsubform.Form!ID
Forms![Call Details].txtphone = Forms![Call history data]!navigationsubform.Form![phone home].Column(1)

[pbaldy]

No, that's VBA code, not a macro (though the two are often confused). Your existing code would go in the Else clause. The single DoCmd.OpenForm line from my link would go in the first part. Along the lines of:

If IsNumeric(Me.Text12) Then 
  DoCmd.OpenForm "Call Details", acNormal, , "IDFieldName = " & Me.Text12
Else 
  DoCmd.OpenForm "Call Details", acNormal, , , acFormAdd
  Forms![Call Details].txtCID = Forms![Call history data]!navigationsubform.Form!ID
  Forms![Call Details].txtphone = Forms![Call history data]!navigationsubform.Form![phone home].Column(1) 
End If

[danbo]

No, that's VBA code, not a macro (though the two are often confused). Your existing code would go in the Else clause. The single DoCmd.OpenForm line from my link would go in the first part. Along the lines of:

If IsNumeric(Me.Text12) Then 
  DoCmd.OpenForm "Call Details", acNormal, , "IDFieldName = " & Me.Text12
Else 
  DoCmd.OpenForm "Call Details", acNormal, , , acFormAdd
  Forms![Call Details].txtCID = Forms![Call history data]!navigationsubform.Form!ID
  Forms![Call Details].txtphone = Forms![Call history data]!navigationsubform.Form![phone home].Column(1) 
End If

Sorry I took so long to get back to you. I was writting a letter to the White House asking that they set a day aside to honor you as a HERO! Thanks again sooooo much. And I'm in Nevada often. I won't forget this. Thank you thank you thank you.

Oh, and THANK YOU!

[pbaldy]

LOL! I'm glad we got it working for you.