شخابيط وافكار : (Qr Code ) فكرة جديدة ☺

[moamen salem]

1 دقيقه مضت, ابا جودى said:

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

اللي عندي 4.8 في ويندوز 7 لم يعمل

في ويندوز 10 الاصدار 4.8.4084.0 واشتغل

 

 

[ابو جودي]

19 ساعات مضت, omarahmed1424 said:

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

 

أما إذا تم التكبير للوضع التالي فيقرأ بسهولة لكن يغطي على مساحة كبيرة من الفاتورة

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

لماذا حضرتك ترفق صور بامتداد jpg

[omarahmed1424]

6 ساعات مضت, ابا جودى said:

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

لماذا حضرتك ترفق صور بامتداد jpg

السلام عليكم ورحمة الله وبركاته وبعد ... أخي العزيز أبا جودي وفقت اليوم من خلال التعديل إلى جعل الرمز أسرع في القراءة جدا من خلال التعديل على الوحدة النمطية modQRCode فجعلت عرض وطول الصورة 25 فقط بدلا من 200 و جعلت مستوى تعديل الأخطاء L بدلا من H كالتالي

qrCodeOptions.Height = 25
   qrCodeOptions.Width = 25
   qrCodeOptions.CharacterSet = "UTF-8"
   qrCodeOptions.Margin = 1
   qrCodeOptions.errorCorrection = ErrorCorrectionLevel_L
وجزاكم الله خيرا على الرد والمتابعة 

[ابو جودي]

طيب الحمد لله

[moamen salem]

في ١٧‏/١١‏/٢٠٢١ at 09:31, moamen salem said:

ما شاء الله عليك اشتغل مية مية ربنا يزيدك علما ونفع الله بك

اشتغلت معايا ويندوز 10 اوفس 64 

ولكن ويندوز 7 للاسف لم يعمل نهائي 

في انتظار حضرتك في حل المشكلة دي 

ابشركم اشتغل معايا ولله الحمد 

ولكن الملف الأصلي اللي هو قبل التعديل 

واشكر الاستاذ ابا جودي من كل قلبي وفعلا لازم نتعلم العطاء الصحيح من حضرتك والأساتذة الكرام

باقي فقط جزء بسيط ان النتائج تظهر في الكود أسفل بعض يعني علي اكتر من سطر... وكدة يكون الف مليون شكر 

[ابو جودي]

3 ساعات مضت, moamen salem said:

باقي فقط جزء بسيط ان النتائج تظهر في الكود أسفل بعض يعني علي اكتر من سطر... وكدة يكون الف مليون شكر 

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

[moamen salem]

52 دقائق مضت, ابا جودى said:

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

اشكر حضرتك علي التواضع والاهتمام 

عايز مثلا بدل ما يبقي 

مؤمن سالم حسن عبد اللطيف 

يبقي 

مؤمن 

سالم حسن عبد اللطيف 

[ابو جودي]

اخى الحبيب لو تكرمت تضع مرفق يختوى على الاتى
جدول به الحقول و البيانات التى تريدها ... وبناء عليه النموذج فقط الذى تريد العمل من خلاله هل نموذج مفرد ام مستمر

وان شاء الله ابشر بالخيـر سوف اقوم باضافة اللازم حسب تصميمكم الذى ترفقونه 

[ابو جودي]

في ١٦‏/١١‏/٢٠٢١ at 21:14, ابوآمنة said:

ما شاء الله تبارك الرحمن 

بارك الله في جهودك المتميزة .

اهلا اهلا اهلا اهلا أخي الحبيب وأستاذي الجليل 

يعلم الله اشتاقت نفسى الى لقياكم فإني احبكم في الله 

اسال الله تعالى ان يجمعني وإياكم على خيـر دئما أستاذي الجليل..

اعتذر ان تأخرت عليكم في الرد أستاذي  ولكن العتب على النظر سامحني 

 

[ابو جودي]

في ٢٢‏/١١‏/٢٠٢١ at 07:46, moamen salem said:

عايز مثلا بدل ما يبقي 

