ابو جودي

وعليكم السلام ورحمة الله تعالى وبركاته أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @jjafferr اذا حضر الماء بطل التيمم

تعديل واضافة تم اضافة نوع البيانات من خلال الكود الاتى ... انظر النتيجة فى الاستعلام Public Function EnterType(fld) If CountCapitals(fld) > 0 Or CountSmall(fld) > 0 Then EnterType = "حروف انجليزية" If CountingArabic(fld) > 0 Then EnterType = "حروف عربية" If CountingNumbers(fld) > 0 Then EnterType = "ارقام" If CountingSpecialCharacter(fld) > 0 Then EnterType = "رموز" If CountCapitals(fld) > 0 Or CountSmall(fld) > 0 And CountingNumbers(fld) > 0 Then EnterType = "حروف انجليزية و ارقام" If CountingArabic(fld) > 0 And CountingNumbers(fld) > 0 Then EnterType = "حروف عربية و ارقام" End Function Database5 - 2.accdb

أولا : طهور إن شاء الله، أوصيكم بالصبر والثبات والإكثار من ذكر الله، أعظم الله أجركم، وضاعف مثوبتكم، شفاكم الله وعافاكم اللهم إني أسألك بأسمائك الحسنى وبصفاتك العلا وبرحمتك التي وسعت كلّ شيء، أن تمنّ علي أخونا عبد الله وعلى كل مريض بالشفاء العاجل، وألّا تدع فينا جرحًا إلّا داويته، ولا ألمًا إلا سكنته، ولا مرضًا إلا شفيته، وألبسنا ثوب الصحة والعافية عاجلًا غير آجل، وشافِنا وعافِنا واعف عنا، واشملنا بعطفك ومغفرتك، وتولّنا برحمتك يا أرحم الراحمين إلهي أذهب البأس ربّ النّاس، اشف وأنت الشّافي، لا شفاء إلا شفاؤك، شفاءً لا يغادر سقمًا، أذهب البأس ربّ النّاس، بيدك الشّفاء، لا كاشف له إلّا أنت يا رب العالمين ربنا الله الذي في السماء، تقدّس اسمك، أمرك في السماء والأرض، كما رحمتك في السماء، اجعل رحمتك في الأرض، اغفر لنا خطايانا، أنت رب الطيبين، أنزل رحمة من رحمتك، وشفاءً من شفائك على على كل مريض من أي وجع فيبرأ اللهم يا مُفرّج الكرب يا مُجيب دعوة المُضطرين، اللهم ألبس كل مريض ثوب الصحة والعافية عاجلًا غير آجل يا أرحم الراحمين، اللهم اشفى كل مريض ، اللهم اشفى كل مريض، اللهم اشفى كل مريض، اللهم آمين ----------------------- ثانيا : تتمحور فكرتي المتواضعة في هذه الاكواد والتي تكتب في موديول ويتم استدعائها حسب الحاجة انظر التطبيق داخل الاستعلام Public Function CountCapitals(fld) As Integer If fld & "" = "" Then Exit Function Dim StrLn As Integer CountCapitals = 0 For StrLn = 1 To Len(fld) Select Case Asc(Mid(fld, StrLn, 1)) Case 65 To 90: CountCapitals = CountCapitals + 1 End Select Next StrLn End Function Public Function CountSmall(fld) As Integer If fld & "" = "" Then Exit Function Dim StrLn As Integer CountSmall = 0 For StrLn = 1 To Len(fld) Select Case Asc(Mid(fld, StrLn, 1)) Case 97 To 122: CountSmall = CountSmall + 1 End Select Next StrLn End Function Public Function CountingNumbers(fld) As Integer If fld & "" = "" Then Exit Function Dim StrLn As Integer CountingNumbers = 0 For StrLn = 1 To Len(fld) Select Case Asc(Mid(fld, StrLn, 1)) Case 48 To 57: CountingNumbers = CountingNumbers + 1 End Select Next StrLn End Function Public Function CountingArabic(fld) As Integer If fld & "" = "" Then Exit Function Dim StrLn As Integer CountingArabic = 0 For StrLn = 1 To Len(fld) Select Case Asc(Mid(fld, StrLn, 1)) Case 192 To 214: CountingArabic = CountingArabic + 1 Case 216 To 219: CountingArabic = CountingArabic + 1 Case 221 To 223: CountingArabic = CountingArabic + 1 Case 225: CountingArabic = CountingArabic + 1 Case 227 To 230: CountingArabic = CountingArabic + 1 Case 236 To 237: CountingArabic = CountingArabic + 1 End Select Next StrLn End Function Public Function CountingSpecialCharacter(fld) As Integer If fld & "" = "" Then Exit Function Dim StrLn As Integer CountingSpecialCharacter = 0 For StrLn = 1 To Len(fld) Select Case Asc(Mid(fld, StrLn, 1)) Case 33 To 47: CountingSpecialCharacter = CountingSpecialCharacter + 1 Case 58 To 64: CountingSpecialCharacter = CountingSpecialCharacter + 1 Case 91 To 96: CountingSpecialCharacter = CountingSpecialCharacter + 1 Case 123 To 126: CountingSpecialCharacter = CountingSpecialCharacter + 1 End Select Next StrLn End Function Database5.accdb

