PDA

View Full Version : مبتدی: بين دوتا جدول چطوري ميتونم عمليات رياضي انجام بدم



m_rafiei1362
چهارشنبه 25 آذر 1388, 11:08 صبح
من مي خوام در يه سلول از جدول 1 با يه سلول از جدول 2 مقاديرشون کم بشه ؟
با تشکر

amirzazadeh
چهارشنبه 25 آذر 1388, 11:16 صبح
من مي خوام در يه سلول از جدول 1 با يه سلول از جدول 2 مقاديرشون کم بشه ؟
با تشکر
سلام
سئوالتون خيلي مفهوم نيست ولي به صورت اجمالي با ركوردست و از طريق كد نويسي امكان پذير هست.
........................
موفق باشيد

m_rafiei1362
چهارشنبه 25 آذر 1388, 11:44 صبح
سلام
سئوالتون خيلي مفهوم نيست ولي به صورت اجمالي با ركوردست و از طريق كد نويسي امكان پذير هست.
........................
موفق باشيد
منظورم اينه که مي خوام در جدول 1 يه سلول با سلول ديگه داخل جدول 2 مقادرشون از هم کم بشه و در سلول جدول 1 نمايشش بده

amirzazadeh
چهارشنبه 25 آذر 1388, 11:58 صبح
منظورم اينه که مي خوام در جدول 1 يه سلول با سلول ديگه داخل جدول 2 مقادرشون از هم کم بشه و در سلول جدول 1 نمايشش بده
لطفا نمونه خودتون رو آپلود كنيد.

m_rafiei1362
چهارشنبه 25 آذر 1388, 13:44 عصر
اين هم فايل که مي خواستي

amirzazadeh
پنج شنبه 26 آذر 1388, 09:11 صبح
من مي خوام در يه سلول از جدول 1 با يه سلول از جدول 2 مقاديرشون کم بشه ؟
با تشکر
يك نمونه ساده براتون آماده كردم.ببينيد منظورتون رو براورده ميكنه.در فرم لود شده دكمه save را فشرده و نتيجه را ببينيد.
.......................
موفق باشيد

m_rafiei1362
پنج شنبه 26 آذر 1388, 10:41 صبح
من نمی تونم فایلی که گذاشتید را توسط WINRAR باز کنم

amirzazadeh
پنج شنبه 26 آذر 1388, 11:39 صبح
من نمی تونم فایلی که گذاشتید را توسط WINRAR باز کنم
اينم همون فايل كه با WINZIP فشرده شده.

m_rafiei1362
پنج شنبه 26 آذر 1388, 14:26 عصر
سلام دوست عزیز
برنامه خوبیه همین را میخوام ولی موجودی کم نمیشه

amirzazadeh
شنبه 28 آذر 1388, 09:28 صبح
سلام دوست عزیز
برنامه خوبیه همین را میخوام ولی موجودی کم نمیشه
دوست من اگر دقت كنيد با زدن دكمه save موجودي از عدد 10 به 7 تغيير پيدا ميكنه.اگر تغيير بلافاصله در جدول شما منعكس نميشه كافيه فرم رو ببنديد يا عبارت me.refresh به انتهاي كدها اضافه كنيد:
Private Sub Command4_Click()
If Me.saved = False Then
Me.InStock = Me.InStock - Me.NO
Me.saved = True
Me.Refresh
Else
MsgBox "saved before"
End If
End Sub