Foksh

الجملتين عكس بعض يا @safaa salem5 وليه تلزمي نفسك بالحدث عند التغيير ؟؟؟ مجرد فكرة ، جربي الحدث بعد التحديث للحقلين Private Sub volume_AfterUpdate() Me.total = Nz(Me.volume, 0) * Nz(Me.conc, 1) End Sub Private Sub conc_AfterUpdate() Me.total = Nz(Me.volume, 0) * Nz(Me.conc, 1) End Sub مجرد فكرة 😅

أهلاً وسهلاً بك اخي الكريم @feth بداية للتفريق بين الباركود ، ورمز الإستجابة السريعة QR . باعتقادي أن الباركود لن يحمل كمية الحروف والأرقام التي ستكون في الفاتورة ، على عكس رمز الـ QR وسبب هذه الملاحظة هو انني استخدمت رمز الـ QR في أحد برامجي ( نظام الحضور والإنصراف ). على العموم حالياً لست أمام جهاز كمبيوتر ولكن تنفيذ فكرتك بإذن الله أمر بسيط.

نعم صحيح ، فعلاً لا أحد يعلم ما الفائدة التي ينتظرها صاحب الموضوع من اخفاء هذا التنبيه وليس الفائدة من مربع الحوار ( رسالة جاري الطباعة ) 😁 فعلاً الويندوز سيحتاج لفرض صلاحيات من المستخدم ليتم تنفيذ أحد الطلبات التي تختص بنظام الويندوز ..

ارفق ملفك اخي @jo_2010

شكراً لك أخي الحبيب @ahmed draz على لطفك وكلماتك الطيبة .. المنتدى عامر بالمحبة الموصولة بين أعضائه 🥰 . ونتمنى أن نكون عند حسن الظن 💐

ما الهدف من الفكرة المطلوبة ؟؟

ارسل مرفق للتجربة ومعرفة اين الخلل

اخي الغالي ، لا حاجة لاختيار افضل اجابة إلا اذا حصلت على الحل لمشكلتك .. حسناً لنوسع الفكرة بشكل أوسع ، سنتعامل مع مكتبة API لتعطيل رسائل النظام . أولاً انشاء مديول جديد وسنضع به هذا الكود البسيط ( يعمل على النواتين 32 و 64 ) :- Option Compare Database Option Explicit #If VBA7 Then ' 64-bit declarations Private Declare PtrSafe Function LockWindowUpdate Lib "user32" (ByVal hwndLock As LongPtr) As Long #Else ' 32-bit declarations Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long #End If Sub DisableScreenUpdates() LockWindowUpdate Application.hWndAccessApp End Sub Sub EnableScreenUpdates() LockWindowUpdate 0 End Sub ثم عند حدث الطباعة نستدعيه بهذا الشكل :- DisableScreenUpdates DoCmd.OpenReport "اسم_التقرير", acViewNormal EnableScreenUpdates أيضاً قيد التجربة لأني لا املك طابعة في الوقت الحالي

ليس هناك اي احراج اخي الكريم @Zooro1 أبداً ,, في الواقع انا شاركت من عند الموضوع اللي بيتكلم عن وقت محدد اذا لم يتم تحريك الماوس فيه يتم اغلاق النموذج أو اظهار رسالة وانت تعدل حسب حاجتك للحدث عند انقضاء الوقت ، أما موضوع الصور ده فهو لم يظهر عندي من الأساس ولا اقم بمتابعته للأسف .. أما موضوع اخفاء العناصر في النموذج سهل جداً . في الكود اللي ارسلته لك في حدث عند التحميل سيتم فحص الجدول الذي أشرت اليه اذا كان هناك اي سجلات فيتم اظهار العناصر في النموذج الحالي . واذا لم يكون هناك اي سجلات ( الجدول فارغ ) فيتم اخفاء جميع العناصر في الجدول . admin.accdb جرب احذف سجلات الجدول وارجع افتح النموذج وشوف

لا جعل الله ختلافاً فيما بيننا لا على صغيرة ولا كبيرة

