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 في 1/3/2017 at 08:26, kaser906 said: واردة في بالي فكرة اني اعمل حقل نص ثاني الى جانب الحقل t2 واضع له شرط اذا كان الرقم يحتوي على كسر يتم اخفائة ويظهر الحقل t2 والعكس صحيح لكن المشكلة اللي صادفتني لم اعرف وضع شرط التنسيق بالكود Expand اعمل استعلام و في حقل فارغ اكتب dd: IIf([t2]=Format([t2];"0");[t2];Format([t2];"0.000")) 1
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 في 1/3/2017 at 08:33, Shivan Rekany said: ليش ما تنحذف تنسيق وتخلي بشكل نورمال اي اذا كان رقم بدون كسر مثلا 96 يظهر 96 74.700 يظهر 74.7 75.801 يظهر 75.801 اعمل استعلام و في حقل فارغ اكتب dd: IIf([t2]=Format([t2];"0");[t2];Format([t2];"0.000")) Expand ممتاز اخي شيفان السؤال هنا هل يمكن تحويل هذه الجملة الى كود لاستخدامها بالنموذج مباشرة
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 في 1/3/2017 at 08:50, kaser906 said: ممتاز اخي شيفان السؤال هنا هل يمكن تحويل هذه الجملة الى كود لاستخدامها بالنموذج مباشرة Expand اي نعم تكدر في نموذج تستخدم هكذ IIf([t2] = Format([t2], "0"), [t2], Format([t2], "0.000")) اي بس راح يغير ( ; ) الى ( , ) ------- لكن تكدر تعمل استعلام بيكون مصدر النموذج وبعدين ما تحتاج الكود في النموذج تحياتي 1
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 في 1/3/2017 at 08:53, Shivan Rekany said: اي بس راح يغير ( ; ) الى ( , ) ------- لكن تكدر تعمل استعلام بيكون مصدر النموذج وبعدين ما تحتاج الكود في النموذج Expand النموذج يحتوي على حقول غير منظمة وهذا هو سبب طلب الكود
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 في 1/3/2017 at 08:55, kaser906 said: النموذج يحتوي على حقول غير منظمة وهذا هو سبب طلب الكود Expand تمام الكود في مشاركتي السابقة خذها
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 في 1/3/2017 at 08:57, Shivan Rekany said: تمام الكود في مشاركتي السابقة خذها Expand حاولت أخي شيفان تطبيق الكود في حدث في الحالي لنموذج ظهرت لي اخطاء كثيرة امل منك تطبيق الكود على الحقل 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 في 1/3/2017 at 13:38, 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.rarFetching info... Expand الله يعطيك العافية اخي شيفان ما عليش تحملني شوي النموذج رقم 2 عندما حولتة الى ورقة بيانات طلعت عندي بهذا الشكل لذلك اود تطبيق الكود على الحقل t2 مباشرة فهو حقل ادخال
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 في 1/3/2017 at 14:36, kaser906 said: الله يعطيك العافية اخي شيفان ما عليش تحملني شوي النموذج رقم 2 عندما حولتة الى ورقة بيانات طلعت عندي بهذا الشكل لذلك اود تطبيق الكود على الحقل t2 مباشرة فهو حقل ادخال Expand احنا بالخدمة عزيز والان عندك اربع طرق واحد بالاستعلام ثاني بالكود if ثالث بالكود iif رابع في مصدر مربع نصي اتفضل مع طريق الاربعة mr.rar 1
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 في 1/3/2017 at 14:55, Shivan Rekany said: احنا بالخدمة عزيز Expand لا خلا ولا عدم اخي شيفنا اقصد تطبيق التنسيق من خلال كود في الحالي للنموذج على الحقل 2t مباشرة كحقل منظم وندخل من خلاله البيانات ان كان الرقم 1 يطلع 1 وان كان فيه كسر يطلع 1.700
Shivan Rekany قام بنشر مارس 1, 2017 قام بنشر مارس 1, 2017 في 1/3/2017 at 15:06, kaser906 said: لا خلا ولا عدم اخي شيفنا اقصد تطبيق التنسيق من خلال كود في الحالي للنموذج على الحقل 2t مباشرة كحقل منظم وندخل من خلاله البيانات ان كان الرقم 1 يطلع 1 وان كان فيه كسر يطلع 1.700 Expand من الافضل لك ان تستخدم وضع عادي كما قلت لك اولا في 1/3/2017 at 08:33, Shivan Rekany said: ليش ما تنحذف تنسيق وتخلي بشكل نورمال اي اذا كان رقم بدون كسر مثلا 96 يظهر 96 74.700 يظهر 74.7 75.801 يظهر 75.801 Expand 1
kaser906 قام بنشر مارس 1, 2017 الكاتب قام بنشر مارس 1, 2017 في 1/3/2017 at 15:29, Shivan Rekany said: من الافضل لك ان تستخدم وضع عادي كما قلت لك اولا Expand شورك وهداية الله راح استفيد من كل الطرق اللي وضعتها بالاستعلامات والتقارير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.