kaser906 قام بنشر فبراير 28, 2017 مشاركة قام بنشر فبراير 28, 2017 السلام عليكم ورحمة الله وبركاتة بالمرفق نموذج يحنوي حقل t2 وهو حقل رقم من ( مزدوج ) وضعت له تنسيق 0.000 لأستطيع قراءة الرقم العشري مثل 1.700 ولكن الاصفار التي تأتي مع الرقم الصحيح مزعجة نوعا ما مثل 1.000 فهل يمكن تنسيق الحقل بحيث لو كان العدد صحيح يطلع مثلا 10 او 1 او 250 واذا كان الحقل يحتوي على كسر يطلع بهذا الشكل 2.700 mr.rar رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر مارس 1, 2017 الكاتب مشاركة قام بنشر مارس 1, 2017 واردة في بالي فكرة اني اعمل حقل نص ثاني الى جانب الحقل t2 واضع له شرط اذا كان الرقم يحتوي على كسر يتم اخفائة ويظهر الحقل t2 والعكس صحيح لكن المشكلة اللي صادفتني لم اعرف وضع شرط التنسيق بالكود رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
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")) ممتاز اخي شيفان السؤال هنا هل يمكن تحويل هذه الجملة الى كود لاستخدامها بالنموذج مباشرة رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 1, 2017 مشاركة قام بنشر مارس 1, 2017 1 دقيقه مضت, kaser906 said: ممتاز اخي شيفان السؤال هنا هل يمكن تحويل هذه الجملة الى كود لاستخدامها بالنموذج مباشرة اي نعم تكدر في نموذج تستخدم هكذ IIf([t2] = Format([t2], "0"), [t2], Format([t2], "0.000")) اي بس راح يغير ( ; ) الى ( , ) ------- لكن تكدر تعمل استعلام بيكون مصدر النموذج وبعدين ما تحتاج الكود في النموذج تحياتي 1 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر مارس 1, 2017 الكاتب مشاركة قام بنشر مارس 1, 2017 1 دقيقه مضت, Shivan Rekany said: اي بس راح يغير ( ; ) الى ( , ) ------- لكن تكدر تعمل استعلام بيكون مصدر النموذج وبعدين ما تحتاج الكود في النموذج النموذج يحتوي على حقول غير منظمة وهذا هو سبب طلب الكود رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 1, 2017 مشاركة قام بنشر مارس 1, 2017 الان, kaser906 said: النموذج يحتوي على حقول غير منظمة وهذا هو سبب طلب الكود تمام الكود في مشاركتي السابقة خذها رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر مارس 1, 2017 الكاتب مشاركة قام بنشر مارس 1, 2017 3 ساعات مضت, Shivan Rekany said: تمام الكود في مشاركتي السابقة خذها حاولت أخي شيفان تطبيق الكود في حدث في الحالي لنموذج ظهرت لي اخطاء كثيرة امل منك تطبيق الكود على الحقل t2 واضافة حقل اخر غير منظم يكون مصدر تحكمه =t2 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
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 مباشرة فهو حقل ادخال رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 1, 2017 مشاركة قام بنشر مارس 1, 2017 12 دقائق مضت, kaser906 said: الله يعطيك العافية اخي شيفان ما عليش تحملني شوي النموذج رقم 2 عندما حولتة الى ورقة بيانات طلعت عندي بهذا الشكل لذلك اود تطبيق الكود على الحقل t2 مباشرة فهو حقل ادخال احنا بالخدمة عزيز والان عندك اربع طرق واحد بالاستعلام ثاني بالكود if ثالث بالكود iif رابع في مصدر مربع نصي اتفضل مع طريق الاربعة mr.rar 1 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر مارس 1, 2017 الكاتب مشاركة قام بنشر مارس 1, 2017 7 دقائق مضت, Shivan Rekany said: احنا بالخدمة عزيز لا خلا ولا عدم اخي شيفنا اقصد تطبيق التنسيق من خلال كود في الحالي للنموذج على الحقل 2t مباشرة كحقل منظم وندخل من خلاله البيانات ان كان الرقم 1 يطلع 1 وان كان فيه كسر يطلع 1.700 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر مارس 1, 2017 الكاتب مشاركة قام بنشر مارس 1, 2017 4 دقائق مضت, Shivan Rekany said: من الافضل لك ان تستخدم وضع عادي كما قلت لك اولا شورك وهداية الله راح استفيد من كل الطرق اللي وضعتها بالاستعلامات والتقارير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان