moamen salem قام بنشر نوفمبر 17, 2021 قام بنشر نوفمبر 17, 2021 1 دقيقه مضت, ابا جودى said: لابد من وجود Framework الاصدار 4 اللي عندي 4.8 في ويندوز 7 لم يعمل في ويندوز 10 الاصدار 4.8.4084.0 واشتغل
ابو جودي قام بنشر نوفمبر 17, 2021 الكاتب قام بنشر نوفمبر 17, 2021 19 ساعات مضت, omarahmed1424 said: مرفق كودين مختلفين الأول يقرأ بسهولة أما المتكون بطريقة العزيز أبي جودي فيقرأ بصعوبة أو لايقرأ ويلاحظ اختلاف الشكل جدل مع انها نفس البيانات أما إذا تم التكبير للوضع التالي فيقرأ بسهولة لكن يغطي على مساحة كبيرة من الفاتورة ممكن المرفق من قاعدة البيانات ورجاء صور ال qrcode ذات امتداد png لماذا حضرتك ترفق صور بامتداد jpg
omarahmed1424 قام بنشر نوفمبر 17, 2021 قام بنشر نوفمبر 17, 2021 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 وجزاكم الله خيرا على الرد والمتابعة 1
moamen salem قام بنشر نوفمبر 22, 2021 قام بنشر نوفمبر 22, 2021 في ١٧/١١/٢٠٢١ at 09:31, moamen salem said: ما شاء الله عليك اشتغل مية مية ربنا يزيدك علما ونفع الله بك اشتغلت معايا ويندوز 10 اوفس 64 ولكن ويندوز 7 للاسف لم يعمل نهائي في انتظار حضرتك في حل المشكلة دي ابشركم اشتغل معايا ولله الحمد ولكن الملف الأصلي اللي هو قبل التعديل واشكر الاستاذ ابا جودي من كل قلبي وفعلا لازم نتعلم العطاء الصحيح من حضرتك والأساتذة الكرام باقي فقط جزء بسيط ان النتائج تظهر في الكود أسفل بعض يعني علي اكتر من سطر... وكدة يكون الف مليون شكر
ابو جودي قام بنشر نوفمبر 22, 2021 الكاتب قام بنشر نوفمبر 22, 2021 3 ساعات مضت, moamen salem said: باقي فقط جزء بسيط ان النتائج تظهر في الكود أسفل بعض يعني علي اكتر من سطر... وكدة يكون الف مليون شكر انا مش فاهم قصد حضرتك بصراحة ممكن توضيح
moamen salem قام بنشر نوفمبر 22, 2021 قام بنشر نوفمبر 22, 2021 52 دقائق مضت, ابا جودى said: انا مش فاهم قصد حضرتك بصراحة ممكن توضيح اشكر حضرتك علي التواضع والاهتمام عايز مثلا بدل ما يبقي مؤمن سالم حسن عبد اللطيف يبقي مؤمن سالم حسن عبد اللطيف
ابو جودي قام بنشر نوفمبر 22, 2021 الكاتب قام بنشر نوفمبر 22, 2021 اخى الحبيب لو تكرمت تضع مرفق يختوى على الاتى جدول به الحقول و البيانات التى تريدها ... وبناء عليه النموذج فقط الذى تريد العمل من خلاله هل نموذج مفرد ام مستمر وان شاء الله ابشر بالخيـر سوف اقوم باضافة اللازم حسب تصميمكم الذى ترفقونه
ابو جودي قام بنشر نوفمبر 22, 2021 الكاتب قام بنشر نوفمبر 22, 2021 في ١٦/١١/٢٠٢١ at 21:14, ابوآمنة said: ما شاء الله تبارك الرحمن بارك الله في جهودك المتميزة . اهلا اهلا اهلا اهلا أخي الحبيب وأستاذي الجليل يعلم الله اشتاقت نفسى الى لقياكم فإني احبكم في الله اسال الله تعالى ان يجمعني وإياكم على خيـر دئما أستاذي الجليل.. اعتذر ان تأخرت عليكم في الرد أستاذي ولكن العتب على النظر سامحني
ابو جودي قام بنشر نوفمبر 23, 2021 الكاتب قام بنشر نوفمبر 23, 2021 في ٢٢/١١/٢٠٢١ at 07:46, moamen salem said: عايز مثلا بدل ما يبقي مؤمن سالم حسن عبد اللطيف يبقي مؤمن سالم حسن عبد اللطيف اخى الحبيب لو تكرمت تضع مرفق يحتوى على الاتى جدول به الحقول و البيانات التى تريدها ... وبناء عليه النموذج فقط الذى تريد العمل من خلاله حتى اتمكن من معرفة هل نموذج مفرد ام مستمر وان شاء الله ابشر بالخيـر سوف اقوم باضافة اللازم حسب تصميمكم الذى ترفقونه
ابو ياسين المشولي قام بنشر نوفمبر 23, 2021 قام بنشر نوفمبر 23, 2021 (معدل) مشاركة مع اخي ابو جودي مجدل data يكون بجوار البرنامج ملفات QR.rar تم تعديل نوفمبر 23, 2021 بواسطه ابو ياسين المشولي 1
ابو جودي قام بنشر نوفمبر 23, 2021 الكاتب قام بنشر نوفمبر 23, 2021 2 ساعات مضت, ابو ياسين المشولي said: مشاركة مع اخي ابو جودي مجدل data يكون بجوار البرنامج اهلا اهلا اهلا أستاذي الجليل سعيد بمروركم ومشاركتكم أستاذي الان اواجه مشكلة لأنى قمت بتغير الأوفيس الى النواة 64 بيت سأقوم بالتعديلات اللازمة ان شاء الله لأرى ابداعاتكم ولمساتكم 1
moamen salem قام بنشر نوفمبر 27, 2021 قام بنشر نوفمبر 27, 2021 في ٢٣/١١/٢٠٢١ at 09:41, ابو جودي said: اخى الحبيب لو تكرمت تضع مرفق يحتوى على الاتى جدول به الحقول و البيانات التى تريدها ... وبناء عليه النموذج فقط الذى تريد العمل من خلاله حتى اتمكن من معرفة هل نموذج مفرد ام مستمر وان شاء الله ابشر بالخيـر سوف اقوم باضافة اللازم حسب تصميمكم الذى ترفقونه اتفضل استاذي الفاضل محتاج بعد اذن حضرتك لما اسحب qr يطلع بالشكل التالي مؤمن سالم حسن عبداللطيف بمعني الاسم علي السطر الاول واسم الاب علي السطر الثاني Database1.rar
ابو جودي قام بنشر نوفمبر 27, 2021 الكاتب قام بنشر نوفمبر 27, 2021 25 دقائق مضت, moamen salem said: اتفضل استاذي الفاضل محتاج بعد اذن حضرتك لما اسحب qr يطلع بالشكل التالي مؤمن سالم حسن عبداللطيف اتقضل يا سيدى 1569184222_GenerateOrReadQRCodeImageV.02.mdb
moamen salem قام بنشر نوفمبر 27, 2021 قام بنشر نوفمبر 27, 2021 1 ساعه مضت, ابو جودي said: اتقضل يا سيدى 1569184222_GenerateOrReadQRCodeImageV.02.mdb 2.54 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download اشكر حضرتك جدا جدا وجزاك الله الف غير وجعله في ميزان حسناتك معليش اطلت علي حضرتك كثير اكون ممنون لحضرتك لو عملت الفكرة في منشئ التعبير ولا اقصد فكرة QR اقص فكرة اني اجعل مصدر حقل غير منضم يظهر فيها الاسم علي سطرين 1
at_aziz قام بنشر نوفمبر 27, 2021 قام بنشر نوفمبر 27, 2021 جزاك الله وبارك الله فيك ابا جودي مثال جدا رائع ومهم اخي الكريم كيف يتم عرض QRCODE على تقرير ليتم طباعة بعد اظهاره على النموذج 1
ابو جودي قام بنشر نوفمبر 27, 2021 الكاتب قام بنشر نوفمبر 27, 2021 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 على تقرير ليتم طباعة بعد اظهاره على النموذج طيب هل تريد ان أقوم بعمل ذلك في المرفق الرئيسي ام تريد ان تأتى بمرفقكم ليتم التعديل عليه مباشرة 1
ابو جودي قام بنشر نوفمبر 27, 2021 الكاتب قام بنشر نوفمبر 27, 2021 فى انتظار ردكم استاذى الحبيب @at_aziz 1
at_aziz قام بنشر نوفمبر 27, 2021 قام بنشر نوفمبر 27, 2021 4 دقائق مضت, ابو جودي said: اتفضل =[txtFirstName] & Chr(13) & Chr(10) & [txtFatherName] وانظر الى الرابط الاتى https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/miscellaneous-constants طيب هل تريد ان أقوم بعمل ذلك في المرفق الرئيسي ام تريد ان تأتى بمرفقكم ليتم التعديل عليه مباشرة على المرفق الرئيسي لان حاليا ماعندي مثال اعمل عليه لكن راح انقل نفس الكود لمثال اخر شاكر لك ومقدر استاذي الكريم 1
ابو جودي قام بنشر نوفمبر 27, 2021 الكاتب قام بنشر نوفمبر 27, 2021 ابشر دقائق ويكون المرفق جاهز ان شاء الله
ابو جودي قام بنشر نوفمبر 27, 2021 الكاتب قام بنشر نوفمبر 27, 2021 (معدل) اتفضل يا استاذ @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 بواسطه ابو جودي 1
at_aziz قام بنشر نوفمبر 27, 2021 قام بنشر نوفمبر 27, 2021 بارك الله فيك وجزاك الله خير الله يعطيك العافيه الف شكر لك استاذي ابا جودي راح اطبق على المثال اللي عندي باذن الله شاكر لك ومقدر 1
ابو جودي قام بنشر نوفمبر 27, 2021 الكاتب قام بنشر نوفمبر 27, 2021 الان, at_aziz said: بارك الله فيك وجزاك الله خير الله يعطيك العافيه الف شكر لك استاذي ابا جودي جزاكم الله خيرا لا قدر الله لو فى اى مشكلة معك بالتطبيق ان شاء الله راج كون تحت امرك باى وقت 1
at_aziz قام بنشر نوفمبر 27, 2021 قام بنشر نوفمبر 27, 2021 الان, ابو جودي said: جزاكم الله خيرا لا قدر الله لو فى اى مشكلة معك بالتطبيق ان شاء الله راج كون تحت امرك باى وقت تسلم ماتقصر الله يعطيك العافيه 1
moamen salem قام بنشر نوفمبر 27, 2021 قام بنشر نوفمبر 27, 2021 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 اشكرك جدا استاذي الفاضل المحترم تمت زي ما انا عايز بالظبط ما شاء الله عليك ربنا يجازيك عنا كل خير 1 1
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.