VB Close command creating roecords

OxfordConsult

I have a form and it is to creat a 'link' between a project and a company. Creating a record form this table will simply create a record in a databse with the company ID and project ID. Project ID is selected form a drop down bax and Company ID is selected from a combo box. I am trying to create a script that if you click exit form, and one or the other, or both of the fields have a selection it will bring up message box and inform the user of the situation, and what will happen. That i am not having trouble with. I am having trouble with the Docmd.close! it seems that this command creates a new record, even when the
DoCmd.GoToRecord , , acNewRec command is not there. The form is set as a data entry form. I have included my if statements but i dont think the problem is there. I have taken out the close commands and records are not created, i put them back in and the form closes and creates the record. How do i close the form without it creating the record.

P.S. i have also tried doCmd.close as upposed to coCmd.close acForm, "form_Company-Project" with the same record creating result.

Any help would be greatly appreciated

Cheers,

Oxford Consult

Expand|Select|Wrap|Line Numbers

 
Private Sub Command22_Click()
 
If Me.Combo25.Value = 0 Then

    If Me.Combo8.Value = 0 Then

        DoCmd.Close acForm, "Form_Company-Project"

        DoCmd.OpenForm "Form_Mainpage"

    Else

        MsgBox "You have only selected a company and no link will be created", vbCritical, "Note"

        DoCmd.Close

        DoCmd.OpenForm "Form_Mainpage"

    End If

Else

    If Me.Combo8.Value = 0 Then

        MsgBox "You have only selected a project and no link will be created", vbCritical, "Note"

        DoCmd.Close acForm, "Form_Company-Project"

        DoCmd.OpenForm "Form_Mainpage"

    Else

        zmessage = MsgBox("You have slected a company and project to create a link but have not created a link." & vbCrLf _

        & "Do you wish to do so now?", vbYesNo + vbQuestion, "Link selected but not created")

        If zmessage = 6 Then

            MsgBox ""

            MsgBox "A link has been created", vbInformation, "Note"

            DoCmd.Close acForm, "Form_Company-Project"

            DoCmd.OpenForm "Form_Mainpage"

        Else

            DoCmd.Close acForm, "Form_Company-Project"

            DoCmd.OpenForm "Form_Mainpage"

        End If

    End If

End If
 
End Sub

OxfordConsult

I have figured it out. I found another forum with this same problem and tried some of thier remedys. There final solution was to use :

Expand|Select|Wrap|Line Numbers

 
Private Sub cmdExit_Click()

    Call DoCmd.Close(ObjectType:=acForm, ObjectName:=Me.Name)

End Sub

however this did not work for me, and I kept getting the same error. In the end i tried the undo function that didnt work for them but did for me. Might have somehitng to do with the messageboxes and keeping them on focus.

Expand|Select|Wrap|Line Numbers

 
Call Me.Undo

DoCmd.Close

Hope this helps anyone else with a simlar probelm.

Cheers,

Oxford

VB Close command creating roecords

Post your reply

Similar topics