ADO error adding to recordset

[Tetelestai]

Getting a type mismatch error (-2147352571 (80020005)) on this line of code

![RecievedDate] = Format(Me.txtRecDate, "\#mm\/dd\/yyyy\#")

I can't find the error number refenced anywhere. Any hints or helps would be appriciated.

I'm using Access 2007

Here is more code:

    Set rst = New ADODB.Recordset
 
 
    rst.Open "tblOrders", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
    With rst
        .AddNew
        ![JobID] = """" & Me.txtJobID & """"
        ![JobSubID] = """" & Me.cboJobSubID & """"
        ![JobType] = """" & Me.cboJobType & """"
        ![Model] = """" & Me.cboModel & """"
        ![Lot] = """" & Me.txtLot & """"
        Debug.Print "#" & Me.txtRecDate & "#"
        Debug.Print Format(Me.txtRecDate, "\#mm\/dd\/yyyy\#")
        ![RecievedDate] = Format(Me.txtRecDate, "\#mm\/dd\/yyyy\#")
        Debug.Print "after date"
        ![CustomerID] = Me.cboCustomer.Column(0)
        .Update
    End With
 
    rst.Close
    Set rst = Nothing

[ADezii]

Getting a type mismatch error (-2147352571 (80020005)) on this line of code

![RecievedDate] = Format(Me.txtRecDate, "\#mm\/dd\/yyyy\#")

I can't find the error number refenced anywhere. Any hints or helps would be appriciated.

I'm using Access 2007

Here is more code:

    Set rst = New ADODB.Recordset
 
 
    rst.Open "tblOrders", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
    With rst
        .AddNew
        ![JobID] = """" & Me.txtJobID & """"
        ![JobSubID] = """" & Me.cboJobSubID & """"
        ![JobType] = """" & Me.cboJobType & """"
        ![Model] = """" & Me.cboModel & """"
        ![Lot] = """" & Me.txtLot & """"
        Debug.Print "#" & Me.txtRecDate & "#"
        Debug.Print Format(Me.txtRecDate, "\#mm\/dd\/yyyy\#")
        ![RecievedDate] = Format(Me.txtRecDate, "\#mm\/dd\/yyyy\#")
        Debug.Print "after date"
        ![CustomerID] = Me.cboCustomer.Column(0)
        .Update
    End With
 
    rst.Close
    Set rst = Nothing

You are asking a Date/Time Field ([ReceivedDate] within the underlying Recordset to store the formatted value Format(Me.txtRecDate, "\#mm\/dd\/yyyy\#") which it cannot because of the inclusion of the # characters. Either convert the [ReceivedDate] Field to Text, or reformat it as such: Format(Me.txtRecDate, "mm/dd/yyyy"). Hope this helps.

[pks00]

Why dont u just do this, did this not work for you?
It should recognise that txtRecDate is a datefield

![RecievedDate] = Me.txtRecDate


Not sure about this

![RecievedDate] = "#" & Me.txtRecDate & "#"

or

![RecievedDate] = CDATE(Me.txtRecDate)

or long winded way

![RecievedDate] = dateserial( year(Me.txtRecDate), month(Me.txtRecDate), day(Me.txtRecDate))

[Tetelestai]

Why dont u just do this, did this not work for you?
It should recognise that txtRecDate is a datefield

![RecievedDate] = Me.txtRecDate

your correct that did work. Thanks. I knew it was something obvious.

correct code below (for posterity)

    Set rst = New ADODB.Recordset
 
 
    rst.Open "tblOrders", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    With rst
        .AddNew
        ![JobID] = Me.txtJobID
        ![JobSubID] = Me.cboJobSubID
        ![JobType] = Me.cboJobType
        ![Model] = Me.cboModel
        ![Lot] = Me.txtLot
        ![RecievedDate] = Me.txtRecDate
        ![CustomerID] = Me.cboCustomer.Column(0)
        .Update
    End With
 
    rst.Close
    Set rst = Nothing

[pks00]

Sometimes its easier than u think :)