maryamb
پنج شنبه 19 فروردین 1389, 18:13 عصر
سلام دوستان.
توی برنامم در قسمت عوض کردن سال مالی اونجایی که می خوام حساب اشخاص رو به جدول سال جدید انتقال بدم این خطا رو می ده.(عکس)
کدی که نوشتم هم اینه:
Adodc3.refresh
Dim sanadno
For t = 0 To Adodc3.Recordset.RecordCount - 1
If Adodc3.Recordset.Fields("k2") = "بستانكار" Then
sanadno = sanadno + 1
Adodc5.Recordset.AddNew
Adodc5.Recordset.Fields("bes") = Adodc3.Recordset.Fields("k3")
Adodc5.Recordset.Fields("bed") = 0
Adodc5.Recordset.Fields("varizno") = sanadno
Adodc5.Recordset.Fields("idmoshtary") = Adodc3.Recordset.Fields("id")
Adodc5.Recordset.Fields("date") = "13" & salmali & "/01/01"
Adodc5.Recordset.Fields("comment") = "مانده از سال پيش"
Adodc5.Recordset.Update
Adodc5.refresh
ElseIf Adodc3.Recordset.Fields("k2") = "بدهكار" Then
sanadno = sanadno + 1
Adodc5.Recordset.AddNew
Adodc5.Recordset.Fields("bed") = Adodc3.Recordset.Fields("k3")
Adodc5.Recordset.Fields("bes") = 0
Adodc5.Recordset.Fields("varizno") = sanadno
Adodc5.Recordset.Fields("idmoshtary") = Adodc3.Recordset.Fields("id")
Adodc5.Recordset.Fields("date") = "13" & salmali & "/01/01"
Adodc5.Recordset.Fields("comment") = "مانده از سال پيش"
Adodc5.Recordset.Update
Adodc5.refresh
End If
Adodc3.Recordset.MoveNext
Next
خطی که خطا میگیره رو مشخص کردم.
در این کد Adodc3 جدول مشتری هاست که جمع بدهی یا بستانکاری آخر سالشون تو فیلد k3 ذخیره شده و فقط باید به جدول adodc5 انتقال داده بشه
نکته مهم اینه که اولا اولین رکورد دخیره می شه و رو دومی خطا میگیره
ثانیا اگه عوض ( "Adodc3.Recordset.Fields("k3 بیام عدد ساده بذارم هیچ خطایی نمی گیره
مثلا 1000 بذارم.
توی برنامم در قسمت عوض کردن سال مالی اونجایی که می خوام حساب اشخاص رو به جدول سال جدید انتقال بدم این خطا رو می ده.(عکس)
کدی که نوشتم هم اینه:
Adodc3.refresh
Dim sanadno
For t = 0 To Adodc3.Recordset.RecordCount - 1
If Adodc3.Recordset.Fields("k2") = "بستانكار" Then
sanadno = sanadno + 1
Adodc5.Recordset.AddNew
Adodc5.Recordset.Fields("bes") = Adodc3.Recordset.Fields("k3")
Adodc5.Recordset.Fields("bed") = 0
Adodc5.Recordset.Fields("varizno") = sanadno
Adodc5.Recordset.Fields("idmoshtary") = Adodc3.Recordset.Fields("id")
Adodc5.Recordset.Fields("date") = "13" & salmali & "/01/01"
Adodc5.Recordset.Fields("comment") = "مانده از سال پيش"
Adodc5.Recordset.Update
Adodc5.refresh
ElseIf Adodc3.Recordset.Fields("k2") = "بدهكار" Then
sanadno = sanadno + 1
Adodc5.Recordset.AddNew
Adodc5.Recordset.Fields("bed") = Adodc3.Recordset.Fields("k3")
Adodc5.Recordset.Fields("bes") = 0
Adodc5.Recordset.Fields("varizno") = sanadno
Adodc5.Recordset.Fields("idmoshtary") = Adodc3.Recordset.Fields("id")
Adodc5.Recordset.Fields("date") = "13" & salmali & "/01/01"
Adodc5.Recordset.Fields("comment") = "مانده از سال پيش"
Adodc5.Recordset.Update
Adodc5.refresh
End If
Adodc3.Recordset.MoveNext
Next
خطی که خطا میگیره رو مشخص کردم.
در این کد Adodc3 جدول مشتری هاست که جمع بدهی یا بستانکاری آخر سالشون تو فیلد k3 ذخیره شده و فقط باید به جدول adodc5 انتقال داده بشه
نکته مهم اینه که اولا اولین رکورد دخیره می شه و رو دومی خطا میگیره
ثانیا اگه عوض ( "Adodc3.Recordset.Fields("k3 بیام عدد ساده بذارم هیچ خطایی نمی گیره
مثلا 1000 بذارم.