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

ابوخليل

أوفيسنا
  • Posts

    9,947
  • تاريخ الانضمام

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

  • Days Won

    133

Community Answers

  1. ابوخليل's post in كود لتغيير الاعدادات لاخفاء المجلدات في خيارات مستكشف الملفات ويندوز10 was marked as the answer   
    واذا نظام الوندز عندك 64 بت
    جرب استبدال الجملة في اعلى المحرر
    Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه
    Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة  PtrSafe
  2. ابوخليل's post in كود لتغيير الاعدادات لاخفاء المجلدات في خيارات مستكشف الملفات ويندوز10 was marked as the answer   
    واذا نظام الوندز عندك 64 بت
    جرب استبدال الجملة في اعلى المحرر
    Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه
    Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة  PtrSafe
  3. ابوخليل's post in كود لتغيير الاعدادات لاخفاء المجلدات في خيارات مستكشف الملفات ويندوز10 was marked as the answer   
    واذا نظام الوندز عندك 64 بت
    جرب استبدال الجملة في اعلى المحرر
    Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه
    Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة  PtrSafe
  4. ابوخليل's post in كود لتغيير الاعدادات لاخفاء المجلدات في خيارات مستكشف الملفات ويندوز10 was marked as the answer   
    واذا نظام الوندز عندك 64 بت
    جرب استبدال الجملة في اعلى المحرر
    Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه
    Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة  PtrSafe
  5. ابوخليل's post in مساعدة لعرض صورة داخل عدة تقارير من خلال النموذد was marked as the answer   
    الحل انك تعمل وحدة نمطية عامة تحمل قيمة الحقل ID
    بكذا تستطيع مناداتها من اي مكان من البرنامج
    تفضل المثال بعد التعديل
    Downloads.rar
  6. ابوخليل's post in الغاء الحفظ التلقائي was marked as the answer   
    ايسر طريقة لمنع الحفظ التلقائي هو جعل خصيصة احد الحقول في الجدول : مطلوب=نعم
    بهذه الطريقة لن يتم حفظ السجل الا بعد تعبئة هذا الحقل
    طرفة في الحيل :
    اذكر واحد من الاخوة هنا قام بالتحايل على على هذه العملية بانشاء حقل  في الجدول و يكون مخفي داخل النموذج وجعله مطلوب=نعم 
    وعند النقر على زر الحفظ يتم تعبئته بقيمة = 0
     
  7. ابوخليل's post in مساعدة في عمل رسم بياني بين استعلامين was marked as the answer   
    هو بالفعل مبني على الاستعلام ،، لاحظ انه لن يتم عرض المخطط حتى تدخل التواريخ
    تفضل التعديل حسب طلبك
     

    Newe2.rar
  8. ابوخليل's post in كود تحقق من اتصال الشبكة المحليه في الجهاز was marked as the answer   
    تفضل هذا الموضوع 
  9. ابوخليل's post in فواتير مرتجع المبيعات --------- الشرح اسفل was marked as the answer   
    لو سايرنا ابا اشرف في فكرته فانه يلزم  عمل جدول او على الأقل حقول خاصة  تبين تفاصيل العملية مع المبالغ المستردة او المدفوعة اضف الى ذلك ان حركة البيع السابقة تم قتلها . بينما الطريقة التي عرضتها يكفي ان تشير الى سبب الارجاع في الملاحظات ، وفي النهاية يتم حصر الاموال الداخلة والخارجة بكل يسر  وكذلك يمكننا الاستعلام عن جميع المرتجعات بيع او شراء والملاحظات حولها . كل هذا ضمن جدول واحد
  10. ابوخليل's post in المساعدة في اظهار اخر عملية تسديد was marked as the answer   
    سيصبح الكود هكذا
    =DMax("date_catch";"TBCatch";"id_reader=" & [id_reader] & " And typy_cach='" & "catch" & "'")  
  11. ابوخليل's post in حذف سجل من خلال كود vba - الشرح بالصورة المرفقة was marked as the answer   
    Private Sub amount_BeforeUpdate(Cancel As Integer) If IsNull(Me.amount) Then Exit Sub Dim i, j As Integer i = DLookup("salary", "emp", "id=" & emp_name) j = DSum("amount", "qryAmountInMonth", "emp_name=" & emp_name) If j + Me.amount > i Then Undo MsgBox "المبلغ يتجاوز المرتب الشهري" Exit Sub End If End Sub  
    delete2.accdb
  12. ابوخليل's post in مساعدة في فتح نمودج على بيانات ثلاثة نمادج was marked as the answer   
    الاعلان عن متغير عام
    Public wrCombVal As String هذا المتغير يأخذ قيمته عند النقر على الزر في اي نموذج من النماذج الثلاث
    جعل مربع التحرير يأخذ  قيمة المتغير  wrCombVal عند فتح النموذج
    Private Sub Form_Load() Me.FS.RowSource = wrCombVal End Sub تفضل
    FFF2.accdb
  13. ابوخليل's post in التحكم في فترة التشغيل عن طريق الجدول was marked as the answer   
    odate = Dlookup("your filedDate name","your table name") بدلا من 
    odate = #3/28/2021# باعتبار your filedDate name هو اسم حقل التاريخ في الجدول و your table name هو اسم الجدول
  14. ابوخليل's post in مساعده في نسخ قيمة الحقل السابق was marked as the answer   
    عليكم السلام
    مع ان تصميم الجدول سيء ويوجد عليه كثير من الملاحظات
    ولكني احببت ان اضع هنا حل في تطبيق فكرة السؤال ، وذلك لدلالة العنوان
    فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة
    ولو تم تضمين المسميات العربية لما تمكن احد من قراءة الكود بالصورة الصحيحة ، حيث ستختلط المسميات يمينا ويسارا 
    فنصيحتي الا تستخدم الحروف العربية عند تصميم الجداول وتجنب المسافات الخالية بين الكلمات
    الحل وحدة نمطية ترجع بآخر قيمة من الرصيد بالاعتماد على اعلى رقم في مفتاح الجدول
    ثم نضع هذه الدالة في القيمة الافتراضية لحقل الباقي من التمويل
    Public Function rsdsabq() Dim i As Integer i = DMax("id", "tbl_tmweel") rsdsabq = DLookup("raseed", "tbl_tmweel", "id=" & i) End Function  
    الرصيد.accdb
  15. ابوخليل's post in مساعده في نسخ قيمة الحقل السابق was marked as the answer   
    عليكم السلام
    مع ان تصميم الجدول سيء ويوجد عليه كثير من الملاحظات
    ولكني احببت ان اضع هنا حل في تطبيق فكرة السؤال ، وذلك لدلالة العنوان
    فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة
    ولو تم تضمين المسميات العربية لما تمكن احد من قراءة الكود بالصورة الصحيحة ، حيث ستختلط المسميات يمينا ويسارا 
    فنصيحتي الا تستخدم الحروف العربية عند تصميم الجداول وتجنب المسافات الخالية بين الكلمات
    الحل وحدة نمطية ترجع بآخر قيمة من الرصيد بالاعتماد على اعلى رقم في مفتاح الجدول
    ثم نضع هذه الدالة في القيمة الافتراضية لحقل الباقي من التمويل
    Public Function rsdsabq() Dim i As Integer i = DMax("id", "tbl_tmweel") rsdsabq = DLookup("raseed", "tbl_tmweel", "id=" & i) End Function  
    الرصيد.accdb
  16. ابوخليل's post in مساعده في نسخ قيمة الحقل السابق was marked as the answer   
    عليكم السلام
    مع ان تصميم الجدول سيء ويوجد عليه كثير من الملاحظات
    ولكني احببت ان اضع هنا حل في تطبيق فكرة السؤال ، وذلك لدلالة العنوان
    فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة
    ولو تم تضمين المسميات العربية لما تمكن احد من قراءة الكود بالصورة الصحيحة ، حيث ستختلط المسميات يمينا ويسارا 
    فنصيحتي الا تستخدم الحروف العربية عند تصميم الجداول وتجنب المسافات الخالية بين الكلمات
    الحل وحدة نمطية ترجع بآخر قيمة من الرصيد بالاعتماد على اعلى رقم في مفتاح الجدول
    ثم نضع هذه الدالة في القيمة الافتراضية لحقل الباقي من التمويل
    Public Function rsdsabq() Dim i As Integer i = DMax("id", "tbl_tmweel") rsdsabq = DLookup("raseed", "tbl_tmweel", "id=" & i) End Function  
    الرصيد.accdb
  17. ابوخليل's post in فصل البيانات في الحقل was marked as the answer   
    المنتدى مليء بمثل هذه المواضيع
    فقط ابحث ستجد الكثير
    هذا مثال
  18. ابوخليل's post in فصل البيانات في الحقل was marked as the answer   
    المنتدى مليء بمثل هذه المواضيع
    فقط ابحث ستجد الكثير
    هذا مثال
  19. ابوخليل's post in فصل البيانات في الحقل was marked as the answer   
    المنتدى مليء بمثل هذه المواضيع
    فقط ابحث ستجد الكثير
    هذا مثال
  20. ابوخليل's post in ترقيم حقل بناء على قيمة حقل آخر was marked as the answer   
    تعديل بسيط  ان شاء الله يكون هو  المتقن والمعتمد
    On Error Resume Next Dim i As Integer Dim ii, j As Long Dim rs1, rs2 As Dao.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 =1 ORDER BY TAB.TNO") Set rs2 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 >1 ORDER BY TAB.TNO") rs1.MoveLast: rs1.MoveFirst For i = 0 To rs1.RecordCount Step 0 i = i + 1 rs1.Edit rs1!MNO = i rs1.Update rs1.MoveNext Next i rs2.MoveLast: rs2.MoveFirst ii = 10000 For ii = 10000 To (rs2.RecordCount + ii) Step 0 ii = ii + 1 rs2.Edit rs2!MNO = ii rs2.Update rs2.MoveNext Next ii Set rs1 = Nothing Set rs2 = Nothing  
  21. ابوخليل's post in الرجاء المساعد لعمل شيت للموظفين was marked as the answer   
    عليكم السلام
    سؤالك عام ، واجابته ستكون عامة
    ان اردت اظهار جميع الموظفين كقائمة في تقرير  يجب عليك استخدام استعلام تجميعي خلال شهر  تعمل فيه مقارنة بين ساعة الحضور المطلوبة ووقت الحضور الفعلي
    وان اردت الاستفسار عن موظف معين خلال يوم محدد  فسطر  برمجي يقوم بالمهمة
    اخي الكريم حتى تحصل على اجابة سريعة من الأعضاء  يلزمك رفع مرفق يشتمل على جدول الحضور  وغيره من الكائنات التي تريد التعديل عليها
  22. ابوخليل's post in منع تكرار بصمة الكارت was marked as the answer   
    البيانات في المرفق ليست حقيقية تماما
    فحقل النوع يشتمل على الدخول فقط  "I"  ولا يوجد الخروج
    لذا قمت بالتعديل على اليوزر  رقم 2  وعدلت في حقل النوع فوضعت توقيعين متتالين خروج
    الآن سيكون مصدر البيانات الأساسي هو الاستعلام  qry_In_Out  بدلا من الجدول 
    طبعا سوف يتم التصفية على اول توقيع خلال يوم محدد سواء دخول او خروج
    انظر في المرفق 
     
    att2000_1.rar
  23. ابوخليل's post in خصم 10% من قيمة الجهاز عن كل سنة خدمه was marked as the answer   
    بالتأكيد السبب هو  كثرة الأوامر داخل الاستعلام
    واسهل طريقة هي تجزئة الاستعلام
    انظر  مثالك بعد التعديل
    نسبة الاستهلاك1 .rar
  24. ابوخليل's post in تعبئة تلقائية was marked as the answer   
    تفضل .. اتمنى يكون هو مطلوبك
    Upالملاك 2021.rar
  25. ابوخليل's post in تعبئة تلقائية was marked as the answer   
    تفضل .. اتمنى يكون هو مطلوبك
    Upالملاك 2021.rar
×
×
  • اضف...

Important Information