ارجو المساعدة في هذا الكود

[mamhood]

لقد قمت بعمل كود لبرنامج بمساعدة اخي ولكن اخي مشغول ارجو منكم المساعدة في هذا الكود وضيفة هذا الكود هي على كبسة تقوم في زيادة عداد المضخة وطرح كمية البير في النموزج واريد عند عمل الكبسة ان يعطيني ركورد جديد بعد عمل السجل او طريقة اعلم ان هذا السجل قد تم الحدث عليه ام لا

Private Sub Command18_Click()

Dim x As Double

Dim y As Double

Dim z As Double

Dim a As Double

Dim b As Double

Dim db As Database

Dim rs As Recordset

a = nb.Value

Set db = OpenDatabase("c:\amman.mdb")

Set rs = db.OpenRecordset("select ad from m where nb1=" & a)

n = rs.RecordCount

rs.MoveFirst

For i = 1 To n

x = rs.Fields("ad")

y = q.Value

z = x + y

rs.MoveNext

Next i

MsgBox z

db.Execute ("update m set ad=" & z & " where nb1=" & a)

Dim dbb As Database

Dim rss As Recordset

Dim x1 As Double

Dim n1 As Double

Dim a1 As Double

Dim y1 As Double

a = nb.Value

Set dbb = OpenDatabase("c:\amman.mdb")

Set rss = dbb.OpenRecordset("select q3,nb3 from b1,m,s where nb3=nb4 and nb1=" & a)

n1 = rss.RecordCount

rss.MoveFirst

For i = 1 To n1

x1 = rss.Fields("q3")

x2 = rss.Fields("nb3")

rss.MoveNext

Next i

y1 = x1 - q

MsgBox y1

dbb.Execute ("update b1 set q3=" & y1 & " where nb3=" & x2)

new Recordset

End Sub

وشكر لكم

[rudwan]

هذا الكود لايوضح مالذي تريد عمله بدون أن تشرح المسميات و على ماتدل كل واحدة منها

[mamhood]

مشكور لك اخي اريد لن اعمل كود في زر امر ان يفتح ركورد سجل جديد وشكرا