Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Not finding the form that's open. Umbane?

Status
Not open for further replies.
katiekat

katiekat

Technical User
Jun 6, 2000
300
US
Code: 
Private Sub open_address_form_Click()
On Error GoTo Err_open_address_form_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "BusinessAddress"
    If DLookup("[company_id]", "[businessaddress]=", "[company_id]=" & Forms![BusinessInformation]![Company_ID]) Then
    
    strlinkcriteria = "[company_id]= forms![BusinessInformation]![company_id]"
    
    DoCmd.OpenForm stDocName, , , strlinkcriteria
    DoCmd.Requery
    
    Else
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OpenForm stDocName, , , , acFormAdd, , Me![Company_ID]
    

Exit_open_address_form_Click:
    Exit Sub

Err_open_address_form_Click:
    MsgBox Err.Description
    Resume Exit_open_address_form_Click
    
End If
End Sub

It's telling me that it can't find the form "BusinessInformation" I have tried everything to change it so the thing will recognize it. The only think I can think, (other than I screwed the code) is that it doesn't like that it's open. But that doesn't make sense! I hope someone can help. I am just doing this all wrong.
 
Sort by date Sort by votes
Oh yeah, this is code for a button to open a form from another form. When this happens either it finds info that is already there, or it fills in the company Id for you so you don't have to do it.

just in case anyone was wondering.

Thanks lovely people that help me!
 
Upvote 0 Downvote
If you are opening the address form from the business information form, try replacing Forms![BusinessInformation]![Company_ID] with me.company_id

Mike Rohde
rohdem@marshallengines.com
 
Upvote 0 Downvote
Also, is company_id declared as number or text?

Mike Rohde
rohdem@marshallengines.com
 
Upvote 0 Downvote
I have been remiss in checking here! Darn! You probably aren't looking anymore, but the ID is text.

Here's this. My main problem right now is that it thinks that it can't find the form form that I am opening the other form from. yikes! That was confusing! I hope it made sense....

Code: 
Private Sub Command66_Click()
    
    Dim strlinkcriteria As String
    Dim stdocname As String
    stdocname = "businessaddress"
    
    If DLookup("[company id]", "[businessaddress]", "[company id]=" & Forms![businessinformation]![Company ID]) Then
    strlinkcriteria = "[company id]=forms![businessinformation]![company id]"
    DoCmd.OpenForm stdocname, , , strlinkcriteria
    DoCmd.Requery
    
    Else
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.OpenForm stdocname, , , , acAdd, , Me![Company ID]
End If

End Sub
 
Upvote 0 Downvote
I'm a little confused as to how you are determining if information already exists.....you have a dlookup statement in your if clause, but there is no comparison, i.e.

if dlookup = something then
do something
end if

Shouldn't you check to see if the dlookup is null??

If Not IsNull(DLookup("[company id]", "[businessaddress]", "[company id]=" & Forms![businessinformation]![Company ID])) Then
strlinkcriteria = "[company id]=forms![businessinformation]![company id]"
DoCmd.OpenForm stdocname, , , strlinkcriteria
DoCmd.Requery

Else
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm stdocname, , , , acAdd, , Me![Company ID]
End If

Mike Rohde
rohdem@marshallengines.com
 
Upvote 0 Downvote
Thoughts...

businessaddress should not be in brackets as it is a table vs a field.

Or am I wrong???


Mary :eek:)
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Kennelbloke
  • Locked
  • Solved
Subform not updating in parent form
Replies
10
Views
938
Kennelbloke
Kennelbloke
TrekBiker
  • Locked
  • Question
Form Data Not Updating
Replies
6
Views
748
dhookom
dhookom
BJZeak
  • Locked
  • Question
Struggling with finding an answer to a simple question
Replies
5
Views
695
BJZeak
BJZeak
TrekBiker
  • Locked
  • Question
Forcing Form Updates
Replies
2
Views
578
TrekBiker
TrekBiker
renigar
  • Locked
  • Question
Trying to add hyperlinks to pdfs through form entry
Replies
0
Views
507
renigar
renigar

Part and Inventory Search

Sponsor

Back
Top