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

Sorry, I still get same error due to For Each line below.

Dim db As DAO.Database

Set db = DBEngine(0).OpenDatabase(F1)

'db.Close

If TblExists(ActiveSheet.Name) Then
    DoCmd.DeleteObject acTable, ActiveSheet.Name
End If

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

Answer 2

Hi. Looks like you're all over the place on this one. That's not what I wrote, so I'm not sure if you've tried it or not.

Earlier, you didn't have ActiveSheet; but now, you do.

Please stick with one approach until we fixed it. Can you share a copy of your db? That might make it easier to help you.

Answer 3

Here is relevant DB file.
https://1drv.ms/u/s!Ai8CrEskdewXvn4m1H_ptXmUJxB8?e=hbwkRw

Answer 4

OK. Thanks. Appreciated to your help.

Any other help on this thread?

Answer 5

Hi,
In VBA, I was stuck in event (called Write_to_Text_file) to remove details of tables (named as Activesheet.name) and to flush details from empty table t1 into such table (of Access DB). Here is Excel file.
https://1drv.ms/x/s!Ai8CrEskdewXvn_aF-Ex_YazqAN3?e=bNaK4U