maestro_01
08-24-2010, 01:05 PM
Hello, anytime I try to run this code:
Public Function addNoneApplication()
Dim applicationRst As Recordset
Set applicationRst = CurrentDb.OpenRecordset("SELECT Application.Application_ID, Application.Application_Name " & _
"FROM Application")
applicationRst.AddNew
applicationRst(0) = -1
applicationRst(1) = "None"
applicationRst.Update
End Function
I get a type mismatch error at
Set applicationRst = CurrentDb.OpenRecordset("SELECT Application.Application_ID, Application.Application_Name " & _
"FROM Application")
Any ideas?
I have Option Compare Database set at the beginning of the module.
Thanks,
Maestro.
Public Function addNoneApplication()
Dim applicationRst As Recordset
Set applicationRst = CurrentDb.OpenRecordset("SELECT Application.Application_ID, Application.Application_Name " & _
"FROM Application")
applicationRst.AddNew
applicationRst(0) = -1
applicationRst(1) = "None"
applicationRst.Update
End Function
I get a type mismatch error at
Set applicationRst = CurrentDb.OpenRecordset("SELECT Application.Application_ID, Application.Application_Name " & _
"FROM Application")
Any ideas?
I have Option Compare Database set at the beginning of the module.
Thanks,
Maestro.