Foksh

أحسنت ،، فكرة جميلة جداً أيضاً لدعمك في فكرة أخرى لتعديل جميع السجلات باستبدال 0 في رقم الهاتف في الجدول بمفتاح الدولة Dim db As dao.Database Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT * FROM Table1 WHERE Left(PhoneNumber, 1) = '0'" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Do Until rs.EOF rs.Edit rs!phoneNumber = "962" & Mid(rs!phoneNumber, 2) rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing

تعتمد على حقل مدمج بين قيمة مفتاح الدولة وقيمة الحقل اللي فيه الرقم بدون 0 عشان يتحقق معك شرط الرقم مع مفتاح الدولة بدون 00 كما أخبرتك .. هناك حل آخر وهو التعديل على جميع الارقام لديك من خلال كود بحيث يضيف لكل السجلات بدل 0 اللي في الرقم يصبح مفتاح الدولة فقط . طبعاً هذا لو الارقام محلية داخل بلدك الكريم ,,

انا ، نزلت الملف ، خليني بس أطلع من الشغل ، واشوف الملف وارد عليك لأني لاحظت حاجة كمان انك عامل قيمة الصف في الجدول الرئيسي بتتاخذ من خلال استعلام !!! ودي حتعمل مستقبلاً مشاكل معك وتقيدك كتييييييييييييييييييييييير

وعليكم السلام ورحمة الله وبركات أخي @qathi ،، استكمالاً لطلبك في موضوع سابق ، تفضل هذا التعديل على الزر المسؤول عن السحب من السكانر ,, Private Sub scan1_Click() [picfile] = Null On Error Resume Next Dim filelocation As String ' متغير موقع الملف filelocation = Application.CurrentProject.Path & "\" & "Image" & "\Items\" & Me.mID & "T." & ".jpg" 'filelocation = Application.CurrentProject.Path & "\" & "Image" & "\" & "Items" & "\" & Me.mID & "T." & ".jpg" If scanner.DeviceInfos.Count = 0 Then MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation Exit Sub End If Dim scandiag As New WIA.CommonDialog Dim image As WIA.ImageFile Set image = scandiag.ShowAcquireImage image.SaveFile filelocation Me.picfile = filelocation Me.Refresh End Sub الإضافة كانت فقط في الجملة الشرطية في الكود .. وهذا الملف المرفق بعد التعديل .. Scan01.accdb

مهو احنا بنتكلم عن الربط !!! وانا اذا نسيت أأكد على الموضوع فبعتذر .. الحقول الرئيسية اللي تكلمت عنها فوق هي اللي هنخلي بينها علاقة

تفضل :- WB.accdb

أخي الغالي ، لا أمانع المتابعة معك أبداً ، ولكن افتح موضوع جديد حتى لا نخالف قوانين المنتدى لأن هذا الموضوع قد تم اغلاقه باختيار صاحبه أفضل إجابة . وأيضاً لأن الطلب مختلف عن الموضوع الأصلي

جدول الفصول انتهينا منه بإضافة حقل المادة الرئيسي في جدول الفصول . الآن في جدول المواد لو ضفنا حقل المعلم ، وضفنا في جدول الفصول رقم الاستاذ الرئيسي ، جرب بادخال بيانات ونتابع

للتوضيح أكثر اذا تكرمت .. هل كل فصل له معلم واحد ؟؟ وهل كل فصل له مواد محددة ؟

نعم صحيح ، انا بالنسبة لي هذا أفضل نمط ممكن تكون فيه العلاقات أحسنت أخي @2saad

تفضل أخي @agha4m طلبك ، رغم أن صاحب الموضوع @SAROOK لم يتابع بإغلاقه الموضوع (للأسف) عند حصوله على إجابته باختيار إجابة الأستاذ @محمد احمد لطفى أفضل إجابة . تنسيق شرطي.accdb

يفترض ذلك .. إن لم تجرب لن تعرف الإجابة لسؤالك ثم أن اختيار أفضل إجابة يكون عند إيجادك الحل

أخي الكريم @قهرني الأوفيس ، وعليكم السلام ورحمة الله وبركاته .. لا تعجب في عدم الاستجابة لموضوعك لعدة أسباب .. أولها أن النموذج الرئيسي والفرعي لهما نفس المصدر للبيانات وهو الاستعلام Query1 ثم انك تريد اضافة بيانات في حقول استعلام !! ثانياً الطلب غير واضح في الصورة ، انظر !! أيضاً العنوان لا يدل على مضمون الموضوع ..... الخ .

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

حاول بلورة هذه الفكرة حسب رغبتك ,, WB.accdb

ارفق ملف أخي @mohammadalsheikh مع الصورة

بعد القاء نظرة على الجداول ، اعتقد لديك الكثير من التعديلات على الجدول الرئيسي student1_3 ، في الجدول ستكون القيم رقمية في الحقول المرتبطة ببعضها ، فمثلاً :- الصف :- لديك رقم الصف تلقائي أو كود الصف واسم الصف في الجدول عند الربط يكون في سجل الطالب في حقل الصف هو قيمة الترقيم الذي يدل على الصف وليس اسم الصف ( هل فهمت مقصدي !! ) وهكذا الأمر بالنسبة لبقية الجداول التي تريد ربطها بالجدول الرئيسي ..

