Insert Into Doesnt Insert

[etjohnson81]

Hello...

I am using the following code to insert a record, the variables are filling ok, but no records get inserted.

Dim db As DAO.Database
      
    Dim strUsername As String
    Dim strSerial As String
    
    Dim intTech As Integer
    
    strUsername = Forms!frmcomputerassign!cboUsername.Column(1)
    strSerial = Forms!frmcomputerassign!cboSerial.Column(0)
    
    intTech = Forms!frmcomputerassign!cboTech.Column(1)
    
        
    Set db = DBEngine(0)(0)
    db.Execute "INSERT INTO dbo_tblComputerAssignmentHistory (txtUsername,numAssignedBy,dDateAssigned,txtSerial) VALUES ('" & strUsername & "'," & intTech & "," & Date & ", '" & strSerial & "' )"
    msgbox db.RecordsAffected & " computer assigned."
    
    Set db = Nothing

 

[PWise]

try

db.Execute "INSERT INTO dbo_tblComputerAssignmentHistory (txtUsername,numAssignedBy,dDateAssigned,txtSerial) VALUES ('" & strUsername & "'," & intTech & ",#" & Date & "#, '" & strSerial & "' )

 

[PHV]

Replace this:

& "," & Date & ", '" &

with this:

& ",#" & Format(Date, "yyyy-mm-dd") & "#, '" &

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886