does the check box cause double entry?

[1jet]

Hi all,
I've got a simple form that either "saves" or "appends a new" contract type into a small table. The table has a "yes or no" check box as well as the form. Has anyone had a strange problem where your "INSERT INTO" query appends two of the same row?

I've got pics and my code below.

Cheers

By f22a at 2008-09-30

By f22a at 2008-09-30

By f22a at 2008-09-30

Function vbaSaveNewContract()

Dim strSQL As String
Dim frm As Form
Dim contracttype As Control
Dim in_use As Control

Set frm = Forms!frmContract
Set contracttype = frm.txtContractName
Set in_use = frm.chkUsed

DoCmd.SetWarnings False

strSQL = " INSERT INTO tblEmployeeContract ( [Contract Type] , Used ) " & _
         " SELECT Forms!frmContract!txtContractName, Forms!frmContract!chkUsed ; "
DoCmd.RunSQL strSQL
MsgBox "Changes have been saved."

Forms!frmContract!cboSelectContract.Value = ""

'Me!cboSelectContract.SetFocus
'Me!cmdCreateNew.SetFocus
Me!cmdCloseFormContract.SetFocus

Forms!frmContract!cboSelectContract.Enabled = True
Forms!frmContract!txtContractName.Enabled = False
Forms!frmContract!chkUsed.Enabled = False
Forms!frmContract!cmdSave.Enabled = False
Forms!frmContract!cmdSaveNew.Enabled = False
Forms!frmContract!cmdUndo.Enabled = False

DoCmd.Requery ""

DoCmd.SetWarnings True

strSQL = ""
Set frm = Nothing
Set contracttype = Nothing
Set in_use = Nothing

End Function

 

[khawar]

strSQL = " INSERT INTO tblEmployeeContract ( [Contract Type] , Used ) " & _
         contracttype, In_USe ;

Try this sql instead

 

[1jet]

Nope...didn't help sorry

 

[gemma-the-husky]

maybe your sql statement is saving a record, and your form (if its bound) is ALSO saving the same record

 

[1jet]

Hmmm....yeah the form is bound to the table.
So I guess I should just run a save command instead of the append query?
I'll be giving it a go now...

 

[1jet]

Yep Gemma thanks for that.
The SQL query is no longer necessary and I'm only using a save command now.