تعديل الكود لاضافة السنة المالية

[abouelhassan]

الله يرضى عنك استاذى الغالى @د.كاف يار تمام الله يفتح عليك ابوا ب الخير كلها اللهم امين كده حذف المبالغ الصفرية يعمل بامتياز

ينقصنى هنا فى فورم الادخال تحديث السنة المالية لكى يتم الترحيل للجدول حيث ان العمود YEAR يتم الترحيل اليه 0

وهنا كود الربط بين ضرورة اختيار السنة المالية لكى يستدعى البيانات عند كتابة رقم الفاتورة او المبلغ بكده تكون انتهيت منى اخى الغالى

احترام من اخيك

 

[د.كاف يار]

4 ساعات مضت, abouelhassan said:

ينقصنى هنا فى فورم الادخال تحديث السنة المالية لكى يتم الترحيل للجدول حيث ان العمود YEAR يتم الترحيل اليه 0

 

ضع في القيمة الإفتراضية للحقل التالي

=[YEAR]

 

4 ساعات مضت, abouelhassan said:

وهنا كود الربط بين ضرورة اختيار السنة المالية لكى يستدعى البيانات عند كتابة رقم الفاتورة او المبلغ بكده تكون انتهيت منى اخى الغالى

 

استبدل الكود الموجود في حقل رقم الفاتورة بعد التحديث بالكود التالي

On Error Resume Next
Dim varFilter As Variant
varFilter = Null
 
   If Not IsNull(Me.txtsearch) Then
      varFilter = (varFilter) & "[iBill_Number] LIKE '" & Me.txtsearch & "'"
   End If
    If Not IsNull(Me.Combo97) Then
      varFilter = (varFilter + " AND ") & "[YEAR] =" & Me.Combo97
   End If
  
   With Me.Form
   
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
     .DataEntry = True
     .FilterOn = False
   End If
    .Requery
  End With

 

[abouelhassan]

استاذى حبيبى اخى فى الله @د.كاف يار ربنا يكرمك والله يارب يارب يارب

هفرحك فورم البحث 

نفذت الكود الموجود بالاعلى واضفت عليه هذه الجملة ونجح تمام التمام

     If Len(Me.Combo97 & "") = 0 Then
        MsgBox "عفوا يجب اختيار السنة المالية"
        Me.Combo97.SetFocus
        Cancel = True
        Exit Sub
    End If

كمان اضفت الكود

Private Sub Combo97_Click()
On Error Resume Next

   With Me.Form
    Me.txtsearch = Null
    Me.Text22 = Null
     .DataEntry = True
     .FilterOn = False
  End With
Me.Combo97.SetFocus
End Sub

ونجح تمام  وجعلت القيمة الافتراضية للسنة المالية بالبحث طبعا غاششها من حضرتك

=Nz(DLast("[NowYaer]";"[EndYaer]");0)

وجعلت الخط سمبك احمر بقت جميلة جداااا و اللون البنى خليته ازرق فاتح زى الادخال 

وبكده انتهى فورم البحث تمام الله يبارك لك 

فورم الترحيل

4 ساعات مضت, د.كاف يار said:

ضع في القيمة الإفتراضية للحقل التالي

=[YEAR]

وضعتها

وعند الذهاب للجدول لازال ترحل 0 الى عمود YEAR

والله فرحتنى جدااااا ربنا يفرحك يارب احترام من القلب والله لك

تم تعديل يوليو 21, 2021 بواسطه abouelhassan

[abouelhassan]

استاذى حبيبى اخى فى الله @د.كاف يار ربنا يكرمك والله يارب يارب يارب

بعد محاولات كثيرة جداااا توصلت للحل استاذى من خلال مراجعة النسخة السابقة كتبت فى سجل السنة المالية YEAR وفى القيمة الافتراضية =[YEAR]

بس المشكلة التى قابلتنى هى بعد الضغط على ترحيل تمام سجل التاريخ العلوى تمام اتمسح بس السجب السقلى لم يتمسح وكذلك الرقم والمخزن لازم اعمل خروج وارجع ادخل تانى للفورم لاجده فارغ هل هناك حل لهذه المشكلة استاذى

بارك الله فيك اخى حبيبى واستاذى العزيزلقلبى والله العظيم

تم تعديل يوليو 22, 2021 بواسطه abouelhassan

[د.كاف يار]

8 ساعات مضت, abouelhassan said:

المشكلة التى قابلتنى هى بعد الضغط على ترحيل تمام سجل التاريخ العلوى تمام اتمسح بس السجب السقلى لم يتمسح وكذلك الرقم والمخزن لازم اعمل خروج وارجع

في ازرار الترحيل ضع التالي

[YEAR] = Null

 

[abouelhassan]

لن يكفيك حقك اذا شكرتك طول العمر اخى استاذى حبيبى د.كاف يار

انا احبك فى الله والله احبك اخى

ربنا يحفظك وما يحرمنى منك ابداااااااااا

اخيك باحترام