parsa70
جمعه 06 دی 1398, 18:34 عصر
با سلام و احترام
من یک مشکلی دارم وقتی از subform خروجی اکسل میگیرم از تمام فیلدها این خروجی رو میده به من در حالیکه من مثلا: بعضی از فیلدها رو حتی فیلتر میکنم بازم از تمام رکوردها خروجی میده
من الان داشتم سایت خارجی رو چک میکردم این مشکل رو گویا یکی داشته و حل شده مشکلش ولی من متوجه این کد نمیشم که تو فایل خودم هم اجرا کنم اگه امکان داره یکی کمک کنه
http://www.utteraccess.com/forum/export-filtered-subform-t1898244.html
Private Sub Command12_Click()
On Error GoTo errHandler
Dim qdf As QueryDef
DoCmd.DeleteObject acQuery, "qryTemp"
Set qdf = CurrentDb.CreateQueryDef("qryTemp", Me.qryPunchListTXT.Form.RecordSource)
DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLS, "C:\Tbl1XLS.xls", True
exitHandler:
Exit Sub
errHandler:
If Err.Number = 7874 Then
Resume Next
Else
MsgBox Err.Number & " - " & Err.Description
Resume exitHandler
End If
End Sub
H
این رو من نمیدونم چی هست ؟ Me.qryPunchListTXT.Form که تو فایل خودم جایگزین کنم
سپاس
من یک مشکلی دارم وقتی از subform خروجی اکسل میگیرم از تمام فیلدها این خروجی رو میده به من در حالیکه من مثلا: بعضی از فیلدها رو حتی فیلتر میکنم بازم از تمام رکوردها خروجی میده
من الان داشتم سایت خارجی رو چک میکردم این مشکل رو گویا یکی داشته و حل شده مشکلش ولی من متوجه این کد نمیشم که تو فایل خودم هم اجرا کنم اگه امکان داره یکی کمک کنه
http://www.utteraccess.com/forum/export-filtered-subform-t1898244.html
Private Sub Command12_Click()
On Error GoTo errHandler
Dim qdf As QueryDef
DoCmd.DeleteObject acQuery, "qryTemp"
Set qdf = CurrentDb.CreateQueryDef("qryTemp", Me.qryPunchListTXT.Form.RecordSource)
DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLS, "C:\Tbl1XLS.xls", True
exitHandler:
Exit Sub
errHandler:
If Err.Number = 7874 Then
Resume Next
Else
MsgBox Err.Number & " - " & Err.Description
Resume exitHandler
End If
End Sub
H
این رو من نمیدونم چی هست ؟ Me.qryPunchListTXT.Form که تو فایل خودم جایگزین کنم
سپاس