أبوبسمله

عودا حميدا اخى واستاذى جعفر 💐

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

هكذا

Call Form_FC.ccc

بالتوفيق

السلام عليكم

مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا

Private Sub x_Click()

    Call searchtext(Forms![fxm], Me.x)
    
End Sub

Sub searchtext(frm As Form, strtxt As String)

    Dim ctl As Control
    
    For Each ctl In frm.Controls
         If ctl.ControlType = acOptionButton Then
            If ctl.Name = strtxt Then
                ctl.Value = True
            Else
                ctl.Value = False
            End If
         End If
    Next

End Sub

testc_1.accdb

17 ساعات مضت, كريمو2 said:

استاذ في المرفق ادخل على العامل رقم 82 وانظر سداد المبلغ

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

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

قمت بعمل ضغط واصلاح فقط فظبطت الامور

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

بالتوفيق

السلام عليكم

السبب فى ذلك عدم تعريفك للمتغير frm وعند الدخول للنموذج Frm_Loans فان قيمه المتغير تكون فارغه فلذلك يدخل ع الشرط الثانى

اتفضل

20240315_1.mdb

9 ساعات مضت, Abdelaziz Osman said:

عمل جيد جدا اشكرك بالفعل جزاك الله خيرا

لكن اريد عمود التاريخ يظهر به احدث تاربخ فقط وليس كل التواريخ 

الشكر لله واياكم

بالنسبه للتاريخ تم عمله مثلما طلبت فى اول الموضوع

في 12‏/3‏/2024 at 15:21, Abdelaziz Osman said:

الحقل الثانى بدون تكرار 

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

بالتوفيق

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

كل عام وانتم بخير

مشاركه مع اخى @kkhalifa1960 جزاه الله خيرا

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

بالتوفيق

PRindex_1.accdb

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

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

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

بالتوفيق

Q2_1.accdb

جزاك الله خيرا اخى @Foksh ع التوضيح للاخ السائل

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

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

بالتوفيق

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

وكل عام وانت وجميع الامه الاسلاميه بخير

اتفضل

بالتوفيق

DATE_1.accdb

في 5‏/3‏/2024 at 20:25, Foksh said:

جزاك الله خير أخوي @أبوبسمله ، الفكرة كانت اجتهاد للأسف ودون فتح الملف لأنه في ذاك الوقت ما كنت عند الكمبيوتر 

واياكم اخى

اعلم بانه اجتهاد من خلال ردك (طبعاً من تصوري لجملة الدالة DLookup ) ولذلك قلت بانه يوحى لانه نص

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

السلام عليكم

اتفضل

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

Private Sub ID_DblClick(Cancel As Integer)
'Dim teltoedit As Long
'teltoedit = Me.ID.Value
DoCmd.OpenForm "telseditor", acNormal, , "[id]=" & ID
'DoCmd.SearchForRecord acDataForm, "telseditor", acFirst, "[id]=" & ID
End Sub

بالتوفيق

dbtest.rar

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

مشاركه مع اخى @Foksh جزاه الله خيرا

اتفضل استخدم التعديل التالى

IIf(Len([اسم الخامة] & "")=0;"";Nz(DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]);0))

والاصل قبل الاضافه

DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة])

والخطأ لان اسم الخامه يوحى بانه نص فتم كتابه المعيار على انه نص وهو فى الحقيقه رقم

بالتوفيق

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

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

اتفضل اطلع ع المرفق هل هذا ما تريد

بالتوفيق

copy value fom colum to another_1.rar

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

23 ساعات مضت, SEMO.Pa3x said:

لم افهم قصدك

قصدى ماهى عدد نتيجه السجلات بعد التصفيه ؟

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

مشاركه مع معلمنا العزيز وشيخنا الجليل @ابوخليل جزاه الله عنا كل خير 🌷

استاذى العزيز @SEMO.Pa3x سؤال ماهى النتيجه الفعليه عند اختيار ( عسل, غذاء سفري, غذائية ) ؟ ارجو ذكر النتيجه

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

مشاركه مع الاستاذ @Moosak جزاه الله خيرا

جرب الحل بالموضوع التالى لاخى العزيز @kanory جزاه الله خيرا

بالتوفيق

السلام عليكم

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

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

بالنسبه للتعديلات تمت فى اضافه المتغيرات التاليه فى الوحده النمطيه UserModule

User_Name
User_ID
       

ثم فى زر الدخول فى الفورم frm-UserLogon  تم اسناد القيم للمتغيرات

User_Name = Me.user
User_ID = Me.user.Column(1)

ثم فى فورم MAIN عند الفتح تم اسناد قيم المتغيرات للحقول

Me.Text17 = User_ID
Me.us = User_Name

بالتوفيق

test AMA.rar

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

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

sum.accdb

وعليكم السلام اتفضل

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

Private Sub p1_Click()

[Forms]![tb_bill]![tb_Billdetails]![codeitmes] = Me.[codeitmes]
[Forms]![tb_bill].SetFocus
[Forms]![tb_bill]![tb_Billdetails].SetFocus
DoCmd.GoToRecord , , acNewRec
End Sub

بالتوفيق

شاشة الاصناف.accdb

مشاركه مع المهندس @Eng.Qassim جزاه الله خيرا

بمعنى ايه ؟

2 ساعات مضت, ابو عبد الرحمن العراقي said:

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

لقد قمت بتجربه الفرز وهناك سجلان وبعد الفرز يصبح العدد 1

وضح اكثر لاخوانك حتى تجد المساعده ان شاء الله

بالتوفيق

جزاك الله خيرا اخى واستاذى محمد @ابو جودي 🌹💐

شرح وافى وان شاء الله احاول انفذه غدا فالعمل

بالتوفيق

السلام عليكم

اتفضل استاذ احمد @Ahmed_J تم التعديل فقد كنت مستعجل عند المشاركه الاولى للنزول للعمل واستخدمت الموديول فحدث آخر لذلك لم يعمل

وجزاه الله خيرا معلمنا العزيز جعفر 💐🌹

تم تعديل التقرير الثالث rpt_Ev3

بالتوفيق

1468.1.Lines in Report2.accdb

34 دقائق مضت, ابو جودي said:

لو عاوز اعمل لك شرح مصور ماشى بس هتدفع حق الشرح  اومااااااااااااااااال

ياريت يا ابوجودى وخلى الدفع عليا المرادى استاذ @Amr Ashraf 😀 وجزاك الله خيرا