ник: Lukas
1. Уж если в обоих модулях описываешь процедуру под одним именем, то:
В обоих модулях добавить:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
|
2. в Function WriteLPT() модуля LPT:
...
Do
For i = 1 To 24
asd(i) = Forms![FMAvto]("Field" & i + 0)
Next i
' .MoveNext
Loop Until .EOF
...
|
откуда компилятору знать про какой-то .EOF?
и зачем цикл Do-Loop? Если бы не ошибка на .EOF этот цикл впал бы в нирвану, вместе с вложенным циклом.
3. Зачем растаскиваешь по полям формы бинарное значение, есть же массив asd(24) /лучше asd(1 To 24)/, его и используй при подготовке и выводе в порт.
А если хочешь посмотреть что в нем, считай данные из него и положи на форму.