كل الانشطه

انا بحاول اربط GREEN API عباره عن ارسال رسائل من خلال api للاواتساب بس بحاول احط الكود و بعمل تشغيل ما بجاوب Sub SendMessage() Dim URL As String Dim RequestBody As String Dim http As Object ' استبدل القيم الفعلية لـ idInstance و apiTokenInstance URL = "https://console.green-api.com/instanceList/tariff/result?status=success&curTariff=DEVELOPER/waInstance7103936196/sendMessage/e99699119c394b29afa9beb144a8497698eb7f281b084a1089" ' تحديد رقم الهاتف ونص الرسالة RequestBody = "{""chatId"":""00970599335525@c.us"",""message"":""Hello World""}" Set http = CreateObject("MSXML2.XMLHTTP") With http .Open "POST", URL, False .setRequestHeader "Content-Type", "application/json" .Send RequestBody End With Set http = Nothing End Sub ايش رايكم .

اتفضل جرب استيراد البيانات من خلال نموذج Form1 من خلال الضغط على الزر واستعراض المجلدات لاختيار ملف الاكسل المراد استيراد البيانات منه سوف يتم انشاء جدول مؤقت به البيانات انقلها بعد ذلك للجدول وقم بباقى العمليات التى تريد اجراءها كما بحلو لك test ExcelDataImport.rar

السلام عليكم محتاج معادلو لاظهار الوقت والتاريخ بمجرد كتابه رقم المرسى وشرط كتابه الاسم في خانة الملاحظات قبل الانتقال الى الصف التالي جزاكم الله خيراً القوارب.xlsx

بوركت أخي Foksh ..نعم الأجابة , وكود رائع .

تفضل FinancialPrg7.rar

قيد النظر ...

لا تزال المشكلة قائمة وضعت بيانات وهمية اوفسنا.rar جربت ونفس المشكلة

ما شكل التقييم النهائي ؟ ارجوا الاجابة بدقة حسب ما هو متبع لديكم هل سيتم جمع التقييمين ويتم الحساب حسب المجموع ... ام سيتم اخراج المتوسط بين التقييمين مثلا في احد البنود : تقييم المدير = 10 وتقييم الموارد = 8 هل ستكون القيمة = 18 ام يتم استخراج المتوسط لتصبح القيمة = 9 ---------------------------------------------------------- ثانيا : عرض التقرير ... ارجوا تزويدي بصورة ( وورد او اكسل ) للمخرج النهائي .. اي البيانات التي سيتم عرضها في التقرير

قيد النظر ...

مشكور استاذ محمد هشام راح اجرب الكود بس شكل الكود معقدة شوي شاكر ذوق حضرتك

تمام ضبط تسلم ايدك وجزاك الله خيرا تمام ضبط تسلم ايدك وجزاك الله خيرا

لسيادتكم جزيل الشكر @kkhalifa1960 بالفعل محاولة بالغة المهارة

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

استاذ @Abdelaziz Osman إذا تبغي عند حذف سجل الحفاظ على المعلومات اتبع محاولتي الأولي . أما إذا تبغي عند حذف سجل الحفاظ على الترقيم متسلسل أنظر نموذج 2 . بعد حذف السجل رقم 3 كما بالمرفق . عدم تجاوز التسلسل-2.rar

أخي @Abdelaziz Osman ، لا تحتاج كود لهذه الوظيفة فآكسيس يوفرها لك من خلال أن تحدد مربع النص الذي تريده ، ثم من تبويب Format ، انزل لآخر خيار Try.accdb

فكرة جيدة ولكن اذا تم حذف سجل سيختلف التسلسل هل من الممكن اخذ التسلسل من الجزء الاول من التسلسل الاخير للسجل السابق بمعنى ان كان السجل السابق 9/2024 هل من الممكن ان ياخذ رقم 9+1 بدل من ان ياخد من حقل ID

السلام عليكم ورحمة الله لدى نموذج به حقلين باسم ENG واخر باسم ARB المطلوب عندما اريد انتقل الى الحقل ENG لكي اريد ادخال قيمة اريد تلقائيا لغة الكتابة تكون انجليزية لا اريد اضغط على ALT + SHIFT لكي اغير لغة الادخال وهكذا اريد عند الانتقال الى الحقل ARB يكون لغة الادخال عربى لا اريد الضغط على ALT + SHIFT تغيير لغة الكتابة تلقائيا.accdb

مشاركة مع استاذ @Foksh تفضل استاذ @Abdelaziz Osman محاولتي ...... وليش ماتستغل حقل الترقيم التلقائي كما بالشرح والمرفق . عدم تجاوز التسلسل-1.rar

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

السلام عليكم ورحمة الله وبركاته. اخوان محتاج معادلة لجمع القيم في الخلايا من D6:G6 . جزاكم الله خيرا .. جمع ناتج اعمدة.xlsx

السلام عليكم ورحمة الله اخوانى الافاضل السلام عليكم احتاج اضافة تصفية للتقرير بنفس المنهج المتبع فى التقرير بحيث يمكن اختيار متعدد فى التقرير للاصناف مثل اسم الحساب و نوع الحساب احتاج الى الصنف بنفس التقرير او بتقرير جديد مع الشكر اسم المستخدم = Admin كلمة المرور = 1 FinancialPrg6.accdb

ماهذه الرسالة ؟؟؟ عندما ادخلت 10/2024 رفض الادخال يرجى العلم ان الحقل infoo ليس حقل تاريخ لكنه حقل نصى عادى

عليكم السلام ورحمة الله وبركاته أخي @Abdelaziz Osman .. استخدم هذا الكود في حدث قبل التحديث لمربع النص Infoo Private Sub infoo_BeforeUpdate(Cancel As Integer) Dim rs As Recordset Dim lastValue As String Dim newValue As String Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 * FROM Mod ORDER BY [infoo] DESC") If Not rs.EOF Then lastValue = rs("infoo") End If rs.Close newValue = Me.infoo.Value If DateValue(newValue) > DateValue(lastValue) Then MsgBox "íÑÌì ÇáÊÃßÏ ãä ÇáÊÓáÓá!", , "ÊäÈíå" Me.Undo Cancel = True End If End Sub وهذا مثالك ,, عدم تجاوز التسلسل.accdb

السلام عليكم ورحمة الله لدى حقل بالنموذج المرفق باسم infoo يتم ادخال بيانات به بالنمط التالى 1/ 2024 , 2/2024 , 3/2004 وهكذا ... المطلوب : تقييد الادخال فى حالة تجاوز التسلسل النمطى بعد اخر ادخال اي اذا كان على سبيل المثال آخر سجل هو الفيمة "9/2024" فلا يجوز تجاوز تسلسل هذة القيمة اذا ادخلت على سبيل المثال "11/2024" او اي قيمة اعلى من ذلك لان التسلسل الذى عليه الدور هو "10/2024" ويعطى رسالة تنبيه " يرجى التاكد من التسلسل" عدم تجاوز التسلسل.accdb

عليكم السلام ورحمة الله وبركاته يمكنك استعمال هذه المعادلة المختصرة على اعتبار أن الرقم موجود في الخلية A2 =MID(A2,5,LEN(A2)-10) بالتوفيق