Taher DZ
-
Posts
1271 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
التقويم
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Taher DZ
-
التعديل على دالة DLookup او استبدالها بدالة اخرى
Taher DZ replied to Taher DZ's topic in قسم الأكسيس Access
هل من مساعدة يا أساتذة -
التعديل على دالة DLookup او استبدالها بدالة اخرى
Taher DZ replied to Taher DZ's topic in قسم الأكسيس Access
طلبي مفهوم يا اساتذة ام لا -
السلام عليكم اساتذتي الكرام عند فتح التقرير المطلوب نقل كل سجل من الجدول لوحده بمبلغه كل على حدى مع مراعاة التصفية 'عدم الظهور" عندما يكون المبلغ 0.00 كما في الصورة rs.AddNew rs!a = DLookup("[Obsérvation]", "BDGI", " ([année])=" & Forms!FrmMasarif!txtYear) rs!b = Nz(DSum("[PDG_Pr]", "[BDGI]", Cretiriatt1), 0) rs!c = "02- المداخيل ( الموارد)" rs.Update 20241028.mdb
-
شكرا لكم اساتذة ولو انه لم يتم فهمكم للمطلوب ولكن اجابتكم ومساعدتكم وفت وكفت Dim haj As Boolean haj = IIf(DLookup("Menha_ID", "Mena7", "EmployeeID =" & Me.EmployeeID) = 11, True, False) hajAnne = DLookup("annee", "Mena7", "EmployeeID =" & Me.EmployeeID) If haj = True Then MsgBox "هذا الموظف مستفيد من منحة الحج خلال سنة " & hajAnne: Me.Undo: Exit Sub
-
السلام عليكم اساتذتي الكرام كيف يتم التعديل على دالة DLookup Dim Omra As Boolean Omra = IIf(DLookup("omra", "omra", "EmployeeID =" & Me.EmployeeID) = -1, True, False) OmraAnne = DLookup("année", "omra", "EmployeeID =" & Me.EmployeeID) If Omra = True Then MsgBox "هذا الموظف مستفيد من منحة العمرة خلال سنة " & OmraAnne: Me.Undo: Exit Sub حيث ان الجدول المعني هو Mena7 والشرط هو Menha_ID=11 و année= annee Omra= Haj وشكرا
-
كيف يتم المحو استاذ للعلم أنه ليس لسجل واحد فقط بل معه سجلات لمجموعة كبيرة من العمال في البرنامج الاصلي وهذا بمجرد عينة للتعديل عليها انا شبه وجدت الحل في الرقم الترتيبي التلقائي الموجود فيtbl_loans
-
بقي نفس المشكل في الملف الاصلي حتى وبعد ضغط واصلاح بقي سجل واحد فيه مشكل الحذف هل من طريقة اخرى اساتذة وربي يجازيكم
-
-
استاذ في المرفق ادخل على العامل رقم 82 وانظر سداد المبلغ بقي يحذف الا سجل هذا العامل فقط نفهم فما خلل في الكود 20240319.mdb
-
نفهم استاذ أبوبسملة انك اضفت متغير في الفورم FrmCridi Public Frm As String If Form_FrmCridi.Frm = "Cridi" Then شكرا لك استاذ على المساعدة ولكن لما اضفت ما تم تعديله من طرفك على البرتامح الاصلي لاحظت ان الكود مزال يحذف في السجلات
-
للرفع
-
اساتذتي الكرام المشكلة تكمن هنا وفق الصورة
-
السلام عليكم اساتذتي الكرام رمضان كريم - تقبل الله منا ومنكم الصيام والقيام ظهرت لي مشكلة مؤخرا وهي عند الدخول على سداد المبلغ الكود يحذف لي مبالغ مالية وبالضبط في قيمة الاقتطاع والمبلغ الشهري للاقتطاع الرجاء مساعدتي في حل المشكلة وشكرا 20240315.mdb
-
لم اتمكن من تنصيبه من جديد ومنقدرش نفرماطي الجهاز نظرا لوجود برنامج خاص إذا فيه برنامج يقضي على هذا الفيروس افيدوني به رجاءا وشكرا لكم
-
وهو كذالك استاذنا القدير أبوخليل شكرا لك ربي يحفظك
-
شكرا استاذ Foksh على المجهودات المبذولة نتمنى من الأساتذة الكرام يد مد العون وربي يجازي الجميع
-
لم يشتغل المرفق كما هو مطلوب استاذ Moosak المطلوب عند الضغط على TxtMonth مرتين يفتح التقرير rptTransfer_BEA_Ccp مباشرة وبدون اي ميساجات ادخال معلومة
-
نعم حسب السنة والشهر والامر مختلف على الاول استاذ
-
اين المساعدة
-
اليك المرفق للتعديل VermCcp.accdb
-
شكرا على الرد السريع ولكن استاذ ليس التعديل على كود فتح الفورم بل فتح التقرير التعديل يكون على هذا الكود اساتذة الكرام
-
السلام عليكم اساتذة لقد عملت بالكود المعدل لفتح فورم من طرف الاستاذين Moosak و ابوخليل لفتح التقرير فوجدت صعوبة في ذلك Private Sub TxtMonth_DblClick(Cancel As Integer) If Me.TheValue <> 0 Then DoCmd.Close Dim stDocName As String stDocName = "rptTransfer_BEA_Ccp" DoCmd.OpenReport stDocName, acPreview, , , "month([TxtMonth]) =" & Year([TxtMonth]) Abou_Taha End If End Sub
-
وهو كذلك مشكور استاذنا الكريم ابوخليل
-
استاذ وجدت مشكلة وهي عدم التصفية بالسنة
-
شكرا استاذ Moosak