صديقي ،، انت تريد استدعاء قيمة الى النموذج الحالي ، أو حتى تريد الإشارة الى كائن موجود في النموذج الحالي ، صح ؟؟ اذا لا داعي لوضع العنوان كاملاً فقط يكفي الإشارة بـ Me.Com1 وهنا سيفهم الكود أن مربع النص Com1 أو الكائه هذا موجود داخل هذا النموذج . لا تغيير في الأكود سوى الذي ذكرته قبل لحظات ، وليس له علاقة ، وإنما قمت بعمل ضغط وإصلاح لقاعدة البيانات فقط

تفضل اخي @العبيدي رعد جرب واعطيني خبر برنامج القرضة الحسنة نسخة 30.zip

قمت بتجربة مثالك ، وجميع المقترضين تظهر لهم جميع البيانات حتى رقم المقترض يظهر

أستاذ @عمر ضاحى ، نورتني بمشاركتك معايا أفكارك ، جزاك الله كل خير ، هو فعلاً جاري العمل على عدة تطويرات ، ولكن ضي الوقت لم يسعفني بالسرعة المطلوبة .. إن شاء الله قريباً التحديثات والإضافات التي تشورون علي بها . ههههههه إن كنت ناسي ، فأنا فاكر وتم العمل عليها , لكني أعتقد أن العبارات قد تكون رسمية أو باللغة العربية الفصحى إلى حد ما لإختلاف اللهجات والمصطلحات في اللغة العربية . لكني سأحاول توظيف الفكرة كما تريدون .. تصدق أولادي أمس لعبوا على اللعبة وراحوا يقطعوا بعض في اللعبة

بدايةً تأكد أخي @العبيدي رعد من صحة القيم والسجلات التي لا تظهر معك .. وفي حال لم تتوصل لمعرفة المشكلة ، ارفق ملفك هنا للإطلاع عليه ومعرفة السبب

جزاك الله خير ، وأعاننا على هذه ما حيينا

أخي الكريم @أمير ادم ، أسعد الله أوقاتك ، وأعتذر عن المحاولات السابقة إلى أن توضحت الأمور في متطلبات رمز الـ QR . من الواضح أن هيئة الزكاة تعتمد على طريقة تشفير وترميز البيانات باستخدام EncodeTLV . ثم يتم تشفير البيانات باستخدام الترميزات EncodeBase64 ، كما كان في تجربة سابقة لفهم آليه التشفير .. والحمد لله أعتقد أنني توصلت إلى حل . جرب هذا الكود كاملاً مع وظائف التشفير والإسترداد بالترميز الذي يتعرف عليه نظام الفاتورة الإلكترونية :- Option Compare Database Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Sub Command18_Click() On Error GoTo ErrorHandler Dim apiUrl As String Dim qrData As String Dim savePath As String Dim result As Long Dim sellerName As String Dim vatNumber As String Dim invoiceDate As String Dim totalAmount As String Dim vatAmount As String sellerName = Me.AD_Company_Vendor_Name vatNumber = Me.AD_Tax_Number invoiceDate = Me.AD_Invoice_Time_and_Date totalAmount = Me.AD_InvoiceAmountwithaddedvalue vatAmount = Me.AD_VAT Dim tlvData As String tlvData = Chr(1) & EncodeTLV(sellerName) & _ Chr(2) & EncodeTLV(vatNumber) & _ Chr(3) & EncodeTLV(invoiceDate) & _ Chr(4) & EncodeTLV(totalAmount) & _ Chr(5) & EncodeTLV(vatAmount) qrData = EncodeBase64(tlvData) apiUrl = "https://api.qrserver.com/v1/create-qr-code/?data=" & qrData & "&size=200x200" savePath = Application.CurrentProject.Path & "\qr_code.bmp" result = URLDownloadToFile(0, apiUrl, savePath, 0, 0) If result = 0 Then Me.imgQRCode.Picture = savePath Else MsgBox "Failed to download QR code image.", vbExclamation End If Exit Sub ErrorHandler: MsgBox "An error occurred: " & Err.Description, vbCritical End Sub Private Function EncodeTLV(value As String) As String EncodeTLV = Chr(Len(value)) & value End Function Private Function EncodeBase64(value As String) As String Dim bytes() As Byte Dim xmlDoc As Object Dim xmlNode As Object Dim base64Data As String Set xmlDoc = CreateObject("MSXML2.DOMDocument") Set xmlNode = xmlDoc.createElement("Base64Data") xmlNode.DataType = "bin.base64" bytes = StrConv(value, vbFromUnicode) xmlNode.nodeTypedValue = bytes base64Data = xmlNode.Text Set xmlNode = Nothing Set xmlDoc = Nothing EncodeBase64 = base64Data End Function وهذا الملف بعد التعديل Qrcode.accdb

أشكرك أستاذنا الغالي @ابو البشر بعض ما عندكم يا صديقي صديقي الدكتور @الحلبي ، ربنا يوسع عليك ، أشكرك مرورك أخوك فادي