Eng.Qassim

طيب انا مش شايف docmd.RunSQL قبلها...والا كيف حتشتغل الجملة ..انا عملتلك بين القوسين فقط

وعليكم السلام جرب هذه الجملة "UPDATE email SET email.Id = [Forms]![email]![toname], email.SelectRow = "T", email.SendStuts = "تم الارسال";"

وعليكم السلام اخي حمدى بالنسبة لسؤالك الاول والثاني ..اضف التالي في بداية كود الارسال If IsNull(Me.msg) Then MsgBox ("لايوجد نص للارسال") Exit Sub End If If IsNull([email1].Form![phone_number]) Then MsgBox ("لايوجد هاتف") Exit Sub End If اما بالنسبة لسؤالك الثالث..بصراحة ليس لي علم به لكني سألت الموقع الذكي واعطاني الكود التالي ولم اتحقق منه On Error GoTo ErrorHandler ' Your code to send the message using WhatsApp goes here ErrorHandler: If Err.Number = "-2147023170" Then ' This error number corresponds to the "Object doesn't support this property or method" error MsgBox "The mobile number is not connected to WhatsApp. Please try a different number." Else MsgBox "An error occurred while sending the message: " & Err.Description Exit Sub End If قم بوضعه بعد هذه الجملة ..جربه واعطنا النتيجة Set IE = CreateObject("InternetExplorer.Application")

وعليكم السلام هل النموذج لديك مستمر؟

كلنا نفشل ونتعلم .. الدالة NZ من الدوال المهمة والتي تسبب مشاكل عند تنفيذ المعادلات الحسابية وهناك حقول فارغة ...فهذه الدالة تقوم بتحويل الحقول التي ليس بها شي Null value الى قيم اخرى ...فمثلا لديك حقول ارقام تلفونات ..وتريد ان تكتب (لايوجد رقم) في الحقول (الفارغة) NZ(PhoneNumber, " لايوجد رقم ") او تريد ان تعود اليك القيم ب صفر في العمليات الحسابية حتى لايحصل خطأ فتكتب .. Nz(Dsum("field","table","Criteria"),0)

السلام عليكم لماذا لم تعمل حقل محسوب قبل تقسيم القاعدة ..وهل الجداول الان فيها بيانات ماهي علاقة التقرير لكي ينقل المجموع الى الجدول...التقرير هو اخر مانحصل عليه من الجداول او الاستعلامات اذا كان لابد من ذلك فلايخطر في بالي غير طريق واحد..هو ان تعمل جدول اخر (تنسخه من الجدول الاصلي) وتعمل له حقل محسوب ثم تعمل استعلامين..استعلام حذف بيانات الجدول الاصلي..واستعلام الحاق من الجدول الثاني الذي فية حقل المحسوب الى الجدول الاصلي وبهذا يتم تحديث البيانات في القاعدة المنفصلة بالتأكيد هناك طرق اخرى ..ربما احد الاخوة يسعفنا بها

بالاضافة لما تفضل به الاخ @عبد الله قدور يمكنك ان تضع الكود التالي في مصدر بيانات حقل الرصيد السابق دون الحاجة للاستعلام DSum("[blance]";"recept";"[acc_no_recpt]=" & [Forms]![n_ame]![av1] & "AND date < [Forms]![n_ame]![av3]")

بصراحة لست محاسبا ولا افهم ماتقول ...لكني بنيت على عبارتك (ولامثاله)..فهمت انك تريد اضافة شرط وجود كلمة (عهدة) ارجوا منك التوضيح اكثر ...لان من يقرأ لك ليس محاسبا في اغلب الاحوال

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

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