مؤمن سالم حسن عبد اللطيف 

يبقي 

مؤمن 

سالم حسن عبد اللطيف 

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

وان شاء الله ابشر بالخيـر سوف اقوم باضافة اللازم حسب تصميمكم الذى ترفقونه 

[ابو ياسين المشولي]

مشاركة مع اخي ابو جودي

مجدل data يكون بجوار البرنامج

ملفات QR.rar

تم تعديل نوفمبر 23, 2021 بواسطه ابو ياسين المشولي

[ابو جودي]

2 ساعات مضت, ابو ياسين المشولي said:

مشاركة مع اخي ابو جودي

مجدل data يكون بجوار البرنامج

اهلا اهلا اهلا أستاذي الجليل سعيد بمروركم ومشاركتكم أستاذي 
الان اواجه مشكلة لأنى قمت بتغير الأوفيس الى النواة  64 بيت سأقوم بالتعديلات اللازمة ان شاء الله لأرى ابداعاتكم ولمساتكم

[moamen salem]

في ٢٣‏/١١‏/٢٠٢١ at 09:41, ابو جودي said:

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

وان شاء الله ابشر بالخيـر سوف اقوم باضافة اللازم حسب تصميمكم الذى ترفقونه 

اتفضل استاذي الفاضل 

محتاج بعد اذن حضرتك لما اسحب qr 

يطلع بالشكل التالي 

مؤمن

سالم حسن عبداللطيف

بمعني الاسم علي السطر الاول 

واسم الاب علي السطر الثاني

Database1.rar

[ابو جودي]

25 دقائق مضت, moamen salem said:

اتفضل استاذي الفاضل 

محتاج بعد اذن حضرتك لما اسحب qr 

يطلع بالشكل التالي 

مؤمن

سالم حسن عبداللطيف

اتقضل يا سيدى 

 

1569184222_GenerateOrReadQRCodeImageV.02.mdb

[moamen salem]

1 ساعه مضت, ابو جودي said:

اتقضل يا سيدى 

 

1569184222_GenerateOrReadQRCodeImageV.02.mdb 2.54 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

اشكر حضرتك جدا جدا وجزاك الله الف غير وجعله في ميزان حسناتك 

معليش اطلت علي حضرتك كثير اكون ممنون لحضرتك لو عملت الفكرة في منشئ التعبير 

ولا اقصد فكرة QR 

اقص فكرة اني اجعل مصدر حقل غير منضم يظهر فيها الاسم علي سطرين 

 

[at_aziz]

جزاك الله وبارك الله فيك  ابا جودي

 

مثال جدا رائع  ومهم

 

اخي الكريم   كيف يتم عرض QRCODE  على تقرير ليتم طباعة بعد اظهاره على النموذج

[ابو جودي]

2 ساعات مضت, moamen salem said:

اقص فكرة اني اجعل مصدر حقل غير منضم يظهر فيها الاسم علي سطرين 

اتفضل

=[txtFirstName] & Chr(13) & Chr(10) & [txtFatherName]

وانظر الى الرابط الاتى 

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/miscellaneous-constants

منذ ساعه, at_aziz said:

جزاك الله وبارك الله فيك  ابا جودي

 

مثال جدا رائع  ومهم

 

اخي الكريم   كيف يتم عرض QRCODE  على تقرير ليتم طباعة بعد اظهاره على النموذج

طيب هل تريد ان أقوم بعمل ذلك في المرفق الرئيسي ام تريد ان تأتى بمرفقكم ليتم التعديل عليه مباشرة 

[ابو جودي]

فى انتظار ردكم استاذى الحبيب @at_aziz 

[at_aziz]

4 دقائق مضت, ابو جودي said:

اتفضل

=[txtFirstName] & Chr(13) & Chr(10) & [txtFatherName]

وانظر الى الرابط الاتى 

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/miscellaneous-constants

طيب هل تريد ان أقوم بعمل ذلك في المرفق الرئيسي ام تريد ان تأتى بمرفقكم ليتم التعديل عليه مباشرة 

