rezasafdari
سه شنبه 14 شهریور 1385, 18:25 عصر
آقایون و خانومهای صاحب نظر بیان جلو :لبخند:
میخوام یک کاری کنم که رکوردهای بانک اطلاعاتیم که با هرکدوم از فیلدهاشون رو با یه تکست باکس ست کردم توی اونا جلو عقب بشن اولین رکورد و آخرین رو خوب انجام میده ولی با بقیه یکم مشکل داره کدی که برای جلو بردن استفاده کردم اینه :
On Error Resume Next
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MovePrevious
XPText1.Text = Adodc1.Recordset.Fields(0)
XPText2.Text = Adodc1.Recordset.Fields(1)
XPText3.Text = Adodc1.Recordset.Fields(2)
XPText4.Text = Adodc1.Recordset.Fields(3)
XPText5.Text = Adodc1.Recordset.Fields(4)
XPText6.Text = Adodc1.Recordset.Fields(5)
XPText7.Text = Adodc1.Recordset.Fields(6)
XPText8.Text = Adodc1.Recordset.Fields(7)
XPText9.Text = Adodc1.Recordset.Fields(8)
XPText10.Text = Adodc1.Recordset.Fields(9)
XPText11.Text = Adodc1.Recordset.Fields(10)
Adodc1.Refresh
Else
Adodc1.Recordset.MoveNext
XPText1.Text = Adodc1.Recordset.Fields(0)
XPText2.Text = Adodc1.Recordset.Fields(1)
XPText3.Text = Adodc1.Recordset.Fields(2)
XPText4.Text = Adodc1.Recordset.Fields(3)
XPText5.Text = Adodc1.Recordset.Fields(4)
XPText6.Text = Adodc1.Recordset.Fields(5)
XPText7.Text = Adodc1.Recordset.Fields(6)
XPText8.Text = Adodc1.Recordset.Fields(7)
XPText9.Text = Adodc1.Recordset.Fields(8)
XPText10.Text = Adodc1.Recordset.Fields(9)
XPText11.Text = Adodc1.Recordset.Fields(10)
Adodc1.Refresh
End If
و برای عقب بردن از کد زیر استفاده کردم :
On Error Resume Next
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveNext
XPText1.Text = Adodc1.Recordset.Fields(0)
XPText2.Text = Adodc1.Recordset.Fields(1)
XPText3.Text = Adodc1.Recordset.Fields(2)
XPText4.Text = Adodc1.Recordset.Fields(3)
XPText5.Text = Adodc1.Recordset.Fields(4)
XPText6.Text = Adodc1.Recordset.Fields(5)
XPText7.Text = Adodc1.Recordset.Fields(6)
XPText8.Text = Adodc1.Recordset.Fields(7)
XPText9.Text = Adodc1.Recordset.Fields(8)
XPText10.Text = Adodc1.Recordset.Fields(9)
XPText11.Text = Adodc1.Recordset.Fields(10)
Adodc1.Refresh
Else
Adodc1.Recordset.MovePrevious
XPText1.Text = Adodc1.Recordset.Fields(0)
XPText2.Text = Adodc1.Recordset.Fields(1)
XPText3.Text = Adodc1.Recordset.Fields(2)
XPText4.Text = Adodc1.Recordset.Fields(3)
XPText5.Text = Adodc1.Recordset.Fields(4)
XPText6.Text = Adodc1.Recordset.Fields(5)
XPText7.Text = Adodc1.Recordset.Fields(6)
XPText8.Text = Adodc1.Recordset.Fields(7)
XPText9.Text = Adodc1.Recordset.Fields(8)
XPText10.Text = Adodc1.Recordset.Fields(9)
XPText11.Text = Adodc1.Recordset.Fields(10)
Adodc1.Refresh
End If
خداییش هر کی یه کمکی کنه رو تا آخر برنامه دعا میکنم :لبخند:
یا علی:تشویق:
میخوام یک کاری کنم که رکوردهای بانک اطلاعاتیم که با هرکدوم از فیلدهاشون رو با یه تکست باکس ست کردم توی اونا جلو عقب بشن اولین رکورد و آخرین رو خوب انجام میده ولی با بقیه یکم مشکل داره کدی که برای جلو بردن استفاده کردم اینه :
On Error Resume Next
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MovePrevious
XPText1.Text = Adodc1.Recordset.Fields(0)
XPText2.Text = Adodc1.Recordset.Fields(1)
XPText3.Text = Adodc1.Recordset.Fields(2)
XPText4.Text = Adodc1.Recordset.Fields(3)
XPText5.Text = Adodc1.Recordset.Fields(4)
XPText6.Text = Adodc1.Recordset.Fields(5)
XPText7.Text = Adodc1.Recordset.Fields(6)
XPText8.Text = Adodc1.Recordset.Fields(7)
XPText9.Text = Adodc1.Recordset.Fields(8)
XPText10.Text = Adodc1.Recordset.Fields(9)
XPText11.Text = Adodc1.Recordset.Fields(10)
Adodc1.Refresh
Else
Adodc1.Recordset.MoveNext
XPText1.Text = Adodc1.Recordset.Fields(0)
XPText2.Text = Adodc1.Recordset.Fields(1)
XPText3.Text = Adodc1.Recordset.Fields(2)
XPText4.Text = Adodc1.Recordset.Fields(3)
XPText5.Text = Adodc1.Recordset.Fields(4)
XPText6.Text = Adodc1.Recordset.Fields(5)
XPText7.Text = Adodc1.Recordset.Fields(6)
XPText8.Text = Adodc1.Recordset.Fields(7)
XPText9.Text = Adodc1.Recordset.Fields(8)
XPText10.Text = Adodc1.Recordset.Fields(9)
XPText11.Text = Adodc1.Recordset.Fields(10)
Adodc1.Refresh
End If
و برای عقب بردن از کد زیر استفاده کردم :
On Error Resume Next
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveNext
XPText1.Text = Adodc1.Recordset.Fields(0)
XPText2.Text = Adodc1.Recordset.Fields(1)
XPText3.Text = Adodc1.Recordset.Fields(2)
XPText4.Text = Adodc1.Recordset.Fields(3)
XPText5.Text = Adodc1.Recordset.Fields(4)
XPText6.Text = Adodc1.Recordset.Fields(5)
XPText7.Text = Adodc1.Recordset.Fields(6)
XPText8.Text = Adodc1.Recordset.Fields(7)
XPText9.Text = Adodc1.Recordset.Fields(8)
XPText10.Text = Adodc1.Recordset.Fields(9)
XPText11.Text = Adodc1.Recordset.Fields(10)
Adodc1.Refresh
Else
Adodc1.Recordset.MovePrevious
XPText1.Text = Adodc1.Recordset.Fields(0)
XPText2.Text = Adodc1.Recordset.Fields(1)
XPText3.Text = Adodc1.Recordset.Fields(2)
XPText4.Text = Adodc1.Recordset.Fields(3)
XPText5.Text = Adodc1.Recordset.Fields(4)
XPText6.Text = Adodc1.Recordset.Fields(5)
XPText7.Text = Adodc1.Recordset.Fields(6)
XPText8.Text = Adodc1.Recordset.Fields(7)
XPText9.Text = Adodc1.Recordset.Fields(8)
XPText10.Text = Adodc1.Recordset.Fields(9)
XPText11.Text = Adodc1.Recordset.Fields(10)
Adodc1.Refresh
End If
خداییش هر کی یه کمکی کنه رو تا آخر برنامه دعا میکنم :لبخند:
یا علی:تشویق: