Eng.Qassim

اضافة لما تفضل به استاذي @أبو عبدالله الحلوانى
انتبه دائما الى نوع البيانات
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  

مشاركة مع اخوتي..
لاحظ ان الحقل لو كان رقمي يكون اكثر سهولة
 
تنازلي و تصاعدي.accdb
في مثالي مجرد تغيير مصدر السجلات بدون تصميم استعلام

وعليكم السلام وكل عام وانتم بخير
تفضل التعديل
 
الدالة.accdb

انظر للمرفق..لقد استغنيت عن جدول التصنيف
 
 
Database32.accdb

انظر للمرفق على وجه السرعة ..لاقتراب وقت اذان الفجر
exemple.rar

بالاساس عند الضغط على زر حفظ يتم تحديث النموذج
على العموم حرب الكود التالي وحاول ان تضيف او تغير حسب احتياجك
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  

لاحظ النموذج tbl_BB
 
Database27.accdb

وعليكم السلام..جرب هذا الكود
Private Sub cmdBotton_Click() Dim HighestNumber As Long If (Me.نوع_الفاتورة) = "بيع" Then HighestNumber = Nz(DMax("[رقم الفاتورة]", "رأس الفاتورة")) + 1 Me.رقم_الفاتورة = HighestNumber End If End Sub  

وعليكم السلام
انظر للعلامة الخضراء يسار التقرير..لو وضعت المؤشر قريبا منها ستظهر لك ملاحظة تقول ان عرض التقرير اكبر من عرض الصفحة
حاول ان تزحف العناصر اسفل التقرير الى اليسار قليلا ثم قلل من عرض التقرير قليلا حتى تختفي العلامة الخضراء

تفضل
 
برنامج مراجعة فواتير العلاج الشهرى المزمن..rar

وعليكم السلام استاذ ازهر
طالما ان الصور في نفس الفولدر
استخدم الكود التالي في حدث الحالي وشاهد النتيجة
Private Sub Form_Current() Dim Path As String Path = Application.CurrentProject.Path & "\img\" Me![صورة0].Picture = Path & "1.jpg" End Sub  

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

اترك استعلام التوحيد..لان المفروض تعمل تجميع في الاستعلامات الاولية
عملت لك استعلامين وتركت البقية..الان رصيد البطاقة والمخزن متطابقان
 
2025.rar

you wellcome
 
test1002.rar

انظر للمرفق
 
جمع.accdb

وعليكم السلام
اجعل default value  لحقل الرقم فارغ ..اي امسح الصفر

وبهذه الحالة لايجمع حقل مع حقل فارغ الا اذا جعلت قيمته صفر

وعليكم السلام
اذا كنت تقصد اظهار نص مخفي بعد تمرير الماوس على نص اخر ..استعمل الكود
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Text2.Visible = True End Sub  

ما انا عملتها لك .. وحضرتك الظاهر ماشفت المرفق

تفضل سيدي الكريم
انظر للاستعلام
sys.accdb

راح يفتح عندك التقرير بعون الله
انا افترضت ان الارقام نصوص.. اما اذا كان نوع الحقل رقم فلاتضع علامتي التنصيص
If (Me.accode = "0008") And (Me.in12 = "2") And (Me.NV <> Me.nv2) Then DoCmd.OpenReport "h22", acViewReport End If  

اعتقد اني عملتها لك في المشاركة السابقة ..بس انت مارضيت
على كل..شوف المرفق
عملت لك نموذج للبحث منفصل
 
systemJJ.accdb

لا شكر على واجب..
هل تريد نصيحتي ..اعمل قاعدة مبسطة لمطلبك وستجد الاجابات سريعة باذن الله
اتذكر باني حملت برنامج بهكذا موضوع من هذا المنتدى ..سأبحث عنه وارسله اليك باذن الله تعالى

وهذه حسب طريقة استاذ @Barna
في حالة الخصم تضع نسبة الخصم
Salary2.accdb

بصراحة ..لم يخطر في بالي غير هذا الكود الذي تم سرقته منك 😄
Me.frmToArabic.SetFocus Me.frmToArabic!txtUnicode.SetFocus Me.frmToArabic!txtUnicode = "" Me.frmToArabic!txtArabic.SetFocus Me.frmToArabic!txtArabic.ControlSource = ""  

تفضل ايها المدلل..
 
1.rar