Eng.Qassim

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

وعليكم السلام هل تقصد اضافة كلمة (عهدة) الى هذا الشرط : [رقم الحساب]<>201

يجب ان نفهم اخي العزيز بأن جملة الاستعلام تأتينا بقيمة واحدة حسب المعايير التي وضعناها ...حيث تمرر هذه القيمة وحسب المعايير الى الفكشن ليتم ترتيبها حسبما نريد وحسب سؤالك الاخير الذي تريد اضافة معيار كود المريض لانه محتمل ان يعمل تحليلين في اليوم الواحد استبدل جملة الاستعلام بهذه ...واخبرنا بالنتيجة : SimpleCSV("SELECT TName FROM 1_JO WHERE Pname='" & [Pname] & "' AND Pcode='" & [Pcode] & "' AND Ddate=#" & Format([DDate];"mm/dd/yyyy") & "#")

وعليكم السلام اكتب الكود بعد التحديث...هكذا Private Sub xx_AfterUpdate() If Nz(DCount("[Key]", "dfg", "[xx]=[nmber]"), 0) = 0 Then Else MsgBox "هذا الرقم مكرر", vbInformation, "رسالة تنبيه" DoCmd.CancelEvent Me.xx = "" End If Me.الاسم.SetFocus End Sub

السلام عليكم.. افتح ال Query2 ..سيقوم بتجميع الفحوصات للشخص بنفس التاريخ طبعا الحقوق محفوظة لصاحب الكود رغم انه منشور في صفحة عامة ..لكن للامانة تركت اسم المصدر A.rar

🤔

كلامك صحيح استاذي @AbuuAhmed لكني افترضت ان ادخال التواريخ يومي او عامل Ascending للتاريخ تبقى DMax افضل تفاديا للاخطاء احسنت استاذ

ولهذا استخدمت Dlast ..فهي تأخذ اخر اجازة يمكنك ان تستخدم هذا الكود ايضا Private Sub DateShift_AfterUpdate() Dim startDate As Date Dim endDate As Date Dim vacationDate As Date startDate = DLast("[strDate]", "[TblLeaveRegistrationOrdinary]", "[Emp]='" & [emp] & "'") endDate = DLast("[EndDate]", "[TblLeaveRegistrationOrdinary]", "[Emp]='" & [emp] & "'") vacationDate = Me.DateShift If vacationDate >= startDate And vacationDate <= endDate Then MsgBox "الموظف في اجازة" Me.DateShift = "" End If End Sub

فهمت قصدك اخي الكريم وحاولت ان اغير بحلقة الدوران للروتين DisplayMeetings بحيث يتضمن اختيار ال unit من مربع التحرير والسرد لكني لم افلح سوألك جميل وياريت احد الاخوة من الاساتذة مساعدتنا انا كبرت في دماغي ولازم اوصل لحل 😢

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

لا اعلم لماذا مايكروسوفت لم تضع هذا الكود البرمجي ضمن جميع النسخ ...بحيث لا يحتاج المبرمج ان يكتب هذا الكود ؟

لانك تستخدم نسخة 64 ضع ptrsafe بعد ال Declare

حسب ماذكره صاحب الفيديو بأن الروبوت لايدعم 45 دولة من بينها مصر والسعودية والبحرين وغيرها ولا اعلم ماهو السبب في ذلك

طيب جرب الان بالنسبة للخطأ الحاصل MO.rar

الموقع فتح معي وانا في العراق.. بصراحة الموقع خرافي..يحتاجه كل طالب علم مثلي

بالنسبة لزيادة الكمية لنفس الصنف ...تجد هنا الجواب الشافي

وعليكم السلام .. بالنسبة لسؤالك الاول ..الدالة بتشتغل معاك كويس ومافيهاش مشكلة الشطر الثاني من السؤال ... يمكنك عمل مربع نص بأسم Ds ومربع نص ثاني باسم De ويمكنك ان تخفيهما في النموذج ..وتجعل مصد السجلات لهما هكذا Ds =DLast("[strDate]";"[TblLeaveRegistrationOrdinary]";"[Emp]='" & [Emp] & "'") De =DLast("[EndDate]";"[TblLeaveRegistrationOrdinary]";"[Emp]='" & [Emp] & "'") وفي حدث بعد التحديث للحقل DateShift في النموذج تضع الكود التالي Private Sub DateShift_AfterUpdate() If Me.DateShift >= Me.Ds And Me.DateShift <= Me.De Then MsgBox "الموظف في اجاؤة" DoCmd.CancelEvent Me.DateShift = "" End If End Sub

هلا بيك اكثر لابأس استخدم عرض التصميم Database30.rar

وعليكم السلام.. اجعل النموذج في وضع layout view ثم اضغط على العنصر الموجود في النموذج ومن الشريط Arrange .... اضغط على Anchoring ..اختر ..Top Left

اختصرها استاذ موسى بجملة سكوال واحدة 😃

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

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

وعليكم السلام انسخ هذا الفكشن في موديول Function updateMyField() As Boolean Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("Table1") If rs.RecordCount > 0 Then rs.MoveFirst Do Until rs.EOF If Nz(rs!Field1, "") = "" Then rs.Edit rs!Field1 = "اوفيسنا" rs.Update End If rs.MoveNext Loop End If Set rs = Nothing updateMyField = True End Function Table1 اسم الجدول Field1 اسم الحقل الجديد في الجدول "اوفيسنا" ..النص الذي تريد نسخه ثم تقوم بأستدعاء الدالة من زر في النموذج هكذا call updateMyField

شوف المثال التالي استاذ احمد عسى ان يلبي مطلبك ..يظهر لك اخر شهر دون تدخلك loan2_Backup.rar

ابشر استاذ احمد ...فقط امهلني ليوم غد فأنا مرهق بسبب الشغل تقريبا فهمت قصدك ..مثل التعامل عبر الكي كارت فهو يستقطع اوتماتيكي