چاپ در اکسس

[reza2371]

سلام و خدا قوت
یه فایل اکسس درست کردم. در قسمت ریپورت اون میخام رکوردها براساس شماره ملی هر کدام را دریک صفحه مجزا چاپ کنه. ایا امکان پذیر هست؟؟؟
یعنی شماره ملی ۱ رکوردهاش تا هرکجای صفحه بود ادامه صفحه خالی باشه و شماره ملی ۲ از صفحه بعد ار اون شروع بشه
احتیاج به توضیح بیشتر داره؟

[amirzazadeh]

سلام .دوتا كار مي تونيد انجام بديد:
1: گزارش رو در نماي طراحي بر اساس كد ملي گروه بندي بكنيد(GROUP BY) و خصوصيت Force New Page property را در گزارشتون برابر با عبارت After Section قرار بديد.
2:در صورت ثابت بودن تعداد فيلد هاي گزارش مي تونيد از PAGE BREAK استفاده كنيد.
از اين لينك هم مي تونيد كمك بگيريد(زبان انگليسي)
https://support.office.com/en-us/art...7-23134a9a2e15
....................
موفق باشيد

[reza2371]

تشکر ویژه ، خیلی ممنونماز لطف شما
یه سوال دیگه هم در مورد سورس تشخیص کد ملی دارم

یه دستور خودم نوشتم ولی درست کارنمیکنه و همچنین میخام تو هر فرمی و هر تکستی در قسمت 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

[amirzazadeh]

از اين كد استفاده كنيد:
در ضمن براي جلوگيري از تداخل تاپيك ها سئوالات به صورت مرتبط و در غير اين صورت در تاپيك مجزا مطرح كنيد.

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]

شرمنده یک سوال دیگه در مورد چاپ
یه گزارش درست کردم که یک ساب ریپورت هم داخلشه. هنگامی که رکورد های ساب ریپورت تغییر کنه کلیه ایتم های داخل گزارش جا به جا میکنه
آیا میشه کاری کرد که این مشکل پیش نیاد؟؟

[reza2371]

شرمنده یک سوال دیگه در مورد چاپ
یه گزارش درست کردم که یک ساب ریپورت هم داخلشه. هنگامی که رکورد های ساب ریپورت تغییر کنه کلیه ایتم های داخل گزارش جا به جا میکنه
آیا میشه کاری کرد که این مشکل پیش نیاد؟؟

کسی میتونه منو راهنمایی بکنه؟؟؟
ممنونم

[amirzazadeh]

کسی میتونه منو راهنمایی بکنه؟؟؟
ممنونم

اگر نمونه كارتون رو اپلود كنيد دوستان بهتر ميتونند جواب بدهند.