على المرفق الرئيسي     لان حاليا  ماعندي مثال اعمل عليه        لكن راح انقل نفس الكود لمثال اخر

 

شاكر لك ومقدر استاذي الكريم

[ابو جودي]

ابشر دقائق ويكون المرفق جاهز ان شاء الله

[ابو جودي]

 اتفضل يا استاذ @at_aziz 

قمت بعمل الروتين الآتي ليقوم بإنشاء حقل لمسار الصورة الخاصة بالـ  QR

انظر الى الاستعلام  qryData  وهو الان مصدر بيانات كل من النموذج والتقرير
تم انشاء المسار حسب الروتين من خلال الـ ID لأنني مسبقا جعلت صورة الـ Qr  يتم انشاءها بناء على قيمة حقل الـ ID

طبعا حضرتك تقدر تغير الى اى حقل غير الـ ID  بس يكون يونيك طبعا 

بعد ذلك جعلت مصدر بيانات الصورة هو الحقل الجديد الذى تم انشاءه في الاستعلام

Public Function QrImgPath(ByVal intNo As Integer)
  QrImgPath = CurrentProject.Path & "\Program Files\QR images\" & Dir(CurrentProject.Path & "\Program Files\QR images\" & intNo & ".png")
End Function

----------------------

ويا استاذ @moamen salem تم التعديل فى المرفق كذلك حتى تحصل على النتيجة 
 

مؤمن
سالم حسن عبداللطيف

من خلال منشئ التعبير وليس من خلال الاكواد 

386392877_GenerateOrReadQRCodeImageV.03.mdb

تم تعديل نوفمبر 27, 2021 بواسطه ابو جودي

[at_aziz]

بارك الله فيك وجزاك الله خير 

الله يعطيك العافيه

الف شكر لك استاذي ابا جودي

راح اطبق على المثال اللي عندي باذن الله

 

شاكر لك ومقدر

[ابو جودي]

الان, at_aziz said:

بارك الله فيك وجزاك الله خير 

الله يعطيك العافيه

الف شكر لك استاذي ابا جودي

جزاكم الله خيرا

لا قدر الله لو فى اى مشكلة معك بالتطبيق

ان شاء الله راج كون تحت امرك باى وقت

[at_aziz]

الان, ابو جودي said:

جزاكم الله خيرا

لا قدر الله لو فى اى مشكلة معك بالتطبيق

ان شاء الله راج كون تحت امرك باى وقت

تسلم ماتقصر    الله يعطيك العافيه

[moamen salem]

4 ساعات مضت, ابو جودي said:

 اتفضل يا استاذ @at_aziz 

قمت بعمل الروتين الآتي ليقوم بإنشاء حقل لمسار الصورة الخاصة بالـ  QR

انظر الى الاستعلام  qryData  وهو الان مصدر بيانات كل من النموذج والتقرير
تم انشاء المسار حسب الروتين من خلال الـ ID لأنني مسبقا جعلت صورة الـ Qr  يتم انشاءها بناء على قيمة حقل الـ ID

طبعا حضرتك تقدر تغير الى اى حقل غير الـ ID  بس يكون يونيك طبعا 

بعد ذلك جعلت مصدر بيانات الصورة هو الحقل الجديد الذى تم انشاءه في الاستعلام

Public Function QrImgPath(ByVal intNo As Integer)
  QrImgPath = CurrentProject.Path & "\Program Files\QR images\" & Dir(CurrentProject.Path & "\Program Files\QR images\" & intNo & ".png")
End Function

----------------------

ويا استاذ @moamen salem تم التعديل فى المرفق كذلك حتى تحصل على النتيجة 
 

مؤمن
سالم حسن عبداللطيف

من خلال منشئ التعبير وليس من خلال الاكواد 

386392877_GenerateOrReadQRCodeImageV.03.mdb 2.71 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 downloads

اشكرك جدا استاذي الفاضل المحترم 

تمت زي ما انا عايز بالظبط ما شاء الله عليك 

ربنا يجازيك عنا كل خير