Foksh

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

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

لازم تغير الباسوورد في كود المديول من 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 جرب وأخبرني بالنتيجة

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

دي كانت من النقاط المهمة طبعاً

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

هل قاعدة بيانات النماذج تم اقفالها بكلمة مرور ؟؟؟ ولا اقصد محرر الأكواد VBA !!

سلمك الله من كل سوء وشر معلمي الفاضل @ابوخليل 🥰 كلامك سليم 100% الله يسلمك يا دكتور ، جرب وأخبرنا بالنتيجة وحسب توجيهات معلمنا الفاضل ابو خليل.

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

صديقنا الدكتور @الحلبي ،، سأشرح لك ما فهمته من تجربتي معك بخصوص هذا الموضوع .. سيكون لديك قاعدة بيانات للجداول والتي من الضروري أن تكون محمية بكلمة مرور ( وليس شرط أن تكون صيغتها Accde أو Accdb ) . وأيضاً سيكون لديك قاعدة النماذج والتي أيضاً من الضروري أن تكون محمية بكلمة مرور ( وعند الإنتهاء من كافة تعديلات النماذج يفضل - ليس شرطاً - حفظها بصيغة Accde ) . سيكون لديك الكود الذي سيقوم بدوره بربط الجداول بقاعدة البيانات الأمامية ( وسيتم افهامه بكلمة المرور لقاعدة بيانات الجداول داخل الأكواد ) . الآن أهم مرحلة وهي مرحلة الوسيط الذي سيقوم بفتح قاعدة البيانات الأمامية والتي تم حمايتها بكلمة مرور ( وهو بدوره سيقوم بتعريف كلمة مرور قاعدة البيانات من خلال الأكواد ) وبعد اتمام عملية مطابقة كلمة المرور سيقوم باغلاق نفسه وإبقاء قاعدة البيانات الأمامية مفتوحة بوضعها الطبيعي . والأكواد كالتالي .. في قاعدة بيانات الوسيط الذي سيكون فيه فقط نموذج فارغ لا يحتوي على اي عنصر أو كائن ، وفي حدث عند الفتح :- Dim App As Access.Application, strPath As String Set App = New Access.Application strPath = Application.CurrentProject.Path & "\XXXXX.accdb" With App .DoCmd.RunCommand acCmdAppMinimize .OpenCurrentDatabase strPath, , "YYYYY" .DoCmd.OpenForm "x0", , , , , acWindowNormal End With Set App = Nothing DoCmd.Quit طبعاً XXXXX = اسم قاعدة البيانات . و YYYYY كلمة المرور التي تم حماية قاعدة بيانات النماذج بها . وبلا شك سيتم حفظ هذا الوسيط بصيغة Accde هذا ملخص لما قد تحتاجه . وثق تماماً أن أي نقطة لم تكن واضحة سيتم توضيحها لك

أسعد الله قلبك ، أخي @Zooro1 شرف لي تقديم معلومة لهذا المنتدى

هل هذا طلبك أخي الكريم @Zooro1 ؟؟ admin.accdb

ايش الجمال هذا كله أحسنت وأبدعت في هذا العمل أخي @فريدالطحان

لم افهم السبب الذي يمنع ذلك !!!!

إن شاء الله ، حال اصدار النسخة الجديدة سيتم ذلك

قريباً النسخة الجديدة مع تعديلات و إضافات جديدة 😁

وعليكم السلام ورحمة الله وبركاته اخي الكريم.. الموضوع جداً متشعب وفي اسئلتك شرح غير وافي لما تريده. على العموم تابع هذا الموضوع قد يفيدك

فقط اجعل PopUp = Yes Modal= Yes

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

شكراً لك أختنا الكريمة صفاء على سءالك ،، الحمد لله بخير . وأشكر كل من قام بالسؤال عني ، وربنا يطمنكم على حبايبكم ولا يريكم فيهم مكروه ولا يشغلني عنكم فعلاً سوى العمل للأسف .. متواجد بفترات على الواتس في مجموعة المنتدى