اتفضل بدون اى جداول فقط حسب الوجدة النمطية 3Dates.accdb

ملاحظة الـ TabTip لا يعمل مع ويندوز 11

طيب الحمد لله

ممكن مرفق

ممكن المرفق من قاعدة البيانات ورجاء صور ال qrcode ذات امتداد png لماذا حضرتك ترفق صور بامتداد jpg

لابد من وجود Framework الاصدار 4

بكل صراحة لا اعرف ولكن لا ضير بان تضع مرفقا بكل كم البيانات ويا حبذا لو ترفق صورتين من ال qr code واحدة ممن يستطيع الماسح قراءتها وأخرى التي لا يستطيع الماسح قراءتها

بشركم الله بأعلى درجات الجنان ان شاء الله ايون انا عارف الحمد لله انه اشتغل لكن المشكلة الان مع ويندوز 7 فى استعراض صورة QR لقراءة بياناتها

تم تعديل المرفق فى المشاركة الأصليـة ... برجاء تجربة المرفق الجديد .. والرجوع الينا بنتائج تجاربكم

للعلم حصلت مشكلة فى تسجيل المراجع مع ويندوز 7

الحمد لله اعتقد بفضل الله الان انحلت مشكلتك ورزقكم الله بأكثر مما تمنيتم اتمنى ان توصلتم لحل نسخ المراجع الثلاث الى ملف system32 برمجيا وتشغيل ملف تسجيل المكتبات كمسئول ان تتكرموا علينا بالطريقة ولا تنسونا جزاكم الله خـيرا

جزاكم الله خيرا هل جربت هذا المرفق استاذى الجليل وهل عمل معكم اعتذر كثيرا لاثقالى عليكم بالامس ولكن بفضل الله ثم انتم اكتشفت المشاكل التى كانت تمنع تسجيل المكتبات ----------------------------- يا استاذ @moamen salem هل جربت تستعرض اى صورة Qr وتعرف البينات اللى فيها من قاعدة البيانات تعمل سكان لصورة

طيب تقدر تشغله كمسئول على الاقل

المفروض الان ان شاء الله لن يواجه احد اى عواقب طالما تم تنفيذ الشرح جيدا كنت اتمنى طريقة تنفذ نسخ المراجع الثلاث وهى كالتالي zxing.dll zxing.interop.dll zxing.interop.tlb وتنفذ الاوامر اللى فى register.cmd برمجيا لانه ان لم يتم الضغط عليه بالفأرة كليك يمينكليك يمين على الملف اللى باسم register.cmd و تشغيله كمسئول run as administrator لن يتم تسجيل المكتبات وكذلك ان كانت ملفات المراجع وملف التسجيل فى مسار يحتوى على مسافات كما شرحت او لم يكونوا فى مجلد واحد لن يتم تسجيل المكتبات لكن لم اوفق لذلك حملت الملفات الخاصة فى القاعدة ولكن عجزت عن تنفيذ افكارى

