Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1437 / 9994

←次へ　｜　前へ→


	【11851】Re:文字数で実行するクエリを分けるために

初心者A - 10/11/15(月) 11:25 -


	引用なし

	パスワード

＞雅さん

省略しすぎとのこと、了解です。
プログラム先頭から、該当する問題発生箇所までを以下に記述してみます。

--------------

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

以上です。
このくらいで・・・だいたい、どういう動作をさせようとしているか、伝わりますでしょうか・・・？

488 hits

▼

【11848】文字数で実行するクエリを分けるために 初心者A 10/11/15(月) 10:49