hashemi.hanieh
چهارشنبه 09 مرداد 1392, 15:43 عصر
سلام دوستان
یه مدت زیادیه که دنبال جواب این سوال میگردم
اما خب بالاخره جوابشو پیدا کردم... اما راه حلشو نمی فهمم... ممنوم میشم راهنمایی کنید
سوال از این قراره:
فرض کنید یک ریپورت که از یک کوئری کراس تب ایجاد شده 3 ستون نمایش داده میشه.... حالا بعدا داده ها اضافه میشه و در کوئری کراس تب 4 ستون داریم... اما ستون های ریپورت تغییر نمیکنه...
توی یه فروم خارجی سرچ کردم و دقیقا برای رفع این مشکل کد زیر رو پیشنهاد داده بودن که با استقبال خوبی مواجه شده بود... اما از اون جایی که من هیچ سر رشته ای از کد نویسی ندارم نتونستم بر اساس کد ها یه مثال واقعی درست کنم... ممنون میشم اگر دوستان با استفاده از تعاریف کد یه فایل اکسس درست کنن و نحوه کار کردن کد رو توضیح بدن
منتظر پاسخ متخصصان هستم:)
Private Sub Report_Open(Cancel As Integer)
'You didn't know how many columns, or what their names would be, until now.
'Fill in the label captions and control sources.
Dim intColCount As Integer
Dim intControlCount As Integer
Dim i As Integer
Dim StrName As String
Dim qdf As QueryDef
On Error Resume Next
Set dbsReport = CurrentDb
Set qdf = dbsReport.QueryDefs(Me.RecordSource)
Set rstReport = qdf.OpenRecordset()
intColCount = rstReport.Fields.Count
intControlCount = Me.Detail.Controls.Count
If intControlCount < intColCount Then
intColCount = intControlCount
End If
' Fill in information for the necessary controls.
For i = 1 To intColCount
StrName = rstReport.Fields(i - 1).Name
Me.Controls("lblPgHdr" & i).Caption = StrName
Me.Controls("tbxData" & i).ControlSource = StrName
Next i
' Hide the extra controls
' nothing to hide, already marked in report as invisible...
End Sub
یه مدت زیادیه که دنبال جواب این سوال میگردم
اما خب بالاخره جوابشو پیدا کردم... اما راه حلشو نمی فهمم... ممنوم میشم راهنمایی کنید
سوال از این قراره:
فرض کنید یک ریپورت که از یک کوئری کراس تب ایجاد شده 3 ستون نمایش داده میشه.... حالا بعدا داده ها اضافه میشه و در کوئری کراس تب 4 ستون داریم... اما ستون های ریپورت تغییر نمیکنه...
توی یه فروم خارجی سرچ کردم و دقیقا برای رفع این مشکل کد زیر رو پیشنهاد داده بودن که با استقبال خوبی مواجه شده بود... اما از اون جایی که من هیچ سر رشته ای از کد نویسی ندارم نتونستم بر اساس کد ها یه مثال واقعی درست کنم... ممنون میشم اگر دوستان با استفاده از تعاریف کد یه فایل اکسس درست کنن و نحوه کار کردن کد رو توضیح بدن
منتظر پاسخ متخصصان هستم:)
Private Sub Report_Open(Cancel As Integer)
'You didn't know how many columns, or what their names would be, until now.
'Fill in the label captions and control sources.
Dim intColCount As Integer
Dim intControlCount As Integer
Dim i As Integer
Dim StrName As String
Dim qdf As QueryDef
On Error Resume Next
Set dbsReport = CurrentDb
Set qdf = dbsReport.QueryDefs(Me.RecordSource)
Set rstReport = qdf.OpenRecordset()
intColCount = rstReport.Fields.Count
intControlCount = Me.Detail.Controls.Count
If intControlCount < intColCount Then
intColCount = intControlCount
End If
' Fill in information for the necessary controls.
For i = 1 To intColCount
StrName = rstReport.Fields(i - 1).Name
Me.Controls("lblPgHdr" & i).Caption = StrName
Me.Controls("tbxData" & i).ControlSource = StrName
Next i
' Hide the extra controls
' nothing to hide, already marked in report as invisible...
End Sub