A
Altair1972m
I'm a newbie to ACCESS. I'm using ACCESS 2002:
I have a one database in which I am trying to set up a push the button do
everything system. That didn't work because I have the import, export, and
check everything stages.
So I wrote code with 5 steps parts and it has 2 buttons.
Button 1:
Deletethetable[tablename]
ImportTable
OutputTable
Repeat steps 1-3 for all 21 counties.
Run Confrim Query to make sure tables came out right.
Button 2:
Delete ImportError files.
The import error deletion is the problem because it stops if there were no
import errors. So how do I say something like:
If the ImportError-table is there, then delete it?
I tried
If Object.Exists!Table!EARNINGS_ImportErrors = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End If
If Object.Exists acTable "EARNINGS_ImportErrors" = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End If
If Object.Exists "EARNINGS_ImportErrors" = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End Sub
If Object.Exists(EARNINGS_ImportErrors) = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End Sub
If Object.Exists!EARNINGS_ImportErrors = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End Sub
None of them worked.
Help!
I have a one database in which I am trying to set up a push the button do
everything system. That didn't work because I have the import, export, and
check everything stages.
So I wrote code with 5 steps parts and it has 2 buttons.
Button 1:
Deletethetable[tablename]
ImportTable
OutputTable
Repeat steps 1-3 for all 21 counties.
Run Confrim Query to make sure tables came out right.
Button 2:
Delete ImportError files.
The import error deletion is the problem because it stops if there were no
import errors. So how do I say something like:
If the ImportError-table is there, then delete it?
I tried
If Object.Exists!Table!EARNINGS_ImportErrors = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End If
If Object.Exists acTable "EARNINGS_ImportErrors" = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End If
If Object.Exists "EARNINGS_ImportErrors" = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End Sub
If Object.Exists(EARNINGS_ImportErrors) = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End Sub
If Object.Exists!EARNINGS_ImportErrors = True Then
DoCmd.DeleteObject acTable, "EARNINGS_ImportErrors"
End Sub
None of them worked.
Help!