biskra

Dim objAdb As Object Set objAdb = CreateObject("Access.Application") objAdb.OpenCurrentDatabase ("F:\Revision.mdb") objAdb.DoCmd.OpenReport "revision", acPreview جرب الكود

جرب الكود التالي في حدث KeyDown في خصائص التقرير 
If KeyCode = vbKeyP Then MsgBox "عذرا لا يسمح لك بالطباعة", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyV Then MsgBox "عذرا لا يسمخ بنسخ صورة التقريرm", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyC Then MsgBox "عذرا لا يسمح بأخذ نسخة من شاشة التقرير", vbCritical, "ERROR" KeyCode = 0 نعدل لتعطيل نسخ الشاشة و لصقها  أي تعطيل Ctrl C و Ctrl V 

محاولة بسيطة للمطلوب لآن المعلومات الموجودة بالجدول غير متانسقة فالإسم تجده متكرر لكن رقم التعريف الوطني غير مطابق، للوصول للمطلوب بالصبط يجب أن تكون البيانات متاسقة للبحث عن السجلات المطVisitors_3.mdbررة أكثر من مرة على الأقل بتطابق حقلين مثلا الاسم و المعرف الوطني

لا يمكنك مطلقًا معرفة كيف سيتم ترتيب نتائج الاستعلام ما لم تحدده صراحة عبارة ORDER BY. يجب بدلاً من ذلك تسمية وظيفتي المجال DFirst و DLast باسم DRandom.
من المستحيل معرفة ما سيعودون بالضبط.
على الرغم من أنه يتطلب جهدًا إضافيًا ، فمن الأفضل عادةً استخدام الدالتين Min- و Max التجميعيتين لإرجاع نتيجة محددة وموثوقة.
"من موقع أجنبي مترجم"

يفهم من ذلك أن البرنامج مجاني للإستعمال، فقط أي غير قابل للتعديل طالما أن السور كود محمي.

جرب الطريقة التالية
 
 
New Microsoft Access Database.accdb

جرب الكود التالي لزر أمر معاينة التقرير بعد تنفيد الفرز المطلوب
 
جرب الكود التالي
If Me.Filter = "" Then MsgBox "الرجاء تحديد معيير الفرز" Else DoCmd.OpenReport "تقرير مساحات Amount", acViewReport, , Me.Filter End If  

مجرد اقتراد للكود xxx حتى يسهل عليك التعامل معه عند التعدي غيره للتالي
Sub xxx() For i = 1 To 5 Me.Controls("f" & i).Visible = False Next i End Sub  

مجرد اقتراد للكود xxx حتى يسهل عليك التعامل معه عند التعدي غيره للتالي
Sub xxx() For i = 1 To 5 Me.Controls("f" & i).Visible = False Next i End Sub  

مجرد اقتراد للكود xxx حتى يسهل عليك التعامل معه عند التعدي غيره للتالي
Sub xxx() For i = 1 To 5 Me.Controls("f" & i).Visible = False Next i End Sub  

افتح التقري في وضعية التصميم ثم من شريط الأدوات كما في الصورة

انقر على زر Colums سوف تظهر لك نافذة كالتالي

أختر أعمدة أو Colums كما في الصورة و ضع رقم 2 أو أي عدد للأعمدة التي تريدها و جرب
 

مثال للطب يعتمد الدالة التالية
Public Function mod_Autonum(ByVal strField As String, ByVal strTable As String) As String Dim dmval As String, dt1 As String, dt2 As String, Seq As Integer, dv As String 'get the highest existing value from the table dmval = Nz(DMax(strField, strTable), 0) 'if returned value is 0 then the table is new and empty 'create autonumber with current date and sequence 1 If Val(dmval) = 0 Then dv = Format(Now(), "yyyymmdd") * 1000 + 1 mod_Autonum = dv Exit Function End If 'format the number as an 11 digit number dv = Format(dmval, "000000000") 'take the 3 digit sequence number separately Seq = Val(Right(dv, 3)) 'take the date value separately dt1 = Left(dv, 8) 'get today's date dt2 = Format(Now(), "yyyymmdd") 'compare the latest date taken from the table 'with today's date If dt1 = dt2 Then 'if both dates are same Seq = Seq + 1 'increment the sequence number 'add the sequence number to the date and return mod_Autonum = Format(Val(dt1) * 1000 + Seq) Exit Function Else 'the dates are different 'take today's date and start the sequence with 1 mod_Autonum = Format(Val(dt2) * 1000 + 1) End If End Function تستدعى الدالة من النموذج قبل التحديث بالأمر التالي
Private Sub Form_BeforeInsert(Cancel As Integer) Me![CardNo] = mod_Autonum("CardNo", "Patients") End Sub للتأكد من أن الرقم يبدأ من 1 لليوم الموالي قم بتعديل التاريخ للسجلات السابقة في الجدول مثلا السجل الأول به تاريخ 20210206001  عدل التاريخ و اجعله لتاريخ سابق مثلا  20210205001  عدل مجموعة السجلات بنفس الطريقة ثم عد الى النموذج و قم بإدخال سجلات جديدة لاحظ أن الترقيم سوف يبدأ من 1
الترقيم سوف يظهر تلقائيا بمجرد بداية إدخال البيانات مثلا أكتب في حقل Title مثلا السيد حينها يبدأ الترقيم
ترقيم خاص.rar

قصدك البحث بمعيار أو أكثر، في المثال المرفق سوف تجد ما تبحث عنه،
 
DatasheetLikeFilter 2(1).zip