جمع وتفریق در دیتا بیس [بایگانی]

thomasandy

شنبه 09 دی 1391, 19:08 عصر

با سلام لطفا جمع وتفریق در بانک اطلاعاتی رو به من یاد دهید با تشکر

moghadam1372

شنبه 09 دی 1391, 20:48 عصر

بانک اطلاعاتی شما چیست

thomasandy

دوشنبه 11 دی 1391, 08:35 صبح

بانک اطلاعاتی شما چیست

با سلام بانک اطلاعاتی من اکسس هست لطفا مرا راهنمایی کنید با تشکر

shoeyb1990

دوشنبه 11 دی 1391, 10:55 صبح

يه خورده واضح تر بگيد!! ميخوايد چيكار كنيد؟؟؟؟

thomasandy

دوشنبه 11 دی 1391, 14:06 عصر

يه خورده واضح تر بگيد!! ميخوايد چيكار كنيد؟؟؟؟
با سلام یه برنامه حسابداری نوشتم که موقعی که شماره حسابش رو وارد کردم مبلغ مورد نظر به حسابش اضافه بشه یعنی واریز
کمک کنید با تشکر

moghadam1372

دوشنبه 11 دی 1391, 16:22 عصر

شما می توانید که پشت سر هم مبلغ به حساب واریز ویا برداشت کنید که در قسمت بدهکار ویا بستانکار با یک رکورد جدید ثبت شود ودر زمان فراخوانی بستانکار ها را باهم جمع کرده ودر یک تکس نمایش وبدهکار را در یک تکس دیگر وبعد 2تکس را از هم کم ویا جمع کرده ودر یک تکس بعنوان موجودی نمایش بدهد
زمانی که شماره حساب وارد شد براساس شماره حساب فیلتر کرده وبعد بد هکار را جمع وبستانکار راهم همینطور

thomasandy

دوشنبه 11 دی 1391, 17:05 عصر

شما می توانید که پشت سر هم مبلغ به حساب واریز ویا برداشت کنید که در قسمت بدهکار ویا بستانکار با یک رکورد جدید ثبت شود ودر زمان فراخوانی بستانکار ها را باهم جمع کرده ودر یک تکس نمایش وبدهکار را در یک تکس دیگر وبعد 2تکس را از هم کم ویا جمع کرده ودر یک تکس بعنوان موجودی نمایش بدهد
زمانی که شماره حساب وارد شد براساس شماره حساب فیلتر کرده وبعد بد هکار را جمع وبستانکار راهم همینطور
سلام آره همین طوری سورس برنامه رو بهم یاد میدی چه جوری بنویسم

moghadam1372

سه شنبه 12 دی 1391, 07:48 صبح

سلام
خسته نباشید تکس 22موجودی

Private Sub Text6_LostFocus()
On Error Resume Next
sql = "SELECT * from kala WHERE Left(codk, " & Len(Text6) & ")='" & Trim(Text6) & "'"
Adodc3.RecordSource = sql
Adodc3.Refresh
Adodc3.Recordset.Sort = "codk"
On Error Resume Next
If Len(Text6.Text) <> Len(Adodc3.Recordset.Fields!codk) Then
Text6.ForeColor = vbRed
'MText7.Text = ""

Else
Text7.Text = Adodc3.Recordset.Fields!Namek
Text6.ForeColor = vbBlack
Adodc3.Recordset.Filter = "codk =' " & Text6.Text & " ' "
End If
Adodc3.Recordset.MoveFirst
vkol = 0
While Adodc3.Recordset.EOF <> True
bd= Adodc3.Recordset.Fields("bd")
vkol = vkol + bd
Adodc3.Recordset.MoveNext
Wend
Text20 = vkol
Adodc3.Refresh
Adodc3.Recordset.Filter = "codk =' " & Text6.Text & " ' "
Adodc3.Recordset.MoveFirst
vkol = 0
While Adodc3.Recordset.EOF <> True
bs= Adodc3.Recordset.Fields("bs")
vkol = vkol + bs
Adodc3.Recordset.MoveNext
Wend
Text21 = vkol
Adodc3.Refresh

Text22 = Text21 - Text20
End Sub