kaser906 قام بنشر فبراير 28, 2017 قام بنشر فبراير 28, 2017 السلام عليكم ورحمة الله وبركاتة بالمرفق نموذج يحنوي حقل t2 وهو حقل رقم من ( مزدوج ) وضعت له تنسيق 0.000 لأستطيع قراءة الرقم العشري مثل 1.700 ولكن الاصفار التي تأتي مع الرقم الصحيح مزعجة نوعا ما مثل 1.000 فهل يمكن تنسيق الحقل بحيث لو كان العدد صحيح يطلع مثلا 10 او 1 او 250 واذا كان الحقل يحتوي على كسر يطلع بهذا الشكل 2.700 mr.rar
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 واردة في بالي فكرة اني اعمل حقل نص ثاني الى جانب الحقل t2 واضع له شرط اذا كان الرقم يحتوي على كسر يتم اخفائة ويظهر الحقل t2 والعكس صحيح لكن المشكلة اللي صادفتني لم اعرف وضع شرط التنسيق بالكود
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 ليش ما تنحذف تنسيق وتخلي بشكل نورمال اي اذا كان رقم بدون كسر مثلا 96 يظهر 96 74.700 يظهر 74.7 75.801 يظهر 75.801 15 دقائق مضت, kaser906 said: واردة في بالي فكرة اني اعمل حقل نص ثاني الى جانب الحقل t2 واضع له شرط اذا كان الرقم يحتوي على كسر يتم اخفائة ويظهر الحقل t2 والعكس صحيح لكن المشكلة اللي صادفتني لم اعرف وضع شرط التنسيق بالكود اعمل استعلام و في حقل فارغ اكتب dd: IIf([t2]=Format([t2];"0");[t2];Format([t2];"0.000")) 1
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 14 دقائق مضت, Shivan Rekany said: ليش ما تنحذف تنسيق وتخلي بشكل نورمال اي اذا كان رقم بدون كسر مثلا 96 يظهر 96 74.700 يظهر 74.7 75.801 يظهر 75.801 اعمل استعلام و في حقل فارغ اكتب dd: IIf([t2]=Format([t2];"0");[t2];Format([t2];"0.000")) ممتاز اخي شيفان السؤال هنا هل يمكن تحويل هذه الجملة الى كود لاستخدامها بالنموذج مباشرة
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 1 دقيقه مضت, kaser906 said: ممتاز اخي شيفان السؤال هنا هل يمكن تحويل هذه الجملة الى كود لاستخدامها بالنموذج مباشرة اي نعم تكدر في نموذج تستخدم هكذ IIf([t2] = Format([t2], "0"), [t2], Format([t2], "0.000")) اي بس راح يغير ( ; ) الى ( , ) ------- لكن تكدر تعمل استعلام بيكون مصدر النموذج وبعدين ما تحتاج الكود في النموذج تحياتي 1
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 1 دقيقه مضت, Shivan Rekany said: اي بس راح يغير ( ; ) الى ( , ) ------- لكن تكدر تعمل استعلام بيكون مصدر النموذج وبعدين ما تحتاج الكود في النموذج النموذج يحتوي على حقول غير منظمة وهذا هو سبب طلب الكود
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 الان, kaser906 said: النموذج يحتوي على حقول غير منظمة وهذا هو سبب طلب الكود تمام الكود في مشاركتي السابقة خذها
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 3 ساعات مضت, Shivan Rekany said: تمام الكود في مشاركتي السابقة خذها حاولت أخي شيفان تطبيق الكود في حدث في الحالي لنموذج ظهرت لي اخطاء كثيرة امل منك تطبيق الكود على الحقل t2 واضافة حقل اخر غير منظم يكون مصدر تحكمه =t2
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 اسف شوية غيرت الطريق اليك كودين اي واحد تستخدمة راح يشتغل عادي باذن الله الاولى Me.Text11 = IIf([t2] = Format$([t2], "0"), [t2], Format$([t2], "0.000")) والثانية If Me.t2 = Format$(Me.t2, "0") Then Me.Text11 = Me.t2 Me.Text11 = Format$(Me.Text11, "0") Else Me.Text11 = Me.t2 Me.Text11 = Format$(Me.Text11, "0.000") End If واليك ملفك وبها نموذجين الاول بها طريقة استعلام مع مربع نصي وبيشتغل تمام والثاني بها كودين اللي في الاعلى واحد في الحالي والثاني بعد تحديث واذا تستخدم اي واحد منها في اي حالة راح يعمل جيدا باذن الله تحياتي mr.rar 1
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 51 دقائق مضت, Shivan Rekany said: اسف شوية غيرت الطريق اليك كودين اي واحد تستخدمة راح يشتغل عادي باذن الله الاولى Me.Text11 = IIf([t2] = Format$([t2], "0"), [t2], Format$([t2], "0.000")) والثانية If Me.t2 = Format$(Me.t2, "0") Then Me.Text11 = Me.t2 Me.Text11 = Format$(Me.Text11, "0") Else Me.Text11 = Me.t2 Me.Text11 = Format$(Me.Text11, "0.000") End If واليك ملفك وبها نموذجين الاول بها طريقة استعلام مع مربع نصي وبيشتغل تمام والثاني بها كودين اللي في الاعلى واحد في الحالي والثاني بعد تحديث واذا تستخدم اي واحد منها في اي حالة راح يعمل جيدا باذن الله تحياتي mr.rar الله يعطيك العافية اخي شيفان ما عليش تحملني شوي النموذج رقم 2 عندما حولتة الى ورقة بيانات طلعت عندي بهذا الشكل لذلك اود تطبيق الكود على الحقل t2 مباشرة فهو حقل ادخال
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 12 دقائق مضت, kaser906 said: الله يعطيك العافية اخي شيفان ما عليش تحملني شوي النموذج رقم 2 عندما حولتة الى ورقة بيانات طلعت عندي بهذا الشكل لذلك اود تطبيق الكود على الحقل t2 مباشرة فهو حقل ادخال احنا بالخدمة عزيز والان عندك اربع طرق واحد بالاستعلام ثاني بالكود if ثالث بالكود iif رابع في مصدر مربع نصي اتفضل مع طريق الاربعة mr.rar 1
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 7 دقائق مضت, Shivan Rekany said: احنا بالخدمة عزيز لا خلا ولا عدم اخي شيفنا اقصد تطبيق التنسيق من خلال كود في الحالي للنموذج على الحقل 2t مباشرة كحقل منظم وندخل من خلاله البيانات ان كان الرقم 1 يطلع 1 وان كان فيه كسر يطلع 1.700
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 15 دقائق مضت, kaser906 said: لا خلا ولا عدم اخي شيفنا اقصد تطبيق التنسيق من خلال كود في الحالي للنموذج على الحقل 2t مباشرة كحقل منظم وندخل من خلاله البيانات ان كان الرقم 1 يطلع 1 وان كان فيه كسر يطلع 1.700 من الافضل لك ان تستخدم وضع عادي كما قلت لك اولا 6 ساعات مضت, Shivan Rekany said: ليش ما تنحذف تنسيق وتخلي بشكل نورمال اي اذا كان رقم بدون كسر مثلا 96 يظهر 96 74.700 يظهر 74.7 75.801 يظهر 75.801 1
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 4 دقائق مضت, Shivan Rekany said: من الافضل لك ان تستخدم وضع عادي كما قلت لك اولا شورك وهداية الله راح استفيد من كل الطرق اللي وضعتها بالاستعلامات والتقارير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.