اذهب الي المحتوي
أوفيسنا

متقاعد

الخبراء
  • Posts

    583
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    25

Community Answers

  1. متقاعد's post in مساعدة في مربع نص was marked as the answer   
    مع اني ربما لم افهم المطلوب
    ولكني ساحاول
    ممكن نعمل اجراء
    Sub k() Dim a As Byte Dim n, m As String For a = 1 To Len(ActiveControl.Name) n = Mid(ActiveControl.Name, a, 1) Select Case n Case "0" To 9 m = m & n End Select Next a Me.textbox1 = m End Sub ثم في كل زر امر نستدعي الاجراء بالشكل التالي
    k طبعا هذا الاستداء لايؤثر على اي اوامر في الازار
    هذا الرد مجرد تحفيز للاساتذة لتقديم حلول افضل
    الملف في المرفقات
     
    New Microsoft Access قاعدة بيانات).accdb
  2. متقاعد's post in التوفيق بين البرامج المعمولة بالعربية ولغة اجنبية was marked as the answer   
    هذا الموضوع يا ازهر ⬇️
     
  3. متقاعد's post in اضافة تسلسل الارقام و التاريخ الى النموذج الفرعى was marked as the answer   
    في زر الامر ضع التالي
    Dim x As Date Dim a As Integer Dim rs As DAO.Recordset x = Forms![TEST1]![Date_M] Set rs = CurrentDb.OpenRecordset("subx") For a = Forms![TEST1]![NumberEnd] - 1 To Forms![TEST1]![NumberStart] - 1 rs.AddNew rs!date1 = x rs!id = Forms![TEST1]![id1] rs!serial = Forms![TEST1]![serial] rs!NumberX = a + 1 x = DateAdd("d", Forms![TEST1]![ChooseDayes], x) rs.Update Next a rs.Close Set rs = Nothing Me.Requery لو تلاحظ اني لم اغير في طريقتك هو تقريبا نفس كودك ولكن يتعامل مع مصدر السجلات
    مع انه يمكن كتابته بشكل افضل ولكني استخدمت طريقتك لايصال المعلومة بشكل اسهل
    تحياتي
     
     

  4. متقاعد's post in مساعدة في تصميم استعلام was marked as the answer   
    EmpsDB.accdb
  5. متقاعد's post in وضع الكود في موديل و استدعائه من بقية النماذج was marked as the answer   
    جرب
    Public Function kha(frm As Form) frm.Section(acDetail).BackColor = RGB(215, 255, 7) End Function وفي حدث عند التحميل للنموذج ضع ⬇️
    kha me  
  6. متقاعد's post in عيد فطر سعيد / متقاعد was marked as the answer   
    هديه جميلة من انسان جميل
    تقبل الله منا ومنكم صالح الاعمال وعيدكم مبارك 🌹
  7. متقاعد's post in ترقمين مختلفين داخل الجدول حسب نوع البيان was marked as the answer   
    ممكن
    Dim x As Integer Select Case Kind_pat Case Is = "lab" x = Nz(DMax("[PCode]", "lab_all", "[Kind_pat]='lab'"), 0) + 1 Case Is = "project" x = Nz(DMax("[PCode]", "lab_all", "[Kind_pat]='project'"), 3000) + 1 End Select PCode = x الملف في المرفقات
     
     
    2023.accdb
  8. متقاعد's post in وضع قيمة حقل في حقل آخر was marked as the answer   
    عند تصميم الماكرو يوجد خيار اظهار كافة الاجراءات
     

  9. متقاعد's post in نقل نموذج من قاعدة بيانات الى اخرى خارجية was marked as the answer   
    المثال يعمل بعد تعديله الى
    DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\test.accdb", acForm, Me.Modifiable9.Column(1), "FramDelete" تحياتي
     

  10. متقاعد's post in عند الضغط على السجل التالى او السابق لا تظهر السجلات was marked as the answer   
    الطريقة الثانية بدون الحاجة للفلترة ثم الغاء الفلترة للوصول للسجل التالي او السابقة
    والطريقة بعمل متغير عام في وحدة نمطية فارعة
    ثم نحمل قيمة المتغير من خلال القائمة SearchList
    بالامر
    x = Me.SearchList.Column(1) وفي امر فتح نموذج المبيعات نضع الامر
    Me.اسم_العميل.SetFocus DoCmd.FindRecord x, acAnywhere, , acSearchAll ولا نحتاج الى اوامر او اكواد اخرى
    الملف مرفق
     
     
    Database1.accdb
  11. متقاعد's post in ادراج أسماء النماذج بالجدول was marked as the answer   
    الخطوة الاولى نظهر ملفات النظام ويهمنا الجدول MSysObjects
    نعمل استعلام ونحتاج الى حقلين فقط name وحقل type وفي خانة المعيار نضع الرقم -32768
    لتكون جملة الاستعلام تساوي
    SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=-32768)); ثم نعمل استعلام جديد مصدرة الاستعلام السابق او نحول الاستعلام السابق الى استعلام الحاق وتكون جملة الاستعلام تساوي
    INSERT INTO tblform ( nameform ) SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name) Not In (SELECT tblform.nameform FROM tblform;)) AND ((MSysObjects.Type)=-32768)); وهنا تجد اننا استخدمنا معيار جديد عبارة استعلام فرعي لكي يلحق فقط اسماء النماذج الجديدة حتى لا يحصل تكرار لاسماء النماذج التي سبق الحاقها
    وايضا ممكن الاستغناء عن استعلام الالحاق بالكود
    وايضا ممكن تحويل الحقل في الجدول الى مربع تحرير وسرد ونجعل مصدرة كود الاستعلام الاول
    الملف مرفق
     
    مثال187.accdb
  12. متقاعد's post in 🔛🔘 برنامج Scrolbar بسيط للتحكم بتحريك فقط » للنماذج المستمره والتوقيت وتاريخ- -{[ Ezril ]}- was marked as the answer   
    موضوع جميل وان لم ينل حقه في التفاعل
    ربما يكون من المواضيع القليلة في الموقع التي تتحدث عن استخدام عناصر تحكم activex وتوظيفها
    تحياتي والى الامام دائما 🌹
  13. متقاعد's post in الحصول على حافة نموذج رفيعة (thin) was marked as the answer   
    وايضا نحتاج الى الدخول على خيارات ثم قاعدة البيانات الحالية ثم خيارات نافذة المستند ثم النوافذ المتراكبة
     


  14. متقاعد's post in رسالة تنبيه عند التكرار was marked as the answer   
    جرب
     
    yasser_10.accdb
  15. متقاعد's post in كود تحديد كامل السجل في الفورم was marked as the answer   
    Me.Table1_subform.SetFocus DoCmd.RunCommand acCmdSelectAllRecords  
    Microsoft Access Database جديد(3).accdb
  16. متقاعد's post in تمكين او عدم تمكين حقل معين بالنموذج الفرعى was marked as the answer   
    للحقل المطلوب عدم تمكينة او مجموعة حقول ادخل تنسيق ثم قاعدة جديدة ثم تعبير
    واكتب الامر التالي
    [Forms]![JMainVoucherForm]![BondType1]="صرف نقدى" ثم انقر على خيار تمكين او عدم تمكين
     

  17. متقاعد's post in مساعده في طريقه نقل بيانات من جدول الي جدول اخر عن طريق كود المنتج was marked as the answer   
    بالتوفيق استاذ محمد والشكر لله
    واتمنى تعديل افضل اجابة لمعلمي واستاذي ابوخليل لكونه صاحب السبق
    اخيرا
    في مثل هذه الحالات التي تتساوي فيها مسميات حقول الجدولين
    يمكن عدم كتابة اسماء الحقول باستبدال
    Me.itemname = rs!itemname Me.itemdesc = rs!itemdesc Me.itemqty = rs!itemqty Me.dateee = rs!dateee الى
    For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = rs.Fields(ctl.Name) وفي هذه الحالة عدد الحقول اربعة فقط وتكون طريقة الحلقة مفيدة اكثر عندما يكون لدينا عدد كبير جدا من الحقول وتفيد ايضا لتجنب الخطأ في كتابة اسماء الحقول
    الامر بعد التعديل
    Dim x As Integer x = DCount("*", "table2", "[itemcode]=" & Me.itemCode) If x > 0 Then GoTo a Else GoTo b End If b: Me.Refresh Dim rs As Recordset Dim strsql As String Dim ctl As Control strsql = "SELECT Table1.* FROM Table1 WHERE Table1.[itemCode]=" & [Forms]![AdditemPerCode]![itemCode] Set rs = CurrentDb.OpenRecordset(strsql) For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = rs.Fields(ctl.Name) End If Next ctl rs.Close GoTo c a: MsgBox "الصنف سبق الحاقة" Me.Undo GoTo c c: Exit Sub الملف مرفق
     
     
    Database3(1).accdb
  18. متقاعد's post in تغيير لون سجلات كومبوبوكس مرتبط بجدول was marked as the answer   
    جرب
    Select Case Modifiable2 Case Is = 1 Me.Modifiable2.ForeColor = vbRed Case Is = 2 Me.Modifiable2.ForeColor = vbBlue Case Is = 3 Me.Modifiable2.ForeColor = vbGreen End Select الملف في المرفقات
     
    1111.accdb
  19. متقاعد's post in رسالة عند عدم وجود هذا الرقم فى جدول اخر was marked as the answer   
    الطريقة الاولى بمصدر السجلات
    If IsNull(Me.Text0) Then GoTo k Else GoTo a End If a: Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT items.* FROM items;") rs.FindFirst "[barcod] =" & Me.Text0 If Not rs.NoMatch Then MsgBox "الرقم مسجل" Else MsgBox "رقم غير مسجل" End If rs.Close Set rs = Nothing Exit Sub k: MsgBox "اكتب رقم الباركود" الثانية عد السجلات بواسطة دالة DCount
    Dim x As Integer x = DCount("[barcod]", "items", "[barcod]=" & Me.Text0) If x > 0 Then MsgBox "الرقم مسجل" Else MsgBox "رقم غير مسجل" End If مرفق الملف
     
    رسالة بعدم وجوده فى جدول اخر(1).accdb
  20. متقاعد's post in مساعدة من فضلكم: عند الضغط المزدوج على السجل لا يذهب الى المريض المطلوب was marked as the answer   
    صحيح لان معيار الحقل النصي يختلف عن الحقل الرقمي
    ويكتب هكذا ⬇️
    DoCmd.OpenForm "Patient Profile", , , "[PatientID]='" & Me.PatientID & "'" الملف مرفق
     
    ID4.accdb
  21. متقاعد's post in طباعة تقارير المريض فى ان واحد was marked as the answer   
    الحمد لله هناك تحسن و الله خير حافظ
    جرب الان اسندنا مصدر الى السجلات الى كود استعلام تجميع
    الملف مرفق
     
    Multi Report(2).accdb
  22. متقاعد's post in Listbox Multiselect was marked as the answer   
    طريقة اخرى باستخدام for next
    Dim k As String Dim i As Integer For i = 0 To List2.ListCount - 1 If List2.Selected(i) = True Then k = List2.Column(0, i) DoCmd.OpenReport k, acViewPreview End If Next i الملف مرفق
     
    Listbox.accdb
  23. متقاعد's post in حذف عدد محدد من جدول الغياب للكل was marked as the answer   
    الحقيقة لا اعلم هل تحقق المطلوب ام لم يتحقق
    الفكره في الكود انه يعدل عدد ايام الغياب وفقا لما اشرتم اليه في المشاركة الاولى
    اما اذا كان المقصود ان يتم التعديل فقط لمن لديه 4 او 5 ايام غياب فاكثر فيمكن تعديله باضافة شرط الحد المانع للتعديل من خلال وضع العدد مباشرة في الكود او من خلال مربع نص وهو الافضل من وجهة نظري حيث يمكن تعديل الحد المانع لحذف الايام او وضع 0 ليكون التعديل لكل الطالبات
    الملف مرفق
     
    test5(1).accdb
  24. متقاعد's post in مشكلة عدم ظهور بيانات في الاستعلام was marked as the answer   
    هل هذا المطلوب
    Data_Base.mdb
  25. متقاعد's post in الغاء الفراغ في التقرير was marked as the answer   
    جرب المرفق
     
    DT1.accdb
×
×
  • اضف...

Important Information