Issue to code

Question

Hi,
To code below, what should DoCmd be declared?

Dim StrSQL As String
Dim InDate As Date
Dim DatDiff As Integer

InDate = Me.FromDateTxt

StrSQL = "INSERT INTO Test (Start_Date) VALUES ('" & InDate & "' );"

DoCmd.SetWarnings False
DoCmd.RunSQL StrSQL
DoCmd.SetWarnings True

Answer 1

This one?
https://learn.microsoft.com/en-us/office/vba/api/access.docmd

Answer 2

Viorel,
Is there complete example to open Access table, clear details of table, in VBA?

Answer 3

Hi. DoCmd is an Application object. You don't declare it, like you would a variable. You just use it.

When you say "clear details of table," are you talking about deleting all the records?

Answer 4

Hi,
I've got following error,
]1
due to For Each line below. Please help

Public Function TblExists(ByVal strTableName As String) As Boolean
Dim tblN As Object
TblExists = False
For Each tblN In Adb.TableDefs
If tblN.Name = strTableName Then
TblExists = True
Exit For
End If
Next tblN
End Function

Dim Adb As Object: Set Adb = CreateObject("Access.Application")  
Call Adb.OpenCurrentDatabase(F1)  
Adb.Visible = False  

Answer 5

Try replacing this line,

For Each tblN In Adb.TableDefs

With these ones:

Dim db As DAO.CurrentDb
Set db=CurrentDb()
For Each tblN In db.TableDefs