Alsalim1 قام بنشر مارس 27, 2017 قام بنشر مارس 27, 2017 مرحبا شباب كيف يكون الكود في الفورم المرفق التعويض من الرياض إلى مكة = 200 ريال من الرياض إلى المدينة = 250 من مكة إلى المدينة = 300 حساب قيمة بترول السيارة.rar
Shivan Rekany قام بنشر مارس 27, 2017 قام بنشر مارس 27, 2017 في 27/3/2017 at 07:26, Alsalim1 said: مرحبا شباب كيف يكون الكود في الفورم المرفق التعويض من الرياض إلى مكة = 200 ريال من الرياض إلى المدينة = 250 من مكة إلى المدينة = 300 حساب قيمة بترول السيارة.rarFetching info... Expand سؤال : وهل من المحتمل ان يكون كله سوى او اثنين معا اي يعني مبلغ من الرياض الى مكة + مبلغ من مكة الى المدينة او تختار واحد منه فقط 2
Alsalim1 قام بنشر مارس 27, 2017 الكاتب قام بنشر مارس 27, 2017 في 27/3/2017 at 07:36, Shivan Rekany said: سؤال : وهل من المحتمل ان يكون كله سوى او اثنين معا اي يعني مبلغ من الرياض الى مكة + مبلغ من مكة الى المدينة او تختار واحد منه فقط Expand نعم
Shivan Rekany قام بنشر مارس 27, 2017 قام بنشر مارس 27, 2017 في 27/3/2017 at 12:39, Alsalim1 said: نعم Expand استخدم هذا الكود Dim Mablax As Integer Private Sub Check15_AfterUpdate() If Me.Check15 = True Then Mablax = Mablax + 200 Me.Amount = Mablax Else Mablax = Mablax - 200 Me.Amount = Mablax End If End Sub Private Sub Check17_AfterUpdate() If Me.Check17 = True Then Mablax = Mablax + 250 Me.Amount = Mablax Else Mablax = Mablax - 250 Me.Amount = Mablax End If End Sub Private Sub Check19_AfterUpdate() If Me.Check19 = True Then Mablax = Mablax + 300 Me.Amount = Mablax Else Mablax = Mablax - 300 Me.Amount = Mablax End If End Sub اتفضل قاعدة بياناتك بعد تعديل حساب قيمة بترول السيارة.rar 2
Alsalim1 قام بنشر مارس 28, 2017 الكاتب قام بنشر مارس 28, 2017 في 27/3/2017 at 14:11, Shivan Rekany said: استخدم هذا الكود Dim Mablax As Integer Private Sub Check15_AfterUpdate() If Me.Check15 = True Then Mablax = Mablax + 200 Me.Amount = Mablax Else Mablax = Mablax - 200 Me.Amount = Mablax End If End Sub Private Sub Check17_AfterUpdate() If Me.Check17 = True Then Mablax = Mablax + 250 Me.Amount = Mablax Else Mablax = Mablax - 250 Me.Amount = Mablax End If End Sub Private Sub Check19_AfterUpdate() If Me.Check19 = True Then Mablax = Mablax + 300 Me.Amount = Mablax Else Mablax = Mablax - 300 Me.Amount = Mablax End If End Sub اتفضل قاعدة بياناتك بعد تعديل حساب قيمة بترول السيارة.rarFetching info... Expand رائع استاذ استاذ كيف أمنع المستخدم من عدم إستخدام التشك بوكس إذا أستخدم سيارة الشركة أقصد أن البرنامج لا يسمح له بإختيار من الرياض إلى المدينة ومن الرياض إلى مكة ومن مكة إلى المدينة في حالة أنه أختار أنه أستخدم سيارة الشركة
الحلبي قام بنشر مارس 28, 2017 قام بنشر مارس 28, 2017 استاذ / شفان والله يااخي الكريم كل يوم استفاد معلومة جديدة منك جزاك الله خيرا علي ما تقدمه من مساعدات اذا سمحت لي ان ارفق الاستفسار الثاني للاخ السائل اخي/ Alsalim1 لو سمحت انظر المرفق لعله يكون طلبك حساب قيمة بترول السيارة.rar 1
Alsalim1 قام بنشر مارس 28, 2017 الكاتب قام بنشر مارس 28, 2017 في 28/3/2017 at 10:38, حلبي said: استاذ / شفان والله يااخي الكريم كل يوم استفاد معلومة جديدة منك جزاك الله خيرا علي ما تقدمه من مساعدات اذا سمحت لي ان ارفق الاستفسار الثاني للاخ السائل اخي/ Alsalim1 لو سمحت انظر المرفق لعله يكون طلبك حساب قيمة بترول السيارة.rarFetching info... Expand رائع جداً
Shivan Rekany قام بنشر مارس 28, 2017 قام بنشر مارس 28, 2017 في 28/3/2017 at 10:38, حلبي said: استاذ / شفان والله يااخي الكريم كل يوم استفاد معلومة جديدة منك جزاك الله خيرا علي ما تقدمه من مساعدات اذا سمحت لي ان ارفق الاستفسار الثاني للاخ السائل اخي/ Alsalim1 لو سمحت انظر المرفق لعله يكون طلبك حساب قيمة بترول السيارة.rarFetching info... Expand شكرا لك على مساعدتك وماكان عندي لابتوب لكي اعمله المطلوب مره اخرى شكرا لك 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.