ِAbo_El_Ela

ممكن من استاذي ابو عبد الله 

توضيح الكود (شرح) 

للاستفادة 

و جزاك الله خيرا

و بالاخص 

ByRef

و c

او ارفق مثال للتطبيق علية 

ممكن حضرتك تعمل funcation  للتأكد من الحقول الفارغة داخل النموذج 

Private Function confirmation() As Boolean
    
    If IsNull(Me.TypePayType) Then
     Me.TypePayType.SetFocus
    confirmation = False
    Exit Function
    End If
    
    If IsNull(Me.TypePay) Then

    Me.TypePay.SetFocus
    confirmation = False
    Exit Function
    else

confirmation = True
End If

End Function

شكرا استاذي الجليل 

وسأراجع الموضوع للاستفادة القصوي بأذن الله 

DoCmd.OpenForm "frmBabone1", acNormal, , "[gb] = '" & [TempVars]![gbtemp] & "'"

بعد اذن الاساتذه الكبار 

اية الخطأ في هذا الكود

وصلت و الحمد لله

شيلت علامتين التنصيص المفردتين و اشتغلت و الحمد لله 

تسلم استاذي الفاضل

السلام عليكم استاذتي 

عندي نموذج اسمة frmExpenseNowMonth  (نموذج عناصر متعددة) يحتوي علي code العملية 

هذا النموذج مبني علي استعلام qryExpenseNowMonth 

المطلوب عند الضغط علي رقم كود العملية فتح نموذج frmpayed1 علي السجل المحدد في النموذج frmExpenseNowMonth 

1276627580_-Copy.accdb

Name

الاسم البرمجي الذي سوف تستخدمة في الاكواد

LableName

عبارة عن الاسم الذي سوف يظهر للمستخدم بجوار TextBox 

متابع مع اساتذتي 

ان شاء الله 

المعلومة جديدة بالنسبة لي ايضا

المصروفات.rar

استاذي العزيز Eng.Qassim 

الفضل كل الفضل للاستاذ جعفر في هذا و في غيره مما اتعلمه منه و في الكثير من حل المشكلات لي و لغيري 

اولا ما كنت ادري بداله DateSerial لاني مبتدئ 

انا اول مرة استخدم وحدة نمطية من تصميمي 

وانا و الله كان كل قصدي اني كنت عايز اعرف رأيه فيها و هل هاتطلع ناتج مظبوط و لا لاء 

و رجاء استاذي jjafferr او اساتذتي الكبار من رواد المنتدي لو احد منكم لاحظ اي خطأ في الكود ياريت يوضحة حتي اتمكن من فهم الامر اكثر 

هذا ما كنت اريده بالظبط و الحمد لله وصلت الية بفضلك استاذي jjafferr و الحمد لله 

Public Function FirstDate()
Dim year1 As Integer
Dim month1 As Integer
Dim day1 As Integer
Dim myday As Integer
Dim myDate As Date
    year1 = Year(Date)
    month1 = Month(Date)
    day1 = Day(Date)
myday = DLookup("[dayfirst]", "[firstd]")
myDate = DateSerial(year1, month1, 0)
If day1 >= myday Then
myDate = DateSerial(year1, month1, myday)
Else
myDate = DateSerial(year1, month1 - 1, myday)
End If
FirstDate = myDate
End Function

بارك الله في علمك و نفع بك 

استعلام به خانة للتاريخ اريد وضع كود لاستخراج بيانات اخر شهر كامل و لكن بداية الشهر يحددها المستخدم 

بمعني استخراج بيانات عن شهر يبدأ من 24/2/2022 حتي 23/3/2022 

او ان المستخدم يحدد اليوم الذي يريدة الذي يبدأ الشهر منه 

بمعني ان المستخدم من الممكن يجعل اول يوم في الشهر هو يوم 10

فيستخرج الاستعلام مثلا بيانات الفترة من 10/2/2022 حتي 9/3/2022 

تسلم استاذي العزيز 

كيفية استخراج اليوم الاول بالشهر من تاريخ اليوم 

مثال اليوم تاريخة 24/2/2022 

اريد 1/2/2022

و 28/2/2022

و محرر الاكواد مغلق بكلمة سر و انا اعرفها 

اذا كان هناك علاقة بين جدول راس الفاتورة و بين جدول اطراف الفاتورة 

ممكن ان تستخدم زر لمسح السجل الحالي (الفاتورة الحالية)

ما شاء الله 

بارك الله في علمك و ذادك من العلم 

ماشاء الله 

كل الشكر  و التقدير للاساتذه الافاضل

ارفق مثال حتي يتمكن الاساتذه من المساعدة 

9 ساعات مضت, محمد أبوعبدالله said:

مرحبا اخي الكريم

المشكلة في نموذج SubFrmMaster ولم استطع تحديد المشكلة بالضبط للاستعجال

فكل ما فعلته اني انشأت نموذج SubFrmMaster من جديد

ولو تلاحظ وجود نموذج SubFrmMaster واخر SubFrmMaster3 القديم

تحياتي

اشكرك جزيل الشكر 

زاد الله علمك و نفع بك

للاسف مازالت المشكلة موجودة