変数をファイル名として使用してAccess OutputTo関数でエラーを受け取る

特定のファイル名とパスを使用してレポートをテキストファイルとして出力しようとしています。私が現在使っていることは以下の通りです。実行すると、ファイルの場所と名前を入力するウィンドウが表示されます。 "strFileName = Me.Field1"をコメントアウトし、下の行から削除すると、問題なしでファイルがエクスポートされます。 Field1の値は、2行目で使用されている値とまったく同じです。変数をファイル名として使用してAccess OutputTo関数でエラーを受け取る

Private Sub ExportFlatFile_Click() 
DoCmd.SetWarnings (WarningsOff) 
DoCmd.OpenQuery "xx-FlatFile-1Delete" 
DoCmd.OpenQuery "xx-FlatFile-AdminFee" 
DoCmd.OpenQuery "xx-FlatFile-BF" 
DoCmd.OpenQuery "xx-FlatFile-CO" 
DoCmd.OpenQuery "xx-FlatFile-FFee" 
DoCmd.OpenQuery "xx-FlatFile-Fuel" 
DoCmd.OpenQuery "xx-FlatFile-Insp" 
DoCmd.OpenQuery "xx-FlatFile-Lift" 
DoCmd.OpenQuery "xx-FlatFile-PI" 
DoCmd.OpenQuery "xx-FlatFile-Pump" 
DoCmd.OpenQuery "xx-FlatFile-APump" 
DoCmd.OpenQuery "xx-FlatFile-0DeleteFileName" 
DoCmd.OpenQuery "xx-FlatFile-1CreateFileName" 
Dim strFileName As String 
strFileName = Me.Field1 
'strFileName = "\\Mis-fs2\imsi2\Billing Databases\APL\WESEDI-999-198-20170119-01.txt" 
DoCmd.OutputTo acOutputReport, "rptFlatFile", acFormatTXT, strFileName, False, , , acExportQualityPrint 
DoCmd.SetWarnings (WarningsOn) 
End Sub

出典

2017-01-19 Mark M

使用： 'strFileName = Me！Field1.Value' – Gustav

上記のコードは、同じフォームモジュールの' Field1'コントロールを使用していますか？ – SunKnight0

はい、同じフォームにあります。 –

'。'演算子は組み込み（システム）フィールド用です。 '！' operatorは、名前付きフィールドまたはユーザー作成フィールド用です。使用する必要があります：Me!Field1

ほとんどの組み込み関数は、指定されたオブジェクトを見つけることができないときに、この種のダイアログを表示します。

出典

2017-01-20 01:28:27

strFileName = Me！Field1.Valueに変更しましたが、同じウィンドウが表示され、ファイル名と場所を尋ねました。 –

コード内にブレークポイントを設定しようとしましたか（ラインの左をクリックしてください）？ホバリングによって変数の値を見ることができます。また、イミディエイトウィンドウ（Ctrl + Gで開く）を使用して、他のものを入力し、それらが機能するかどうかを確認することもできます。この種の問題は、通常、ばかげたスペルミスなどです。 strFileNameは空になり、ダイアログをトリガする必要があります。 –

strFileNameに値を割り当てる前にField1をリフレッシュしなければなりませんでした。助けてくれてありがとう。 –

変数をファイル名として使用してAccess OutputTo関数でエラーを受け取る

答えて

関連する問題