1. The Name of the QueryDef is ExpRec_q and the SQL of it:
Code:
SELECT tbl_Zeichnungen.* FROM tbl_Zeichnungen WHERE (((tbl_Zeichnungen.F23)=[forms]![ZeichnungSuchen_f]![dwgname]));
SELECT tbl_Zeichnungen.* FROM tbl_Zeichnungen WHERE (((tbl_Zeichnungen.F23)=[forms]![ZeichnungSuchen_f]![dwgname]));
Dim strSQL As String strSQL = "SELECT * FROM [tbl_Zeichnungen] WHERE ([F23]='" & GlbLastWip & "');" doCmd.TransferText acExportDelim, "ExpRec_q", strSQL, "C:\temp\ExpRec_q.txt"
Leave a comment: