A
Aleux
I converted the following code from a macro, when I click
the run icon on the tool bar it ask for the macro name
and will not run. What do I have to do to get a converted
macro to run???
'---------------------------------------------------------
---
' macImportText
'
'---------------------------------------------------------
---
Function macImportText()
DoCmd.TransferText
acImportDelim, "specCAL", "CAL", "d:\KL
Tracking\CAL.txt", False, ""
End Function
Private Sub form_load()
DoCmd.OpenTable "CAL", acViewNormal, acEdit
DoCmd.FindRecord "COUNTRY ACTIVITY LOG", acEntire,
False, , False, acCurrent, True
DoCmd.FindRecord "AOCDX", acEntire, False, , False,
acCurrent, True
End Sub
the run icon on the tool bar it ask for the macro name
and will not run. What do I have to do to get a converted
macro to run???
'---------------------------------------------------------
---
' macImportText
'
'---------------------------------------------------------
---
Function macImportText()
DoCmd.TransferText
acImportDelim, "specCAL", "CAL", "d:\KL
Tracking\CAL.txt", False, ""
End Function
Private Sub form_load()
DoCmd.OpenTable "CAL", acViewNormal, acEdit
DoCmd.FindRecord "COUNTRY ACTIVITY LOG", acEntire,
False, , False, acCurrent, True
DoCmd.FindRecord "AOCDX", acEntire, False, , False,
acCurrent, True
End Sub