د.كاف يار

اتبع الإجراءات التالية اولاً / انشئ Module1 جديد و الصق فيه الشيفرة التالية Option Compare Database ption Explicit Public MyUserName, MyPassword, Full_Name, MyUser_Active, MyAddition, MyUpdate, MyDeletion, MyUser_NO As String Const SW_HIDE = 0 Const SW_NORMAL = 1 Const SW_MINIMIZED = 2 Const SW_MAXIMIZED = 3 Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub و في النموذج الرئيسي في حدث عند الفتح الصق الكود التالي HideAccess فالك التوفيق انشاء الله

راح ياخذ حجم اي شاشة من جميع الاتجاهات

اخي في حدث عند الفتح ضع الكود التالي Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long With Me DoCmd.Maximize lngWT = .WindowTop lngWL = .WindowLeft lngWH = .WindowHeight lngWW = .WindowWidth DoCmd.Restore Call .Move(lngWL, lngWT, lngWW, lngWH) End With سيتم تثبت مقاسات الفورم و ان لا تكون قابلة للتغيير

الله يسلمك على رأسي والله انك استفدت شكرا لك

طلبك غير واضح DblClick على ايش بالضبط تقدر تضع حدث عن الضغط المزدوج على اي عنصر و بطبيعة الحال جميع العناصر DblClick لا يوجد بها اي حدث

تفضل هذا تعديل لإخفاء الأرقام الغير مستخدمة 2NM.zip

اتفضل هذي مشاركتي مع الشباب NM.zip

نصيحة لك اخي الكريم بما ان هذا هدفك فهذا القسيم ليس المكان المناسب للبحث عن ذلك لكن الأهم ان لا تنتظر الحل ربما انك لن تحصل عليه بما انك بدءت فالأولى ان تكمل مشوارك و قم ببناء النموذج الذي ترغب به من حيث التصميم و العناصر و من ثم انشئ موضوع لكل قسم في النموذج ستجد انك اكملت مشورعك في وقت قصير او توجه لقسم البرامج المدفوعة و قم بشراء نسخة مدفوعة او ابني صفقة مع مبرمج

ياليت تشرح كيف احتواء تلقائي هل تقصد مثل هذا اذا مثل هذا فهذه الطريقة و مرفق مثال لذلك بالعربي قابل للنوم = نعم / قابل للنقص = لا Report.mdb

جرب الكود الي اعطيتك هو لا تحاول تنفذ اشياء تصعب عليك جرب الكود الي اعطيتك هو و بعد التجربة احكم هل يأدي المصلحة او لا

تفضل هذا الكود فقط انسخ و الصق في ازرار النسخة الاحتياطية On Error GoTo ErrH Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) DoCmd.RunSQL "CREATE TABLE Backup (Backup_NO INT , Backup_Name VARCHAR (50) , Backup_Path VARCHAR (100), Backup_Date Date);" End If Dim MyFile, DstFile, DataName As String Dim Syso As Object MyFile = CurrentProject.FullName DataName= "Backup-" & Format(Now, "dd-mm-yyyy") & "-(" & Format(Now, "hh.nn.ss") & ")" DstFile = CurrentProject.Path & "\Backup\" & DataName & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" Dim db As DAO.Database Dim MaxBackup_NO As Integer MaxBackup_NO = Nz(DMax("[Backup_NO]", "[Backup]"), 0) + 1 Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Backup") With rs .AddNew ![Backup_NO] = MaxBackup_NO ![Backup_Name] = DataName ![Backup_Path] = DstFile ![Backup_Date] = Now() .Update End With rs.Close Set rs = Nothing MsgBox "تم انشاء قاعدة البيانات بنجاح", vbMsgBoxRight + vbOKOnly, "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select

اتفضل هذا التعديل Database3.accdb

افضل حيلة للتعامل معاه انك بعد النقر تجعل التركيز على اي مربع نص بكذه تكون اصبت الهدف 😁

كفو و بيض الله و جهك و كلنا انشاء الله مكملين لبعض و نستفيد و نفيد

العفو و تحت امرك في اي وقت

تفضل هذا التعديل الفكرة ! نجمع العمود A مع العمود B و تصير كلها في عمود واحد و بعدها نجمع عدد مرات التكرار بدالة Count مرفق التعديل Database3.accdb اتفضل التعديل Database3 (1).accdb

تفضل هذا التعديل Database3.accdb

انت استبدلت مربع التسمية بالأزرار 😂 ممتاز فكل الطرق مؤدية للحلول الصحيحة

😂 الواضح اني استعجلت في الرد ههههههههه انصحك بطريقة اخونا جعفر صدقني هذي افضل و اسهل طريقة بما انك مبتدئ

ابو لين لحظة انت ما قلت فلترة اختلف طلبك عن الاساسي هذا طلبك الأول يعني انت كنت تحتاج تقارن عمود مع عمود مقابل لكن هنا اختلف طلبك انك تحتاج تقارن سطر مع سطر يعني القيمة في العمود الأول قد تكون في السطر رقم 1 و القيمة في العمود الثاني قد تكون في السطر رقم 10 هل هذا ما تريده ؟؟؟

على هونك اخوي ايش فيك زعلان كلنا مكملين لبعض و بالاخص انا هنا لاجل إني اتعلم و آخذ شوي من خبرات الشباب تفيدني في الدراسة خل صدرك وسيع و الموضوع ما يستاهل انك تزعل نفسك

تفضل هذا المثال و هذا طباعة الباركود بنفس المقاسات المرفقة مع تعريف الطابعة موقع الشركة للحصول على التعريف اضغط هنا لتحميل التعريف الخاص بالطابعة مرفق الخط + المثال Desktop.zip

ارفق مثالك الموضوع سهل و بسيط انشاء الله كذلك اعطينا مقاسات لاصقة الباركود بالسانتي متر و اسم طابعة الباركود و رقم الاصدار و لو امكن تزودني بالتعريف الخاصة بالطابعة

اتفضل التعديل يابو الحسن DATA14 (11111).accdb

تفضل هذا تفضل هذا المثال Data1.mdb