أبوبسمله

في ٢٨‏/٣‏/٢٠٢١ at 13:54, jjafferr said:

من تجربتي ، يجب ان يكون لهذا القرض رقم ايضا ، فقد يأخذ قرض للمواد الكهربائية ووو مثل عند اخونا @كريمو2 ، وحتى قروض النقد ، فإذا استوفى قيمة القرض ، قد يأخذ قرض آخر في الشهر التالي !!

مرحبا باخى واستاذنا العزيز جعفر

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

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

مرحبا بك اخى ومعلمى العزيز @ابوخليل 💐

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

ولا يهمك معلمنا العزيز زادنا الله واياكم من فضله وعلمه

1 ساعه مضت, ابوخليل said:

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

نعم هذا منطقى

بارك الله لنا فيك وجزاك الله عنا كل خير

معلمى العزيز @ابوخليل طالما سوف يتم النظر الى الشهر

فيجب النظر الى الشهر والسنه معا اليس كذلك

وعليه يجب تعديل السطر التالى ويتم الاستغناء عن الاستعلام qryAmountInMonth

يجب ادخال التاريخ قبل المبلغ

j = DSum("amount", "qryAmountInMonth", "emp_name=" & emp_name)

الى

j = Nz(DSum("amount", "salary", "emp_name=" & emp_name & " And Year([dated])=" & Year([dated]) & " And Month([dated])=" & Month([dated])), 0)

delete2.accdb

وعليكم السلام ورحمه الله وبركاته معلمنا العزيز @ابوخليل

جزاك الله معلمنا العزيز ابو خليل 💐

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

بارك الله لنا فيكم معلمنا العزيز ابوخليل وعلى خواطركم الجميله وحلولكم الرائعه

اتفضل ابو اشرف ان شاء الله يكون ما تريد

وتعديل عالكود

Private Sub أمر36_Click()
    f = Me.salary_نموذج_فرعي!amount
    If f > Me.salary Then
        DoCmd.RunCommand acCmdDeleteRecord
    End If
End Sub

بالتوفيق

delete2.accdb

وعليكم السلام

اخى الفاضل @almasry732 لا يوجد بالمرفقات التى ارفقتها اى نماذج او اكواد حتى الجداول كانت مخفيه ولا يوجد غير الجداول فقط

بالتوفيق

وفيك بارك الله اخى @haniameen

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

بالنسبه للسؤال الاول سوف اتركك تحاول فيه حتى تتعلم وان شاء الله سوف تصل وان لم تعرف قدمناه لك

بالنسبه للسؤال الثانى فعن نفسى اتعلمها من مساعده اخوانى السائلين بالموقع ومحاولة الاجابه على استفسارتهم

ومن اخوانى واساتذتى هنا بالموقع جزاهم الله عنا كل خير

وبالبحث هنا وهناك حتى فالمواقع الاجنبيه التى لا اطيقها ولكن الحمد لله ماشى الحال

بالتوفيق اخى

وعليكم السلام استاذ @ازهر عبد العزيز

مجرد فكره ربما تنفعك

بالتوفيق

qm.accdb

أسال الله العظيم رب العرش العظيم ان يمن عليك وعلى اهلك وجميع مرضى المسلمين بالشفاء شفاء لا يغادر سقما باذنه ورحمته

وجزا الله جميع اخوانى واساتذتى كل خير

41 دقائق مضت, jjafferr said:

هممم

سؤال غير تقليدي ، بحثت ولم احصل على جواب ، فقمت انا بعمل التجربة :

.

واوقفت البرنامج لأنه تأخر في اعطائي النتائج 🙂

 

هل انت راض عن الحجم الى الآن 🙂

 

جعفر

جزاك الله خيرا معلمنا العزيز جعفر

😇 راضى معلمى العزيز 😀

بارك الله لنا فيكم اخوانى واساتذتى وجزاكم الله عنا كل خير

4 دقائق مضت, ابو محمد 316 said:

السلام عليكم ورحمة الله وبركاته

بارك الله فيك وحفظك الله   ورحم الله والديك

نعم هذى الذي كنت ارغب في تصميمة

حفظك الله 

