type mismatch

[site]

Hello,

Hope someone help me out.

When I open the form I got error:

"compiler error: User-defined type not defined." then I added reference "microsoft DAO 3.6 object library". the error is gone.

But when I click the form's buttom, I got error:
"Run-time error 13, Type mismatch"

The following are my codes:

Private Sub Form_Open(Cancel As Integer)
Dim db As Database, rst As Recordset, dt As Variant
Set db = CurrentDb
Set rst = db.OpenRecordset("Temp_Cal_30&quot'(mismatch here)
dt = CDate(rst.Fields("30Date&quot)
If rst.RecordCount > 0 Then
rst.MoveFirst
If dt < Now() Then
AppendDatesMo
End If
ElseIf rst.RecordCount = 0 Then
AppendDatesMo
Else
End If

End Sub


Thank you very much for your kind help.
Jing

 

[DougP]

try adding this too

Private Sub Form_Open(Cancel As Integer)
Dim db As DAO.Database, rst As DAO.Recordset, dt As Variant
Set db = CurrentDb
Set rst = db.OpenRecordset(&quot;Temp_Cal_30&quot'(mismatch here)
dt = CDate(rst.Fields(&quot;30Date&quot)
If rst.RecordCount > 0 Then
DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[DougP]

Also look at ADO
this is the newest way to connect to anything

you have to check &quot;... ADO object 2.5 ...&quot; in &quot;Tools&quot; &quot;References&quot;

But when you understand ADO, you can use it anywhere including VBScript (ASP Active Server Pages) as in WEB sites !!!!

here is a start
-----------------
Dim Conn2 As ADODB.Connection
Dim Rs1 As ADODB.Recordset

Dim SQLCode As String

Set Conn2 = CurrentProject.Connection ' <<<<Note same as CurrentDb

Set Rs1 = New ADODB.Recordset

SQLCode = &quot;SELECT * FROM [STOCK CODE LOOKUP] WHERE STOCK_CODE = '&quot; & Me![Part Number] & &quot;';&quot;
Rs1.Open SQLCode, Conn2, adOpenStatic, adLockOptimistic

' Note: do normal rs1! or rs1. stuff from now on
'like Rs1!fieldname
' Rs1.addnew

' close it this way
Set rs1 = nothing
Set Conn2 = nothing


DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[site]

Hi, DougP,

I follow you info., the error is gone, but I got the another error&quot; Too few paremeters, Expected5&quot;. I don't know why?

Thanks again.
Jing