G
Gustavo
Hello there,
It is me again. below you will find the line where the debug function send
me. According to the message Run - time error 2364 the database can't open
the table in Datasheet view and it goes to open table " Schedule
PartNoShort". I have checked the table vs spelling but so far I have not been
able to go through..
Could someone give an idea what to do?
Private Sub Form_Open(Cancel As Integer)
'********* Related to the underlying table
'Turn off warnings
DoCmd.SetWarnings False
'Open the Table
DoCmd.OpenTable "Schedule PartNoShort", acViewNormal, acEdit
'Delete all records
SendKeys "(^a)", True
SendKeys "{Del}", True
'Close Table
DoCmd.Close acTable, "Schedule PartNoShort"
'Append the new part numbers from JIT
DoCmd.OpenQuery "Schedule Input Form IV PartNoShort From JIT Append Query"
'Append the new part numbers from Existing schedule
DoCmd.OpenQuery "Schedule Input Form IV PartNoShort From Schedule Append
Query"
thanks
gustavo
It is me again. below you will find the line where the debug function send
me. According to the message Run - time error 2364 the database can't open
the table in Datasheet view and it goes to open table " Schedule
PartNoShort". I have checked the table vs spelling but so far I have not been
able to go through..
Could someone give an idea what to do?
Private Sub Form_Open(Cancel As Integer)
'********* Related to the underlying table
'Turn off warnings
DoCmd.SetWarnings False
'Open the Table
DoCmd.OpenTable "Schedule PartNoShort", acViewNormal, acEdit
'Delete all records
SendKeys "(^a)", True
SendKeys "{Del}", True
'Close Table
DoCmd.Close acTable, "Schedule PartNoShort"
'Append the new part numbers from JIT
DoCmd.OpenQuery "Schedule Input Form IV PartNoShort From JIT Append Query"
'Append the new part numbers from Existing schedule
DoCmd.OpenQuery "Schedule Input Form IV PartNoShort From Schedule Append
Query"
thanks
gustavo