حضرتك استخدمت المرفق هذا ياللى بالموضوع ام القديم ياللى طلبتك منك تجربته فى الرسالة طبعا من الصورة المرفق القديم ارجوك نزل المرفق اللى فى المشاركة واتبع نفس الخطوات فى الشرح جيدا لاحظ التعديل كما فى المرفق الجديد الاربع ملفات فى مسار واحد zxing.dll zxing.interop.dll zxing.interop.tlb register.cmd الحمد لله انها اشتغلت وجزانا الله واياكم خير الجزاء بخصوص موضوع اختلاف الويندوز اعتقد لا لان انا شغال بـ ويندوز 11 64 بيت اما بخصوص نوات الاوفيس 32 , 64 بيت اعتقد ايضا لن تشكل اى عائق والله اعلم لانى لم استخدم اى دوال API نتمنى من اخواننا من يستخدمون اكسس 64 بيت يخبرزنا النتيجة

السلام عليكم ورحمة الله تعالى وبركاته تم تعديل المرفق وتغيير الاكواد حاولت جعل الية العمل اكثر سلاسة من التعقيدات التى كانت بالشرح والمرفق القديم المميزات - انشاء رمز Qr وحفظ صورته في المسار القاعدة - إمكانية قراءة البيانات من أي صورة تحتوى على QR CODE للبيانات التي تريدها ملاحظة هامة .. لابد من وجود Framework الاصدار 4 وأخيرا المرفق..... في انتظار آرائكم بعد التجربة Generate Or Read QR Code Image V.02.zip

طيب من واقع مثال حضرتك للتضح لك الرؤية اكثر لو الحقل type فى الجدول نوع البيانات فيه نص يكون الكود DCount("*", "typeDa2wa", "[type]='" & Me![type] & "'") لو نوع الحقل رقم يكون الكود DCount("*", "typeDa2wa", ","[type]=" & Me![type]) لو نوع الحقل تاريخ يكون DCount("*", "typeDa2wa","[type] =#" & [type] & "#")

بص دى بترجع لنوع البيانات نستخدم ذلك مع الارقام' stLinkCriteria = "[PersonalNumber]=" & Me.PersonalNumber نستخدم ذلك مع النصوص' stLinkCriteria = "[PersonalName] ='" & [txtLastName] & "'" نستخدم ذلك مع التواريخ' stLinkCriteria ="[DateOfBirth] =#" & [txtDateOfBirth] & "#"

الشكر لله سبحانه وتعالى

استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل يا لهنائي وسعادتي لمروركم الطيب ورؤيتكم فلقد اشتاقت نفسي اليكم كثيرا استأدى انا بالفل جربت تلك الطريقة ولكن لا يتم نقل الملفات وبصراحة كنت اطمع في كود برمجي يتمم العملية في صمت دون ان يدرى المستخدم بأي شيء خطرت على بالى فكرة ولكن لا ادرى هل ممكنه ام لا هل يمكن وضع المرفقات فى ملف Zip بجوار القاعدة ويتم فك الملف برمجيا فى المسار C:\Windows\System32 فى صمت دون ان يدرى المستخدم بأى شئ ؟ حتى اننى استخدمت الكود بتلك الطريقة لأجبره على نسخ الملفات ولكن دون جدوى @ECHO OFF xCOPY /Y /W "D:\MyDll\zxing.interop.dll" "C:\Windows\System32\zxing.interop.dll" echo Copy Completed

للعلم جربت من خلال الاكواد الى اعرفها ولكن يبدو لانه مجلد نظام لم يقبل فهل من طريقة او الية لعمل Copy File By Force

السلام عليكم ورحمة الله تعالى وبركاته أساتذتي الكرام ... تحية طيبة عطرة اريد نسخ ملف dll من مسار محدد الى المسار C:\Windows\System32