Printable View
سلام و خدا قوت
یه فایل اکسس درست کردم. در قسمت ریپورت اون میخام رکوردها براساس شماره ملی هر کدام را دریک صفحه مجزا چاپ کنه. ایا امکان پذیر هست؟؟؟
یعنی شماره ملی ۱ رکوردهاش تا هرکجای صفحه بود ادامه صفحه خالی باشه و شماره ملی ۲ از صفحه بعد ار اون شروع بشه
احتیاج به توضیح بیشتر داره؟
سلام .دوتا كار مي تونيد انجام بديد:
1: گزارش رو در نماي طراحي بر اساس كد ملي گروه بندي بكنيد(GROUP BY) و خصوصيت Force New Page property را در گزارشتون برابر با عبارت After Section قرار بديد.
2:در صورت ثابت بودن تعداد فيلد هاي گزارش مي تونيد از PAGE BREAK استفاده كنيد.
از اين لينك هم مي تونيد كمك بگيريد(زبان انگليسي)
https://support.office.com/en-us/art...7-23134a9a2e15
....................
موفق باشيد
تشکر ویژه ، خیلی ممنونماز لطف شما
یه سوال دیگه هم در مورد سورس تشخیص کد ملی دارم
یه دستور خودم نوشتم ولی درست کارنمیکنه و همچنین میخام تو هر فرمی و هر تکستی در قسمت ValidationRule گذاشتم فعال بشه و نیاز به همون فرم نداشته باشه
Function Sshmelli(shmelli As Variant) As Boolean
On Error GoTo Err_Sshmelli
Dim a, b, c, d As Integer
a = Right(Form_T_personel.shmelli.Value, 1)
b = (Mid(shmelli, 1, 1) * 10) + (Mid(shmelli, 2, 1) * 9) + (Mid(shmelli, 3, 1) * 8) + (Mid(shmelli, 4, 1) * 7) + (Mid(shmelli, 5, 1) * 6) + (Mid(shmelli, 6, 1) * 5) + (Mid(shmelli, 7, 1) * 4) + (Mid(shmelli, 8, 1) * 3) + (Mid(shmelli, 9, 1) * 2)
c = b - Int(b / 11) * 11
d = (11 - c)
If c = 0 And c = a Then
If c = 1 And c = a Then
If c >= 2 And d = a Then
Else
Sshmelli = False
End If
Else
Sshmelli = False
End If
Else
Sshmelli = False
End If
Sshmelli = True
Exit_Sshmelli:
On Error Resume Next
Exit Function
Err_Sshmelli:
Select Case Err.Number
Case 0
Resume Exit_Sshmelli:
Case 94
Sshmelli = True
Case Else
MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in module Module2 - function Sshmelli"
Resume Exit_Sshmelli:
End Select
End Function
از اين كد استفاده كنيد:
در ضمن براي جلوگيري از تداخل تاپيك ها سئوالات به صورت مرتبط و در غير اين صورت در تاپيك مجزا مطرح كنيد.
Public Function CheckCode(ByVal code As String) As Boolean
Dim i, j As Integer
Dim c As Double, N As Double, r As Double
If Len(code) < 10 Then code = (10 - Len(code) + "0") & code
If code = "0000000000" Or code = "1111111111" Or code = "2222222222" Or code = "3333333333" Or code = "4444444444" Or code = "5555555555" Or code = "6666666666" Or code = "7777777777" Or code = "8888888888" Or code = "9999999999" Then
CheckCode = False
Else
c = Val(Mid$(code, 10, 1))
j = 10
For i = 1 To 9
N = N + Val(Mid$(code, i, 1)) * j
j = j - 1
Next
r = N - Int(N / 11) * 11
If (r = 0 And r = c) Or (r = 1 And c = 1) Or (r > 1 And c = 11 - r) Then CheckCode = True
End If
End Function
خیلی ممنونم از لطف شما، تشکر
شرمنده یک سوال دیگه در مورد چاپ
یه گزارش درست کردم که یک ساب ریپورت هم داخلشه. هنگامی که رکورد های ساب ریپورت تغییر کنه کلیه ایتم های داخل گزارش جا به جا میکنه
آیا میشه کاری کرد که این مشکل پیش نیاد؟؟
نقل قول:
نوشته شده توسط reza2371
کسی میتونه منو راهنمایی بکنه؟؟؟
ممنونم
اگر نمونه كارتون رو اپلود كنيد دوستان بهتر ميتونند جواب بدهند.نقل قول:
نوشته شده توسط reza2371