| |
＞雅さん
省略しすぎとのこと、了解です。
プログラム先頭から、該当する問題発生箇所までを以下に記述してみます。
--------------
Public Sub サブプログラム１()
Dim 変数１ As Integer
Application.Echo False
DoCmd.SetWarnings False
DoCmd.TransferText acImportDelim, , "テーブル名", "C:\(省略)\テキスト１.txt", False
変数１ = Len(テーブル名.フィールド名) ＜ここで止まる
If 変数１ > 4 Then
DoCmd.OpenQuery "更新クエリ１", acViewNormal, acEdit
DoCmd.TransferText acExportDelim, , "更新クエリ１", "C:\(省略)\テキスト２.txt", True
Else
DoCmd.OpenQuery "更新クエリ２", acViewNormal, acEdit
DoCmd.TransferText acExportDelim, , "更新クエリ２", "C:\(省略)\テキスト２.txt", True
End If
(省略)
End Sub
以上です。
このくらいで・・・だいたい、どういう動作をさせようとしているか、伝わりますでしょうか・・・？
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
