ابو جودي

انا مش فاهم قصد حضرتك بصراحة ممكن توضيح

مشاركة مع أساتذتي الكرام فكرتي المتواضعة امكانية التسجيل.accdb

وعليكم السلام ورحمة الله تعالى وبركاته العفو منكم أستاذي الجليل و ومعلمي القدير و والدى الحبيب أستاذ @jjafferr اذا حضر الماء بطل التيمم أستاذي وشتان بين الحلان فكرتي على طريقة الهواة أما طريقتكم هي طريقة المحترفون أستاذي انتم الحلو الذى الذى يزيل مرارة جهلنا والنور الذى ينير ظلمة جهلنا .. انتم سعادة الحياة بالنسبة لنا فسعادة الحياة أن تكون بجانبك وتساندك روح طيبة وكريمة تمنحك وتهديك الفرح والسرور وتدخل على نفوس من حولها الفرح و السعادة ولا أزكيكم على الله وكل اساتذتنا المبجلين كل كلمات ومعان الشكر والعرفان بالجميل لا تكفيكم وتوفيكم قدر حقكم أدامكم الله فوق رؤوسنا وملئ حياتكم سرورا وفرحا وبهجة ورزقكم من حيث لا تحتسبون أدامكم الله روح طيبة تسكن القلوب .. ووجه باسم ترتاح له العيون .. ونفس مطمئنة تمتلك النفوس .. بارك الله لكم في عمركم وفى علمكم و عملكم واهلكم وولدكم وأسال الله تعالى لكم سعادة الدارين وان يزيدكم من فضله كما تدخلون السرور على قلوب طلبة العلم دائما تكثرون من العطاء وبكل سخاء دون كلل ولا ملل ... احسن الله اليكم كما تحسنون الى طلاب العلم دائما اسأل الله لكم السعادة في الدارين والرزق و البركة في العمر والعلم والعمل والاهل والولد واسأله أن يغفر لكم ولوالديكم ومن تحبون وكل المسلمين ان شاء الله شكر الله لكم وجزاكم كل الخير ان شاء الله وأسأله عز وجل أن يعطيكم من عطــاياه ويمنحكم عفوه ورضاه ويغفر لكم من عمركم ما مضى ويقدر لكم الخير فيما أتى .. وأن يجعل السعادة رفيقتكم في الدنيا والآخرة.. اللهم آمين

وممكن على طريقة الاستاذ جعفر فى النموذج مباشرة بهذا الكود Me.cmb_3Dates.RowSourceType = "Value List" Me.cmb_3Dates.RowSource = Empty Dim Days As Integer For Days = 0 To 2 Me.cmb_3Dates.AddItem Format(DateAdd("d", Days, Date_Start), "dd/mm/yyyy") Next Days وان اردنا استعمالها من خلال روتين عام ممكن Function DayLoop2(ByVal DateStart As Date) As String Dim strSQL As String Dim i As Integer Dim N As Integer N = 2 strSQL = "" For i = 0 To 2 strSQL = strSQL & Format(DateAdd("d", i, DateStart), "dd/mm/yyyy") & "; " Next i DayLoop2 = strSQL End Function

وعليكم السلام ورحمة الله تعالى وبركاته أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @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] & "#"