في حالة اذا ارغبت يكون التاريخ اكبر من اين اضع علامة اكبر من في الاستدعاء 

 Call updateData(100, #1/1/2019#)
 

 

وعليكم السلام اخى ابومحمد

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

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

If rs("DAT") > dDate Then

بالتوفيق

13 دقائق مضت, ابو محمد 316 said:

حفظك الله اخي الكريم الفلاحجي 

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

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

 

حفظكم الله

واياكم ولا حول ولا قوه الا بالله العلى العظيم

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

?updateData(5,#1/1/2010#)

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

بالتوفيق

23 ساعات مضت, jjafferr said:

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

 

جعفر

جزاكم الله خيرا معلمينا الافاضل 💐

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

السلام عليكم اخى @ابو محمد 316

مشاركه مع اخوانى واساتذتى الافاضل @ابا جودى و @ابوخليل جزاهم الله كل خير

وتاكيدا على كلامهم فهم السؤال نصف الاجابه وكان يجب عليك التوضيح اكثر من البدايه

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

Function updateData(num As Integer, dDate As Date)
  On Error GoTo HandleError
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
'    Dim dDate As Date
'    Dim num As Integer
    strSQL = "SELECT Tbl1.N, Tbl1.ID, Tbl1.DAT FROM Tbl1;"
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)

'    num = 4
'    dDate = #1/1/2010#
    
    If DCount("[ID]", "Tbl1") > num Then
        
    MsgBox "ÚÏÏ ÇáÓÌáÇÊ ÃßÈÑ ãä " & num
       
        Do While Not rs.NoMatch
            If rs("DAT") > dDate Then
            rs.Edit
            rs!id = Replace(rs!id, "111", "3")
            rs.Update
            End If
         rs.MoveNext
        Loop
       
    End If
    
    rs.Close
    Set rs = Nothing
HandleExit:
    Exit Function
HandleError:
'    MsgBox Err.Description
    Resume HandleExit
End Function

بالتوفيق

Database66.accdb

36 دقائق مضت, obaid70 said:

وعليكم السلام ورحمة الله وبركاته

اخي الفلاحجي دائما يسبقني الى فعل الخير

على كلا الحمد لله انه يوجد اكثر من حل واكثر من طريقة

هذا حسب ما فهمت ان لم اكن قد اصبت نتناقش حتى نصل الى ما تريد

برنامج العاملين2.accdb 720 kB · 0 downloads

😀 دانا حتى مبعرفش اجرى اخى @obaid70 بارك الله فيك وجزاك الله خيرا واسال الله لك ولجميع اخوانى واساتذتى الجزاء الحسن

وبالتاكيد هناك حلول كثيره باذن الله واخواننا واساتذتنا لا يبخلون علينا

وان شاء الله نكون فهمنا صح وتعديلك ممتاز ورائع مثلك بارك الله فيك 💐

اخى عبيد اضف  DoCmd.RunCommand acCmdSaveRecord للحفظ قبل التحديث

Private Sub أمر20_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenQuery "qq"
End Sub

بالتوفيق

جزاك الله خيرا اخى @نبراس كاظم عالتذكير

البرنامج لاخى واستاذى العزيز @صالح حمادي جزاه الله خيرا

عالرابط التالى

بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

بالتوفيق

العفو اخى الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

بالتوفيق

وعليكم السلام اخى @ابوصلاح

اتفضل لعله ما تريد تم انشاء استعلام تحديث للتحديث باخر درجه وتاريخ فالجدول tbl_bianat لكل id 

UPDATE tbl_bianat SET tbl_bianat.darga = DLast("daraga","tbl_daragaSS","[Id]=" & [tbl_bianat].[id]), tbl_bianat.date_draga = DLast("date_daraga","tbl_daragaSS","[Id]=" & [tbl_bianat].[id]);

شغل النموذج frm_bianat_mfrd واضغط زر التحديث لاخر تاريخ

جرب ووافنا بالنتيجه

بالتوفيق

برنامج العاملين.accdb

وممكن هكذا

Private Sub sss_AfterUpdate()
DoCmd.ApplyFilter , "[Expr1]= '" & Me.sss & "'"
DoCmd.OpenReport "rep", acViewReport, , "[Expr1]= '" & Me.sss & "'"
End Sub

وهكذا افضل

Private Sub sss_AfterUpdate()
Dim x As String
x = "[Expr1]= '" & Me.sss & "'"
DoCmd.ApplyFilter , x
DoCmd.OpenReport "rep", acViewReport, , x
End Sub

Database11.accdb Database12.accdb

منذ ساعه, obaid70 said:

السلام عليكم

استئذنك

وعليكم السلام اتفضل فاننى اتعلم منكم اخوانى ومازلت احبو عالطريق معكم

اخى عبيد وجزاك الله خيرا على مشاركتك معنا 💐 اخى عبيد افكارك حلوه

ولفتح التقرير عالتصفيه فى حدث عند التحميل

Private Sub Report_Load()
DoCmd.ApplyFilter , "[Expr1]= '" & Forms!testtable!sss & "'"
End Sub

بالتوفيق

Database11.accdb

وعليكم السلام

اتفضل ان شاء الله يكون ما تريد

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

DoCmd.ApplyFilter , "[Expr1]= '" & Me.sss & "'"

بالتوفيق

Database1.accdb

وعليكم السلام

ماشاء الله بارك الله لنا فيك اخى ومعلمنا العزيز جعفر وجزاك الله خيرا 💐

وعليكم السلام

اتفضل ان شاء الله يكون ما تريد

NSave: Right([save];Len([save])-Len(Left([save];1)))

بالتوفيق

onevalue (1)(1).accdb

احسنت اخى واستاذى @husamwahab وجزاك الله خيرا 💐

بالتوفيق