د.كاف يار

تفضل هذا المثال مثال.accdb

طيب جرب هذا المقترح و اعطيني رأيك pdf4.zip

طيب ارفق نسخة فارغة من الملف عشان نقدر نساعدك في الحل

اذا كان عندك بيانات كثير فإقتراح اخوي @jjafferr افضل حل حول ملف PDF الى صور و انشئ تقرير لكل صورة او كل صورتين و اجعل الاستعلام واحد لكل التقارير و كذلك المعيار و في امر الطباعة يكون طباعة الجميع لكن ارسال البيانات للورد راح تكون العملية جدا بطيئة

الغي الفهرس على جميع الحقول و اجعلها تقبل التكرار بإستثناء المفتاح الاساسي و بهذا تنتهي المشكلة

ماشاء الله لا قوة الا بالله فكرة ابداعية خارج الصندوق

تفضل التعديل و لا تنسى تضيف رقم الحساب و المفتاح Function SendSMS(fromNumber As String, toNumber As String, body As String) Dim SmsUrl, ACCOUNTSID, AUTHTOKEN As String ACCOUNTSID = "ACCOUNT SID" ' ضع هنا رقم الحساب AUTHTOKEN = "AUTH TOKEN" ' ضه ضع هنا مفتاح الحساب On Error GoTo Error_Handler SmsUrl = "https://api.twilio.com" & "/2010-04-01/Accounts/" & ACCOUNTSID & "/SMS/Messages" Dim http As MSXML2.XMLHTTP60 Set http = New MSXML2.XMLHTTP60 http.Open "POST", SmsUrl, False, ACCOUNTSID, AUTHTOKEN http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" Dim postData As String postData = "From=" & fromNumber _ & "&To=" & toNumber _ & "&Body=" & body http.send postData Debug.Print http.responseText If http.status = 201 Then ElseIf http.status = 400 Then MsgBox "Failed with error# " & _ http.status & _ " " & http.statusText & vbCrLf & vbCrLf ElseIf http.status = 401 Then MsgBox "Failed with error# " & http.status & _ " " & http.statusText & vbCrLf & vbCrLf Else MsgBox "Failed with error# " & http.status & _ " " & http.statusText End If Exit_Procedure: On Error Resume Next Set http = Nothing Exit Function Error_Handler: Select Case Err.Number Case NOINTERNETAVAILABLE MsgBox "Connection to the internet cannot be made or " & _ "Twilio website address is wrong" Case Else MsgBox "Error: " & Err.Number & "; Description: " & Err.Description Resume Exit_Procedure Resume End Select End Function ODB_Database.zip

و جرب هذا التعديل 1390.nabil23221.zip

فقط قم بإضافة هذه المكتبة و سيعمل مع الكود

تفضل التعديل بيانات.zip

قد تستفيد من هذا الكود Dim db As Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM [table name] where [Order number]='"+ [TextForOrder number] +"'") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) 'احضار البيانات [text1]=rs.Fields(0) ' or rs.Fields("Column name") [text2]=rs.Fields(1) [text3]=rs.Fields(2) [text4]=rs.Fields(3) rs.MoveNext Wend End If rs.Close Set rs = Nothing

نعم تستطيع اولاً / اشترك في خدمة الرسائل و انصح بهذه الشركة حيث انها تمنحك مبلغ 15 دولار كهدية للاشتراك رابط شركة twilio ثانيا / استخدم API الخدمة سأضعه ضمن الكود https://api.twilio.com ثالثا / انشئ Module و الصق الشيفرة التالية فيه Function SendSMS(fromNumber As String, toNumber As String, body As String) Dim SmsUrl As String On Error GoTo Error_Handler SmsUrl = "https://api.twilio.com" & "/2010-04-01/Accounts/" & "Accounts_Her" & "/SMS/Messages" Dim http As MSXML2.XMLHTTP60 Set http = New MSXML2.XMLHTTP60 http.Open "POST", SmsUrl, False, ACCOUNTSID, AUTHTOKEN http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" Dim postData As String postData = "From=" & fromNumber _ & "&To=" & toNumber _ & "&Body=" & body http.send postData Debug.Print http.responseText If http.status = 201 Then ElseIf http.status = 400 Then MsgBox "Failed with error# " & _ http.status & _ " " & http.statusText & vbCrLf & vbCrLf ElseIf http.status = 401 Then MsgBox "Failed with error# " & http.status & _ " " & http.statusText & vbCrLf & vbCrLf Else MsgBox "Failed with error# " & http.status & _ " " & http.statusText End If Exit_Procedure: On Error Resume Next Set http = Nothing Exit Function Error_Handler: Select Case Err.Number Case NOINTERNETAVAILABLE MsgBox "Connection to the internet cannot be made or " & _ "Twilio website address is wrong" Case Else MsgBox "Error: " & Err.Number & "; Description: " & Err.Description Resume Exit_Procedure Resume End Select End Function رابعا/ انشئ نموذج يحتوي على ( المرسل اليه - نص الرسالة - ازرار الإرسال ) خامسا / الصق الكود التالي في ازرار الارسال SendSMS "From_Number", "To_Number", "Text_Msg" ملاحظة سيتم منحك رقم للإستخدام في عملية الارسال و عليك ان تضعه في Form_Number عن تجربة هذا الخادم سريع في الارسال كما انه في حال ترقية العضوية يمنحك API للواتساب و تويتر و اغلب وسائل التواصل الاجتماعي

كفوووو ما شاء الله عليك يا بو ابراهيم ابدعت اتوقع انك مستخدم مكتبة ماهي موجودة عندي

انت استخدمت نموذج فرعي بطريقة عرض ورقة البيانات اما في تصميمي فقد استخدمت نموذج فرع بطريقة النموذج المستمر و هذا الفرق ففي النموذج المستمر لا يوجد اداة فز مثل ما هو موجود في ورقة البيانات

ياليت توضح مافهمت كيف ودك تلغي التحكم في عرض الحقول

قم بتغيير اعدادات اللغة الاقليمية الى العربية فقط

اتفضل 2064943590_.accdb

اقترح نستدعي وحش من وحوش الاكسس المعلم الكبير @jjafferr يعطينا المشورة لحل هذه المشكلة و السبب لعدم عمل المكتبة لديك

زودني بصورة من صفحة المكتبات لديك

هل استخرج الملف من داخل الملف المضغوط ؟ كذلك ماهو اصدار الاوفس الذي تعمل عليه

تفضل هذا التعديل مثال.accdb

هل المشكلة في نفس الملف ؟؟

ارفق مثال لكي يتم التعديل عليه

نعم ممكن ارفق مثال مشابه و سيتم التنفيذ انشاء الله

تفضل هذا المقترح 1مثال.zip