اذهب الي المحتوي

هذه الصفحة تحدث تلقائياً     

  1. الساعة الأخيرة
  2. السلام عليكم . لدي جدولان مرتبطان بعدة حقول و عند محاولة عمل زر لإضافة عدد من السجلات إلى نموذج فرعي بناء على قيمة حقل في النموذج الأساسي لم يعمل الأمر الموجود في المثال المرفق بالرغم من عمله في نماذج أخرى . و الطلب الآخر ... إن أمكن أن أضمن السؤال طلبين ... هو عمل إشعار عند تقاطع مدد زمنية . و الطلبان مشروحان بالتفصيل بالنموذج المرفق المثال على ميديا فاير بسبب حجمه و جراكم الله كل خير
  3. سيدي الفاضل ابو عبدالله عندك مشكلتين: 1. في الاستعلام usys_account ، عندك كلمة usys مكررة مرتين ، وهذا خطأ مطبعي ، 2. ولكن المشكلة الاكبر والتي لا يعرفها الكثير من المبرمجين ، وهو عدم استعمال علامة "ناقص" في مسميات كائنات الاكسس (لاحظ اسم الجدول usys-invoicesale ) ، واذا اردت استعمالها كلٌ ولابد ، فيجب ان تضع هذا المسمى بين قوسين مربعين في الكود ، هكذا: [usys-invoicesale] جعفر
  4. وعليكم السلام اذا كان اسم الحقل: A ، فغيّره الى A1 مثلا ، ونفترض ان مصدر الحقل هو A كذلك ، فغيّره الى: =nz([A];0) جعفر
  5. انسخ النص أدناه وابحث عنه في الوورد مع اختيار حروف البدل: <ال[! ]@[ًٌٍ]>
  6. وعليكم السلام في النموذج TestF نضيف الحدث على التحميل ، و وحدة نمطية لحساب عدد الحقول: Function Count_Fields() Dim rst As DAO.Recordset 'Set rst = Forms!main!Datamasterform!TestF.Form.RecordsetClone Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount K1 = 0: K2 = 0 For i = 1 To RC If rst!Country = "اسكندرية" Then K1 = K1 + 1 End If If rst![on or of] = -1 Then K2 = K2 + 1 End If rst.MoveNext Next i Me.Count_Esk = K1 Me.Count_True = K2 Me.Count_False = RC - K2 End Function Private Sub Form_Load() Call Count_Fields End Sub . وعند الضغط على زر التصفية ، ننادي الوحدة النمطية اعلاه: Call Form_TestF.Count_Fields جعفر 660.2.Test2006.mdb.zip
  7. السلام عليكم ورحمة الله وبركاتة الاخوة الكرام عباقرة اوفيسنا ( بعد التحية ) في الصور المرفقة صورة من كتاب الوزارة تحتوي على رمز التكامل وفي الصورة الأخرى محاولتي لكتابة نفس الرمز ولكن هناك اختلاف في طريقة كتابة الرموز العلوية السفلي للتكامل في متاب الوزارة هناك احد الرمزين خلف التكامل والأخر امامة اما في الورد كلا الرمزين في نفس الاتجاة برجاء المساعدة في طريقة كتابة نفس الرمز كما هو واضح في كتاب الوزارة ولكم جزيل الشكر والتقدير
  8. السلام عليكم وبارك الله بكم جميعا اعضاء و مشرفين في موضوع سابق اظهار نتائج البحث بين تاريخين ومع الوصول للمطلوب ولكن الآن عند تطبيق نفس الموضوع على قاعدة جديدة ظهر خطأ في استعلام التوحيد وخطأ آخر عند حدث زر التحديث ☹️ رابط الموضوع السابق هنا وكل الكلام مسبوق بالشكر الجزيل zabon.rar
  9. Today
  10. بلال اليامين

    عدم ترك الحقل فارغ

    اخي اريد عند التحديث يظهر رقم الموظف في رسالة التنبيه
  11. jjafferr

    اضافة جملة فى رسالة

    انا لم انزل مرفقك ، فالكود السابق لم يكن يعمل على المادة اصلا !! جرب الكود التالي Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo err_chk_BeforeUpdate Dim ctl As Control Dim rst As DAO.Recordset Dim dbs As DAO.Database Dim fName As String: Dim myCriteria As String Dim A0 As String: Dim A1 As String: Dim A2 As String If Left(Me.ActiveControl.Name, Len("TextBox")) <> "Textbox" Then Set ctl = Me.ActiveControl Else Set ctl = ctlDrop End If 'fName = "[" & Mid(ctl.Name, 1, Len(ctl.Name) - 1) & "-مادة" & Right(ctl.Name, 1) & "]" '[الاثنين-مادة1] fName = "[" & Mid(ctl.Name, 1, Len(ctl.Name) - 1) & Right(ctl.Name, 1) & "]" myCriteria = "[" & ctl.Name & "]=" & Chr(39) & ctl.Value & Chr(39) Debug.Print "Select * From [Teacher Class] Where " & myCriteria 'A0 = DLookup(ctl.Name, "Teacher Class", myCriteria) 'A1 = DLookup(fName, "Teacher Class", myCriteria) 'A2 = DLookup("[NAMEe]", "Teacher Class", myCriteria) Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Select * From [Teacher Class] Where " & myCriteria) A0 = rst(ctl.Name) A1 = rst(fName) A2 = rst!NAMEe ' If A0 > 0 Then Beep If MsgBox("...هذا الفصل " & ctl.Name & "..لديه مادة.." & vbCrLf & _ " باسم : " & A1 & vbCrLf & _ " للمدرس : " & A2, _ vbYesNo + vbCritical + vbMsgBoxRight, "تنبيه") = vbNo Then Me.Undo Cancel = True End If ' End If Exit_chk_BeforeUpdate: rst.Close: Set rst = Nothing: dbs.Close Exit Sub err_chk_BeforeUpdate: If err.Number = 3021 Then Resume Next Else MsgBox err.Number & vbCrLf & err.Description End If End Sub واستخدم الطريقة اللي اخبرت في الصورة في مشاركتي السابقة ، على بقية حقول المادة في النموذج ايضا. جعفر
  12. مساء الخير.. عند ادراج زر الامر لفتح تقرير او نموذج يظهر رسالة (قد يكون هناك فاصلة ناقصة او رمز) ارجو المساعدة حيث اني لا اعرف كتابة الاوامر
  13. في التطبيق تم التوضيح
  14. تعجز لساني عن الشكر والتقدير لشخصك الكريم ولا ننحرم من كرمك تحياتي لشخصك
  15. حمدى الظابط

    اضافة جملة فى رسالة

    استاذ جعفر بجد انت انسان ذو خلق وعلم وزوق وشرحك وافى ومنسق ومنظم وعند التجربة النمودج يعمل سليم وصحيح فى المرفق الخاص بحضرتك ولكن عند التجربة على النموذج الخاص بى يعمل جيدا الا عند السحب والافلات فى اى حقل من حقول المادة فقط يعطى رسالة العنصر غير موجود والسحب والافلات فى الفصل يعمل جيدا وسليم مثال للتوضيح اسحب اى مادة واوضعها فى اى حقل من حقول المادة بالجدول تظهر لحضرتك الرسالة ولم اعرف سببها مرفق الملف واعتذر على ما سببته لك من ضيق وجعلك الله لنا فى الارض عونا تقبل تحياتى jjafferr@ جدول الحصص.rar
  16. السلام عليكم محتاج كود عند الكتابة في العمود A يظهر تاريخ اليوم في العمود B ليست هنا المشكلة لكن اريد ان يبدأ تاريخ اليوم من الساعة 6 ص الى اليوم التالي 5:59 ص ثم بعدها يغير تاريخ اليوم التالي العادة انة يتغير التاريخ الساعة 00:00 لاكن انا اريد الفكرة اللي فوق ...... هل ممكن أجد لها حل
  17. السلام عليكم ورحمة الله وبركاته اساتذتى الافاضل فضلا وكرما مرفق ملف ورد مع قاعدة البيانات تم شرح المطلوب من خلاله بسبب تصفحى للمنتديات من الجوال LectureUnBooking.zip
  18. السلام عليكم و رحمة الله وبركاته شوف الموضوع ده به الكوود https://www.officena.net/ib/topic/46702-الماسح-الضوئي-من-اكسل-excel-scaner/
  19. احمدزمان

    حساب

    و عليكم السلام و رحمة الله وبركاته جزاك الله خيرا ============ للعمليات الحسابية للخلايا التي بها نصوص او "" فراغ يجب استخدام الدالة SUM لأنها تقوم بالتعامل مع النصوص على القيمة 0 واذا اردت التعديل على الملف نفسة ممكن اعمله لك
  20. دقة في اجابتك وصبر وعطاء وكرم منك في تحملكَ اسئلتنا وتعبك في الرد لطيب اصلك وسريرتك ... زادك الله من فضله ورفع قدرك وعلمك شكرا لحضرتك استاذ سليم ... شكرا لكل من يعمل على هذا الصرح الكبير الرائع
  21. jjafferr

    اضافة جملة فى رسالة

    وعليكم السلام بما انك عملت تغيير في الكود الاصل ، واللي كان تابع لحدث "قبل التحديث" الحقول ، فيجب ان نُرجع الكود ، بحيث انه يخاطب كود "قبل تحديث النموذج" ، وبدل ان اضيف الكود لكل حقل ، اعمل التالي: اختار الحقول التي يجب على البرنامج يتأكد منها (كما في الصورة ادناه) ، ثم في الحدث "قبل التحديث" لهذه الحقول ، ننادي الوحدة النمطية chk_BeforeUpdate (رجاء كتابة اسم الوحدة النمطية كما تراها في الصورة ادناه) ، هكذا : . وعليه ، فيجب علينا إضافة الوحدة النمطية الجديدة ، وعمل تعديل بسيط على الكود الاصل ، ليصبحا هكذا : Function chk_BeforeUpdate() Call Form_BeforeUpdate(0) End Function Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo err_chk_BeforeUpdate Dim ctl As Control Dim rst As DAO.Recordset Dim dbs As DAO.Database Dim fName As String: Dim myCriteria As String Dim A0 As String: Dim A1 As String: Dim A2 As String If Left(Me.ActiveControl.Name, Len("TextBox")) <> "Textbox" Then Set ctl = Me.ActiveControl Else Set ctl = ctlDrop End If fName = "[" & Mid(ctl.Name, 1, Len(ctl.Name) - 1) & "-مادة" & Right(ctl.Name, 1) & "]" '[الاثنين-مادة1] myCriteria = "[" & ctl.Name & "]=" & Chr(39) & ctl.Value & Chr(39) 'A0 = DLookup(ctl.Name, "Teacher Class", myCriteria) 'A1 = DLookup(fName, "Teacher Class", myCriteria) 'A2 = DLookup("[NAMEe]", "Teacher Class", myCriteria) Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Select * From [Teacher Class] Where " & myCriteria) A0 = rst(ctl.Name) A1 = rst(fName) A2 = rst!NAMEe ' If A0 > 0 Then Beep If MsgBox("...هذا الفصل " & ctl.Name & "..لديه مادة.." & vbCrLf & _ " باسم : " & A1 & vbCrLf & _ " للمدرس : " & A2, _ vbYesNo + vbCritical + vbMsgBoxRight, "تنبيه") = vbNo Then Me.Undo Cancel = True End If ' End If Exit_chk_BeforeUpdate: rst.Close: Set rst = Nothing: dbs.Close Exit Sub err_chk_BeforeUpdate: If err.Number = 3021 Then Resume Next Else MsgBox err.Number & vbCrLf & err.Description End If End Sub . اما بالنسبة الى رسائل الخطأ التي تكلمت عنها ، فلا علم لي بها , ولم تظهر لي. جعفر جدول الحصص.zip
  22. تم التعديل Option Explicit Sub Salim_Index() Application.ScreenUpdating = False Dim S_sh As Worksheet: Set S_sh = Sheets("الدرجات") Dim Index_sh As Worksheet: Set Index_sh = Sheets("قائمة") If ActiveSheet.Name <> Index_sh.Name Then GoTo Leave_Me_Out Dim my_st1$, my_st2$, my_st3$ Dim lr%: lr = S_sh.Cells(Rows.Count, 1).End(3).Row Dim Flt_Rg As Range: Set Flt_Rg = S_sh.Range("a4:R" & lr) Index_sh.Range("b5:c150").ClearContents my_st1 = "=" & Index_sh.[j1] my_st2 = "=" & Index_sh.[j2] my_st3 = Replace(Index_sh.[j3], "*", "") my_st3 = "*" & my_st3 & "*" Flt_Rg.AutoFilter Field:=13, Criteria1:=my_st1 Flt_Rg.AutoFilter Field:=4, Criteria1:=my_st2 Flt_Rg.AutoFilter Field:=15, Criteria1:= _ "=" & my_st3, Operator:=xlAnd '=========================== Flt_Rg.Columns(2).SpecialCells(xlCellTypeVisible).Copy Index_sh.Range("b4").PasteSpecial Paste:=xlPasteValues Flt_Rg.Columns(3).SpecialCells(xlCellTypeVisible).Copy Index_sh.Range("c4").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Flt_Rg.AutoFilter Leave_Me_Out: Application.ScreenUpdating = True End Sub الملف filter by 3 Criterias_Modifier.xlsm
  1. Load more activity


×