include in references:
Microsoft Scripting Runtime
Public Function DoesFolderExist(FolderSpec As String) As Boolean
If fso.FolderExists(FolderSpec) = False Then
'MsgBox FolderSpec
'create the folder
fso.CreateFolder (FolderSpec)
End If
End Function
Public Function...
You might check to see if you have a value in the date field prior to trying to save it, then, if you don't have a value, you don't include it in the insert list.
dim insertStmt as string
if isnull(datefield) = false then
insertStmt = "INSERT INTO Contract (Date_Filed [and 17 other...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.