د.كاف يار

Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يجب ملئ جميع الحقول" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = vbNewLine & ctl.Name Else msg1 = msg1 & vbNewLine & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.OpenReport "ضع هنا اسم التقرير", acViewPreview Else MsgBox msg2 & vbNewLine & msg1, vbCritical + vbMsgBoxRight, "تنبيه" End If

تسويط النص اعتقد انه ما يقبل و تعديل الأعمدة تم ربط مع عدد الأعمدة في الجدول أي زيادة الأعمدة و نقصانها تعمد على حسب جملة الاستعلام Me.SmartList.ColumnCount = rs.Fields.Count

تفضل هذا المثال اخي الكريم اتاحة الطباعة.accdb

العفو اخي الكريم تفضل هذا التعديل كان فيه خطأ بسيط و تم التعديل عليه ملاحظة هامة اهم عنصرين في عملية الاستعلام هم (D_Obs \ م) في حال اضفت جدول جديد تأكد من اضافة هذين الحقلين (D_Obs \ م) و من ثم اضافة اسم الجدول الجديد في جدول Tabols nabil23223.zip

اتفضل التعديل يابو الحسن اذا الرقم مكرر راح تكون امام خيارين - الاستمرار بالرقم المكرر - رفض الاستمرار بالرقم المكرر DATA145.zip

هذي الاشكالية تم حلها مسبقا

اذا جرب حل اخونا جعفر في اعتقادي هو الانسب لأنه أتوقع عندك مشكلة في نسخة الأوفيس او ارفق نسخة من البرنامج عشان نحاول فيه او جرب تستغني عن هذي الطريقة و تستخدم طريقة ثانية مثلا هذي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM EmployeeDATA where [Employee_NO]='"& [TextEmployeeNO] &"'") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) [مربع النص]=rs.Fields("اسم العمود") rs.MoveNext Wend End If rs.Close Set rs = Nothing

تفضل التعديل nabil23221.zip

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

تفضل التعديل اخي nabil2322.zip

استبدل التالي DLookup("[pass]", "TblEmp", "arname Like '*" & Me.Cuser & "*'")

طيب اتفضل هذا التعديل DATA144.zip

للأسف المتطلبات كثيرة جدا و عشان اقدر اشتغل عليها لابد يكون معاي معلومات المنشأة الخاصة بالزكاة و الدخل لأن الفاتورة النهائي لابد تكون بأحد الصيغتين XMIL أو PDF و هذا رابط مشروع الفوترة الالتكرونية مشروع الضوابط والمتطلبات والمواصفات الفنية والقواعد الإجرائية اللازمة لتنفيذ أحكام لائحة الفوترة الإلكترونية لكن في كل الأحوال كل الطرق سهلة بستثناء الأكسس و راح ابدء اشتغل على هذا النظام على C#.net و راح اضيفه في المنتدى حال الانتهاء منه انشاء الله

تفضل التعديل DATA143.zip

طيب جرب هذا و جرب تستخدم نفس ملف الاكسل المرفق اذا ضبط جرب ملف الاكسل الي عندك اذا صار اختلاف يصير لابد ترسلي نسخة من ملف الاكسل الي عندك DATA142.zip Data14.xlsx

اذا يلزم انك تحصل على المكتبة عشان تثبتها و تقدر من خلالها تستدعي API عشان تتصل بالسيرفر سواء كان في الزكاة و الدخل او غيره لكن انصحك انك تشتغل على ASP.Net أو VB.Net أو #C راح تجد سهولة في التعامل مع جميع خصائص API و سهلة في تثبيتها

لم يعد موجود تمت ازالته من اصدار 2010

كل شي يقبل لكن انت ايش تحتاج بالضبط

تفضل التعديل DATA141.zip

كيف تقوم بالاتصال بقاعدة البيانات ؟

لا يوجد واجهات API هي فقط خاصية ما ذا تريد بالضبط ؟

تفضل التعديل اخي الكريم nabil.accdb

تفضل DATA14.zip

العفو استاذي العفو اخي الكريم كلنا في خدمتك

اخي جعفر بالنسبة للمكتبة هذي ما استخدمتها اضفتها عشان اجري بعض التجارب لكنها غير مستخدمة يمكن ازالتها بالنسبة للتشفير و هذا سبب التأخير ارسال و استقبال النص الإنجليزي كان بصورة ممتازة لكن ارسال النص العربي كان فيه مشكلة كان يرسل بحروف و رموز لم يستطع المتصفح التعرف عليها طبعا المشكلة في لغة المتصفح أو الجهاز و للأسف ما عرفت اتوصل لترميز اللغة الصحيح فأضطريت اشوف طريقة ثانية ارسل فيها النص العربي بصورة سليمة فأكتشفت ان الرابط لما يتم تمرر من خلاله نص يتم تشفير النص و هذا كان هو الحل رابط بنص غير مشفر https://translate.google.com.my/?hl=ar&tab=rT&sl=ar&tl=en&text=مرحبا&op=translate و هذا الرابط مع النص المشفر و بهذي الطريقة نكون بإستطاعتنا تمرير النص العربي مهما اختلف الترميز https://translate.google.com.my/?hl=ar&tab=rT&sl=ar&tl=en&text=%D9%85%D8%B1%D8%AD%D8%A8%D8%A7&op=translate النص العربي مرحبا = %D9%85%D8%B1%D8%AD%D8%A8%D8%A7