אהלן.טוב, השינויים שצריך לבצע בפונקציות לבניית הדוח הם:
דבר ראשון ב-Report_Open כאשר אתה מאתחל את המשתנה של הרוחב השורה צריכה להיות:
'changed this so that we can format from right to left
lCurrentXposition = Me.Width
|
עכשיו בפונקציות עצמן צריך להחליף בקטע הרלוונטי לחישובים ל-: (מרקרתי את השורות הקודמות)
If TheCheckBoxToCheck = -1 Then
'show the field and its label
TheControl.Visible = True
TheControlsLabel.Visible = True
''' TheControl.Left = lCurrentXposition
''' TheControlsLabel.Left = lCurrentXposition
'change this so that we can format from right to left
TheControl.Left = lCurrentXposition - TheControl.Width
TheControlsLabel.Left = lCurrentXposition - TheControl.Width
'now add the width of the control to the current x position and add the space
''' lCurrentXposition = lCurrentXposition + TheControl.Width + l_Width_Between_Controls 'different calculation
lCurrentXposition = lCurrentXposition - TheControl.Width - l_Width_Between_Controls
Else
|
אני מקוה שזה פותר לך את הבעיה, תן הודעה אם לא.
א.
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