أخي الكريم @الوااااثق ، بدايةً أهلاً وسهلاً بك في عالمنا المتواضع في هذا المنتدى . ثانياً حتى لو امكانياتك بسيطة في الآكسيس فلا بد لك من وضع حجر الأساس في مشروعك بإنشائك للجداول على الأقل . وللتوجيه من وجهة نظري اتبع ما يلي :- الإبتعاد عن تسمية الحقول بمسميات عربية أثناء تصميم الجداول . لا تستخدم رموز مثل ( $ و % و # و @ ..... الخ ) أو مسافات في أسماء الحقول كمثال ( Student Name ) فالأفضل لك كمثال إما ( Student_Name ) أو ( StudentName ) لا تستخدم أسماء للحقول في الجدول تكون من الثوابت في لغات البرمجة مثل ( Name , Date , From , To ) .... الخ لأنها ستجعل العمل مربك أثناء كتابتك للإستعلامات أو الأكواد . اهتم بأنواع الحقول ( رقمي ، نصي ، تاريخ ، ترقيم تلقائي ... الخ ) بشكل سليم أثناء التصميم . يجب ان يكون لديك حقل مفتاح أساسي أو غير مكرر ليسهل لك ربط الجداول والسجلات ببعضها البعض . ثالثاً ستجد جميع في المنتدى ( حسب وقتهم طبعاً ) قد ساعدك ولو بمعلومة بسيطة تكون لك حل لمشكلة أو جواباً لتساؤلاتك .

ليس لي تجربة في الموضوع لعدم حاجتي له على ما أعتقد ولا أعلم الفائدة من هذه الخطوة .. على العموم هل جربت اخفاء رسائل التحذير قبل أمر الطباعة :- DoCmd.SetWarnings False ثم أمر الطباعة الخاص بك ( حسب مشروعك ) .. ثم إعادة تفعيل الرسائل التحذيرية :- DoCmd.SetWarnings True

استخدم هذا الكود في حدث عند التحميل للنموذج ، بحيث اذا كان الجدول فارغ يتم اخفاء جميع العناصر والمكونات في النموذج الحالي .. Private Sub Form_Load() Dim rs As DAO.Recordset Dim ctrl As Control Set rs = CurrentDb.OpenRecordset("SELECT * FROM Images_T") If rs.RecordCount = 0 Then For Each ctrl In Me.Controls ctrl.Visible = False Next ctrl End If rs.Close Set rs = Nothing End Sub مثال بسيط Clock Sub Form.accdb

ما يهمك هو الوسيط ACCDE

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

بما أنها منفصلة كقاعدة بيانات خلفية اذاً وجب ان يتم إدراج كود الربط في النموذج الرئيسي الأول في قاعدة بيانات النماذج ، وادخال كلمة السر في المتغير بدلاً من XXXX . هنا سنهرب من الحفرة لنقع في المطب 😅 اذا كنت تريد التقسيم فاستمر على ما سبق ، أما إذا لم تكن ترغب في فصل الجداول عن النماذج فسيكون لديك قاعدة بيانات رئيسية واحدة ( تضم النماذج والجداول والاستعلامات... الخ ) بصيغة Accde بعد الإنتهاء من جميع تعديلاتك . والقاعدة الوسيط التي تحدثنا عنها سابقاً ( فقط ) ولا حاجة لك بقاعدة بيانات للجداول حينها أتمنى ان تكون قد توضحت الفكرة الآن 🤗

توضحت الفكرة ، قد يكون الأمر قد اختلط علي ، على العموم جرب وأخبرنا 😉

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

لازم تغير الباسوورد في كود المديول من XXXXXXXXXX إلى الباسوورد اللي في قاعدة بيانات الجداول

تنسخ المديول الى قاعدة بيانات النماذج .. وتنسخ الكود من النموذج Form1 الى قاعدة بياناتك النماذج > الى النموذج الأول الذي يبدأ في مشروعك > في حدث عند الفتح .. وشرط وجود مكتبة Microsoft Office xx.0 Object Labrary هل باسوورد قاعدة بيانات الجداول "XXXXXXXXXX"

هذا لعدم وجود جداول مرتبطة يا صديقي

شكراً أخي العزيز @M.Abd Allah على كلامك وتصويبك للإسم أخي الكريم @الحلبي ،، هو فعلاً اسمي فادي وليس فايد .. بالنسبة لربط الجداول فتفضل هذا المثال الذي سبق وأن تحدثنا عنه سابقاً مراراً وتكراراً وحتى مع المعلم @ابوخليل قمنا بمشاركة الكود نفسه في وقت واحد .. طبعاً كملاحظة :- في الكود "XXXXXXXXXX" هو الباسوورد الخاص بكلمة مرور قاعدة بيانات الجداول . Relink TBL.accdb

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

أخي الكريم @محب العقيدة .. دون ملف مرفق لتجربة النتيجة فأن الأمر سيطول وسندور في دوامة إيصال المعلومة بشكل صحيح .. على العموم جرب فكرتي من خلال طريقة سابقة أشار إليها أخونا @أمير ادم جزاه الله كل خير .. Sub SendInvoice() Dim url As String url = "https://backend.jofotara.gov.jo/core/invoices/" Dim clientID As String clientID = "رقم المستخدم" ' استبدل برقم المستخدم الفعلي Dim secretKey As String secretKey = "المفتاح السري" ' استبدل بالمفتاح السري الفعلي Dim encryptedXML As String encryptedXML = "Encrypted XML Code" ' استبدل بكود XML المشفر Dim body As String body = "{" & Chr(34) & "invoice" & Chr(34) & ": " & Chr(34) & encryptedXML & Chr(34) & "}" Dim xmlhttp As Object Set xmlhttp = CreateObject("MSXML2.XMLHTTP") xmlhttp.Open "POST", url, False xmlhttp.setRequestHeader "Client-Id", clientID xmlhttp.setRequestHeader "Secret-Key", secretKey xmlhttp.setRequestHeader "Content-Type", "application/json" xmlhttp.send body Dim response As String response = xmlhttp.responseText MsgBox "Response: " & response End Sub جرب وأخبرني بالنتيجة

أخي @الحلبي ، من كلام حضرتك اللي فهمته انه لا يوجد كود لربط قاعدة بيانات النماذج بالقاعدة الخلفية للجداول بحيث يتم ادخال كلمة المرور بشكل آلي من خلال الكود ، وهنا تكمن مكلتك ، ان لم يكون لديك مانع قم بارفاق قاعدة بياناتك بالجداول الفارغة ( لا حاجة للبيانات ان كانت سرية ) وسيتم تطبيق الفكرة ان شاء الله ومن كلامك فهمت ان المشكلة ليست في الأوفيس أو الويندوز ..