sync two forms

[oriondcv]

Hi im using MS Access 2000 for my project im tying to have a form that will ask users to input like a ticket number if not found it will go to another form. But the scenario is that the one inputted by the user (which is not found) will be like copied over to the form.

So far this is what I have:

Private Sub Hero_Click()
On Error GoTo Err_Kalabit2
    Dim strStudentRef_2 As String
    Dim strSearch_2 As String
    Dim newcustid As Long
 
 
 
 
    If IsNull(Me![txtSearchUser]) Or (Me![txtSearchUser]) = "" Then
        MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"
        Me![txtSearchUser].SetFocus
 
    Exit Sub
    End If
 
    DoCmd.ShowAllRecords
    DoCmd.GoToControl ("SC_Ticket_Number")
 
    DoCmd.FindRecord Me!txtSearchUser
 
    SC_Ticket_Number.SetFocus
    strStudentRef_2 = SC_Ticket_Number.Text
 
    txtSearchUser.SetFocus
    strSearch_2 = txtSearchUser.Text
 
 
If strSearch_2 = SC_Ticket_Number Then
 
     MsgBox "Match Found For: " & strSearch_2, , "Please type in another incident ticket number."
     SC_Ticket_Number.SetFocus
 
     txtSearchUser = ""
 
Else
        MsgBox "Match Not Found For: " & strSearch_2 & " - You may proceed to TQC using this ticket number."
        txtSearchUser.SetFocus
 
        newcustid = Forms!TQC_IMG_IMG!cboSC_Ticket.Value
 
        'Forms![TQC_IMG_IMG]![cboSC_Ticket] = txtSearchUser.Text
        'Forms("MainFormName").[frmSubFrmName].Form.[Fieldname]
        Forms("TQC_IMG_IMG").[frmIMG_SearchTicket].Forms.[txtSearchUser]
 
       DoCmd.Close acForm, "frmIMG_SearchTicket"
       DoCmd.GoToRecord acdataforn, "TQC_IMG_IMG", acNewRec
       Forms![frmIMG_SearchTicket]!txtSearchUser.Value = newcustid
       Forms![TQC_IMG_IMG].[cboSC_Ticket].SetFocus
 
 
  End If
 
 
Exit_Kalabit2:
    Exit Sub
 
Err_Kalabit2:
    MsgBox Err.Description
    Resume Exit_Kalabit2
End Sub

Pls help me so the value will go to the next form :)

Thanks in advance

[Scott Price]

What happens when you try to run this code as you have posted it?

One problem I see just on a quick scan is that you are referring to a form in line 48 that you closed already in line 46... This will result in an error something like: "Cannot find [FormName]"

You also have a misspelling in line 47: should be acDataForm, not acDataForn.

How many problems show up when you do a Debug>Compile command?

Regards,
Scott

[oriondcv]

there are a lot of error like "Cannot open in design view " etc.

So i will remove line 48?

ill try it so i can check from my end if there are any error messages and keep you posted :)

Thank you very much

[Scott Price]

there are a lot of error like "Cannot open in design view " etc.

So i will remove line 48?

ill try it so i can check from my end if there are any error messages and keep you posted :)

Thank you very much

Take care of any problem that shows up on the Debug>Compile first. Then move on to changing a few other things.

Regards,
Scott

p.s. And yes, I can't think why you would want line 48 to stay... comment it out also.

[oriondcv]

hi scott,

i have tried what you said and there are no errors in the Compile in VB but i have an error

"microsoft access can't find the form 'TQC_IMG"IMG' referred to in a macro or visual basic code"

[oriondcv]

newcustid = Forms!TQC_IMG_IMG!cboSC_Ticket.Value
 
        MsgBox "Match Not Found For: " & strSearch_2 & " - You may proceed to TQC using this ticket number."
        txtSearchUser.SetFocus
 
        DoCmd.Close acForm, "frmIMG_SearchTicket"
        DoCmd.GoToRecord acDataForm, "TQC_IMG_IMG", acNewRec
        Forms![TQC_IMG_IMG].[cboSC_Ticket].SetFocus

[Scott Price]

Well, it has to be open before it can find it, don't you think? How about putting in a DoCmd.OpenForm "[FormName]" command line in there before you reference the control on that form.

Regards,
Scott