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

Eng.Qassim

04 عضو فضي
  • Posts

    1,131
  • تاريخ الانضمام

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

  • Days Won

    6

Community Answers

  1. Eng.Qassim's post in مشكلة في iif الشرطية was marked as the answer   
    وعليكم السلام اخي ابو هالة
    سؤال بريء..انت شو جابك على هيك جدول وانت من الجزائر؟☺️
    على كل حال ..يوجد نقص في قوس الغلق
    IIf([mon]>0 And [days]>0;("الضريبة" & "=" & [text _bb] & "-" & [tax_old] & "=" & [text _bb]-[tax_old]);0) ثانيا انت محمل الجدول اكثر من طاقته في حقل محسوب وهذا مما لايفضله المبرمج..الجدول لديك فيه مشكلة ولايقبل اضافة اي حقل (لا اعلم لماذا)
    اقتراحي ان تعمل استعلام للحقول المحسوبة وتضيف لها الكود اعلاه
    انظر للمرفق بعد عمل ضغط واصلاح له لان كان حجمه كبير جدا
     
    Database4.rar
  2. Eng.Qassim's post in تحديث تلقائى للجمع عند الكتابة ( 2 ) مع خليه مصدرها استعلام was marked as the answer   
    استاذ محمد ..هو انت عاوز تدخل بيانات من النموذج للاستعلام حتى يحسبلك الضريبة ؟!!
    بصراحة انا مامرت هيك معلومة معاي
    الذي افهمه ان الاستعلام جهة وسيطة وظيفته تصفية البيانات من الجدول وليس ادخال البيانات
  3. Eng.Qassim's post in سؤال هام في التنسيق الشرطي was marked as the answer   
    وعليكم السلام
    اجعل التنسيق الشرطي هكذا

    InStr([notes2];"اعتذار") او يمكن عمل موديول يتم استدعاءه عند فتح النموذج مثلا ...لان طريقة التنسيق مطولة
    Public Sub colCtrlReq(frm As Form) Dim setColour As String setColour = RGB(175, 175, 175) Dim ctl As Control For Each ctl In frm If ctl.ControlType = acTextBox _ Or ctl.ControlType = acListBox Then If InStr(ctl, "اعتذار") <> 0 Then ctl.BackColor = setColour End If End If Next ctl Set ctl = Nothing End Sub ويتم استدعاءه بهذه الطريقة
    Call colCtrlReq(Me)  
  4. Eng.Qassim's post in طريقه حساب قيم مختلفه في التقرير was marked as the answer   
    وعليكم السلام
    لو كنت مرفق مثال كان يسهل علينا بالوقت
    انظر للمرفق
    مقاس.accdb
  5. Eng.Qassim's post in كود لنسخ قيمة الفواتير الى جدول الحسابات تلقائيا was marked as the answer   
    1-    مصدر بيانات الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) هو الجدول Sales_Invoice_main

    ولاحظ ان نوع البيانات  ل Sales_Invoice_No = Number

    بينما الاستعلام customer account sub dollar Query الذي مصدر بياناته الجدول customer account sub dollar والذي نوع البيانات لرقم الفاتورة = short text

    يجب هنا توحيد نوع البيانات ..

    2-    اذا اردت الحاق نتائج الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) فيجب الحاقها الى الجدول customer account sub dollar وليس الى الاستعلام الناتج عنه

    فأذا فتحت استعلام الحاق تفتح لك نافذة (الحاق الى جدول ) وليس الى استعلام ...

    بالتوفيق يارب

  6. Eng.Qassim's post in جلب بيانات من جدول رئيسي الى جدول فرعي عن طريق كومبوبوكس was marked as the answer   
    وعليكم السلام
    بصراحة لم افهم الغاية من الطلب لانه عادة مايكون هناك ربط بين الرئيسي والفرعي حتى تكون سجلات الفرعي تابعة لمفتاح فريد
    لكن حسب طلبك ..انظر للمرفق
    REPORT.accdb
  7. Eng.Qassim's post in مشكل في انشاء قاعدة بيانات الخزينة was marked as the answer   
    هل هذا طلبك ؟
     
    A1.accdb
  8. Eng.Qassim's post in استعلام سجلات بين تاريخين was marked as the answer   
    وعليكم السلام
     
    date1.accdb
  9. Eng.Qassim's post in فتح نافذة من زر بناءً على أكثر من حقل فى النموذج was marked as the answer   
    وعليكم السلام
    ضع الكود بالشكل التالي
    stLinkCriteria = "[Sys_ID]=" & Me![Sys_ID] & "And [Sys_Year]=" & Me![Sys_Year] & "and [Sys_Type]='" & Me![Sys_Type] & "'"  
  10. Eng.Qassim's post in اهتزاز الصفحة عند تحريك سجل وعدم بقائها في الوسط was marked as the answer   
    بصراحة  لم اطلع على البرنامج كاملا..الدالة    refereshعادة ماتعمل اهتزاز
     
    ارجع لكودك  القديم
  11. Eng.Qassim's post in اهتزاز الصفحة عند تحريك سجل وعدم بقائها في الوسط was marked as the answer   
    بصراحة  لم اطلع على البرنامج كاملا..الدالة    refereshعادة ماتعمل اهتزاز
     
    ارجع لكودك  القديم
  12. Eng.Qassim's post in اهتزاز الصفحة عند تحريك سجل وعدم بقائها في الوسط was marked as the answer   
    بصراحة  لم اطلع على البرنامج كاملا..الدالة    refereshعادة ماتعمل اهتزاز
     
    ارجع لكودك  القديم
  13. Eng.Qassim's post in طباعة تقرير شهري من استعلام جدولي was marked as the answer   
    شاهد هذه الطريقة
     
     
    حضور سائقي الملاكي 2022.rar
  14. Eng.Qassim's post in حساب الفرق بين تاريخين was marked as the answer   
    اضافة لما تفضل به استاذي @أبو عبدالله الحلوانى
    انتبه دائما الى نوع البيانات
    Dim year1 As Date Dim year2 As Date Dim month1 As Date Dim month2 As Date year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) If month2 < month1 Then DatDiffY = (year2 - year1) - 1 Else DatDiffY = year2 - year1 End If  
  15. Eng.Qassim's post in هل يوجد طريقة اخرى للفرز تصاعدي و تنازلي الارقام was marked as the answer   
    مشاركة مع اخوتي..
    لاحظ ان الحقل لو كان رقمي يكون اكثر سهولة
     
    تنازلي و تصاعدي.accdb
    في مثالي مجرد تغيير مصدر السجلات بدون تصميم استعلام
  16. Eng.Qassim's post in اخفاء مربع نص من فورم بشرط was marked as the answer   
    وعليكم السلام وكل عام وانتم بخير
    تفضل التعديل
     
    الدالة.accdb
  17. Eng.Qassim's post in @@@@ مساعدة في ربط حقل الوظيفة بحقول الصنف و التصنيف@@@@ was marked as the answer   
    انظر للمرفق..لقد استغنيت عن جدول التصنيف
     
     
    Database32.accdb
  18. Eng.Qassim's post in الطباعة من combobox was marked as the answer   
    انظر للمرفق على وجه السرعة ..لاقتراب وقت اذان الفجر
    exemple.rar
  19. Eng.Qassim's post in عمل قائمة منسدلة وتحديث فاتورة البيع was marked as the answer   
    بالاساس عند الضغط على زر حفظ يتم تحديث النموذج
    على العموم حرب الكود التالي وحاول ان تضيف او تغير حسب احتياجك
    Private Sub نوع_الدفع_Click() If Me.نوع_الدفع = "نقدي" Then Me.التسديد_بالدولار = Me.D22 Me.التسديد_بالدينار = Me.D11 Me.الباقي_بالدولار.Visible = False Me.الباقي_بالدينار.Visible = False Me.التسديد_بالدولار.BackColor = vbWhite Me.التسديد_بالدينار.BackColor = vbWhite ElseIf Me.نوع_الدفع= "آجل" Then Me.الباقي_بالدولار.Visible = True Me.الباقي_بالدينار.Visible = True Me.التسديد_بالدولار.Value = 0 Me.التسديد_بالدينار.Value = 0 ElseIf Me.نوع_الدفع= "اقساط" Then Me.الباقي_بالدولار.Visible = True Me.الباقي_بالدينار.Visible = True Me.التسديد_بالدولار.BackColor = vbYellow Me.التسديد_بالدينار.BackColor = vbYellow End If End Sub  
  20. Eng.Qassim's post in @@@ اظهار مجموع الاستعلام في النموذج الرئيسي @@@ was marked as the answer   
    لاحظ النموذج tbl_BB
     
    Database27.accdb
  21. Eng.Qassim's post in مساعدة في كود اكسس فيجوال بيسك was marked as the answer   
    وعليكم السلام..جرب هذا الكود
    Private Sub cmdBotton_Click() Dim HighestNumber As Long If (Me.نوع_الفاتورة) = "بيع" Then HighestNumber = Nz(DMax("[رقم الفاتورة]", "رأس الفاتورة")) + 1 Me.رقم_الفاتورة = HighestNumber End If End Sub  
  22. Eng.Qassim's post in تعديل على طباعة التقرير was marked as the answer   
    وعليكم السلام
    انظر للعلامة الخضراء يسار التقرير..لو وضعت المؤشر قريبا منها ستظهر لك ملاحظة تقول ان عرض التقرير اكبر من عرض الصفحة
    حاول ان تزحف العناصر اسفل التقرير الى اليسار قليلا ثم قلل من عرض التقرير قليلا حتى تختفي العلامة الخضراء

  23. Eng.Qassim's post in دالة تجميع فى نموذج ( حقل فى تذييل النموذج ) was marked as the answer   
    تفضل
     
    برنامج مراجعة فواتير العلاج الشهرى المزمن..rar
  24. Eng.Qassim's post in مساعدة في غرض صوره في نفس مجلد قاعدة البيانات was marked as the answer   
    وعليكم السلام استاذ ازهر
    طالما ان الصور في نفس الفولدر
    استخدم الكود التالي في حدث الحالي وشاهد النتيجة
    Private Sub Form_Current() Dim Path As String Path = Application.CurrentProject.Path & "\img\" Me![صورة0].Picture = Path & "1.jpg" End Sub  
  25. Eng.Qassim's post in ربط استعلامين was marked as the answer   
    انظر للمرفق. حين الانتهاء من الايجار يتم الضغط على حقل Empty فيتم ترحيله الى جدول اخر
    وبهذا تستطيع الفرز براحتك. ستبقى الشقق المستاجرة والفارغة
    HH.rar
×
×
  • اضف...

Important Information