Private Sub Form_Open(Cancel As Int

[b31luv]

I use this code in a different Dbase and it works fine. I use it in my new Dbase and it doesnt't perform. What am I doing wrong? I went through the references and made sure they both had the same references checked and in the same priority. I've looked code over word by word, and letter by letter. I just can't see anything wrong with it. The crazy thing is that it worked about a week ago, now it just opens and doesn't pass the information. I put in 2 message boxes so that I could track whether or not it is doing anything, and neither one of my message boxes show on the screen.

Private Sub Form_Open(Cancel As Integer) 'BSP
On Error GoTo Err_Form_Open

Dim bolOpen As Boolean

bolOpen = CurrentProject.AllForms("Form - Table - Tracking Log - Find Job Numbers&quot.IsLoaded

If (bolOpen) Then ' Checks to see if the Submittal Info form is opened.
MsgBox "Opened", vbCritical 'If the form is opened then the information in Text 42, 44 and 46 is passed on
With Forms![Form - Table - Tracking Log - Find Job Numbers]
Me.Text4 = Forms![Form - Table - Tracking Log - Find Job Numbers]!Text42
Me.Text6 = Forms![Form - Table - Tracking Log - Find Job Numbers]!Text46
Me.Text8 = Forms![Form - Table - Tracking Log - Find Job Numbers]!Text44
End With
Else
MsgBox "Closed", vbCritical
'DoCmd.OpenForm "Form - Table - Tracking Log - Find Job Numbers", acNormal

End If

Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open

End Sub