Alsalim1 قام بنشر مارس 27, 2017 مشاركة قام بنشر مارس 27, 2017 مرحبا شباب كيف يكون الكود في الفورم المرفق التعويض من الرياض إلى مكة = 200 ريال من الرياض إلى المدينة = 250 من مكة إلى المدينة = 300 حساب قيمة بترول السيارة.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 27, 2017 مشاركة قام بنشر مارس 27, 2017 7 دقائق مضت, Alsalim1 said: مرحبا شباب كيف يكون الكود في الفورم المرفق التعويض من الرياض إلى مكة = 200 ريال من الرياض إلى المدينة = 250 من مكة إلى المدينة = 300 حساب قيمة بترول السيارة.rar سؤال : وهل من المحتمل ان يكون كله سوى او اثنين معا اي يعني مبلغ من الرياض الى مكة + مبلغ من مكة الى المدينة او تختار واحد منه فقط 2 رابط هذا التعليق شارك More sharing options...
Alsalim1 قام بنشر مارس 27, 2017 الكاتب مشاركة قام بنشر مارس 27, 2017 5 ساعات مضت, Shivan Rekany said: سؤال : وهل من المحتمل ان يكون كله سوى او اثنين معا اي يعني مبلغ من الرياض الى مكة + مبلغ من مكة الى المدينة او تختار واحد منه فقط نعم رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 27, 2017 مشاركة قام بنشر مارس 27, 2017 1 ساعه مضت, Alsalim1 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 اتفضل قاعدة بياناتك بعد تعديل حساب قيمة بترول السيارة.rar 2 رابط هذا التعليق شارك More sharing options...
Alsalim1 قام بنشر مارس 28, 2017 الكاتب مشاركة قام بنشر مارس 28, 2017 17 ساعات مضت, 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 اتفضل قاعدة بياناتك بعد تعديل حساب قيمة بترول السيارة.rar رائع استاذ استاذ كيف أمنع المستخدم من عدم إستخدام التشك بوكس إذا أستخدم سيارة الشركة أقصد أن البرنامج لا يسمح له بإختيار من الرياض إلى المدينة ومن الرياض إلى مكة ومن مكة إلى المدينة في حالة أنه أختار أنه أستخدم سيارة الشركة رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر مارس 28, 2017 مشاركة قام بنشر مارس 28, 2017 استاذ / شفان والله يااخي الكريم كل يوم استفاد معلومة جديدة منك جزاك الله خيرا علي ما تقدمه من مساعدات اذا سمحت لي ان ارفق الاستفسار الثاني للاخ السائل اخي/ Alsalim1 لو سمحت انظر المرفق لعله يكون طلبك حساب قيمة بترول السيارة.rar 1 رابط هذا التعليق شارك More sharing options...
Alsalim1 قام بنشر مارس 28, 2017 الكاتب مشاركة قام بنشر مارس 28, 2017 1 ساعه مضت, حلبي said: استاذ / شفان والله يااخي الكريم كل يوم استفاد معلومة جديدة منك جزاك الله خيرا علي ما تقدمه من مساعدات اذا سمحت لي ان ارفق الاستفسار الثاني للاخ السائل اخي/ Alsalim1 لو سمحت انظر المرفق لعله يكون طلبك حساب قيمة بترول السيارة.rar رائع جداً رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 28, 2017 مشاركة قام بنشر مارس 28, 2017 2 ساعات مضت, حلبي said: استاذ / شفان والله يااخي الكريم كل يوم استفاد معلومة جديدة منك جزاك الله خيرا علي ما تقدمه من مساعدات اذا سمحت لي ان ارفق الاستفسار الثاني للاخ السائل اخي/ Alsalim1 لو سمحت انظر المرفق لعله يكون طلبك حساب قيمة بترول السيارة.rar شكرا لك على مساعدتك وماكان عندي لابتوب لكي اعمله المطلوب مره اخرى شكرا لك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.