[asto]

السلام عليكم

لا استطيع تنفيذ امر تعديل قاعدة البيانات سوى مرة واحدة عند الضغط على كوماند

فكيف يمكن حل هذه المشكلة

[a_senan]

[COLOR="#000080"]وعليكم السلام
ارفع مشروعك لكي يتم التعديل[/COLOR]

[asto]

a_senan كتب :[COLOR="#000080"]وعليكم السلام
ارفع مشروعك لكي يتم التعديل[/COLOR]

تفضل الكود ضمن زر كوماند و الهدف هو ترتيب حسب العمود no1 مع مراعاة no2 تصاعديا :
[HTML]
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveLast
Text16.Text = Data1.Recordset.RecordCount
zzr = Text16.Text - 1
zzra = zzr
ReDim a(zzra) 'E? C???C??E
ReDim aa(zzra) '??IE ?? E? C???C??E
ReDim b(zzra)
ReDim bb(zzra) ' ??IE C???C??E C???EEE
ReDim c(zzra)
ReDim d(zzra)
ReDim e(zzra, 1)
For v = 0 To zzra
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveFirst
Data1.Recordset.Move (v)
Text11.Text = Data1.Recordset.Fields!no1 / 100
Text12.Text = Data1.Recordset.Fields!no
Text13.Text = Data1.Recordset.Fields!no2
Text18.Text = Data1.Recordset.Fields!no3
a(v) = Text11.Text
aa(v) = Text11.Text
b(v) = Text12.Text
c(v) = Text13.Text
d(v) = Text18.Text
Next v
Min = a(0)
For cccx = 1 To zzra
If a(cccx) < Min Then
Min = a(cccx)
End If
Next cccx
Text14.Text = Min
For sss = 0 To zzra - 1
Max = a(0)
For cc = 1 To zzra
If a(cc) > Max Then
Max = a(cc)
End If
Next cc
bct = 0
For ss = 0 To zzra
If a(ss) = Max Then
a(ss) = 0
bct = bct + 1
End If
Next ss
bcct = bct + sss - 1
For ikk = sss To bcct
bb(ikk) = Max
Print bb(ikk) * 100
Next ikk
sss = bcct
Next sss
bb(zzra) = Text14.Text
Print bb(zzra) * 100
ReDim ee(zzra, 3)
ReDim acc(zzra)
ReDim bc(zzra)
ReDim cx(zzra)
ReDim dc(zzra)
For vv = 0 To zzra
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveFirst
Data1.Recordset.Move (vv)
For vvv = 0 To zzra
If bb(vv) = aa(vvv) Then
Text15.Text = aa(vvv) * 100
Text11.Text = Text15.Text
Text12.Text = b(vvv)
Text13.Text = c(vvv)
Text18.Text = d(vvv)
aa(vvv) = 0
vvv = zzra
End If
Next vvv
Data1.Recordset.Edit
Data1.Recordset.Fields!no1 = Text11.Text
Data1.Recordset.Fields!no = Text12.Text
Data1.Recordset.Fields!no2 = Text13.Text
Data1.Recordset.Fields!no3 = Text18.Text
Data1.Recordset.Update
Next vv


For xxl = 0 To zzra
Text29.Text = bb(xxl)
acc(xxl) = Text29.Text
Text23.Text = b(xxl)
bc(xxl) = Text23.Text
Text24.Text = c(xxl) / 1000000
cx(xxl) = Text24.Text
Text28.Text = d(xxl)
dc(xxl) = Text28.Text
Next xxl

For kjj = 0 To zzra
For kjo = 0 To zzra - 1
If acc(kjo) = acc(kjo + 1) Then
If cx(kjo) < cx(kjo + 1) Then
Text25.Text = cx(kjo + 1)
cx(kjo + 1) = cx(kjo)
cx(kjo) = Text25.Text
Text26.Text = dc(kjo + 1)
dc(kjo + 1) = dc(kjo)
dc(kjo) = Text26.Text
Text27.Text = bc(kjo + 1)
bc(kjo + 1) = bc(kjo)
bc(kjo) = Text27.Text
End If
End If
Next kjo
Next kjj
For llp = 0 To zzra
Print cx(llp)
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveFirst
Data1.Recordset.Move (llp)
Text11.Text = acc(llp)
Text12.Text = bc(llp)
Text13.Text = cx(llp) * 1000000
Text18.Text = dc(llp)
Data1.Recordset.Edit
Data1.Recordset.Fields!no1 = Text11.Text
Data1.Recordset.Fields!no = Text12.Text
Data1.Recordset.Fields!no2 = Text13.Text
Data1.Recordset.Fields!no3 = Text18.Text
Data1.Recordset.Update
Next llp[/HTML]
هذا هو ملف قاعدة البيانات
http://www.gulfup.com/?5Nx9io

[asto]

ممكن الرد يا اخوان