VBA Access

[jtp4]

Μπορεί να μου πει κάποιος πώς να φτιάξω ένα βρόγχο στον παρακάτω κώδικα στον όποιο να μαζέψω το σύνολο του para7 στην μεταβλητή para8 για κάθε διαφορετεικό para1

Ευχαριστώ.

Private Sub ËåðôïìÝñåéá_Format(Cancel As Integer, FormatCount As Integer)

 

Dim db As Database

Dim rs As Recordset

Dim para1 As String

Dim para2 As String

Dim para3 As String

Dim para4 As String

Dim para5 As String

Dim para6 As String

Dim para7 As String

Dim para8 As String

 

para1 = Me.data1

para2 = Me.data2

para4 = Me.data3

 

'MsgBox (para1)

'MsgBox (para2)

 

Set db = CurrentDb()

Set rs = db.OpenRecordset("Select (TransDocNo) as No from Trans Where TransItemCode=" & "'" & para1 & "'" & "and TransItemKlm = " & para2)

rs.MoveFirst

para3 = rs("No")

 

'MsgBox (para3)

 

Set db = CurrentDb

Set rs = db.OpenRecordset("select max(TransItemKlm)as Klm2 from trans where transitemcode=" & "'" & para1 & "'" & "and TransDocNo<" & "'" & para3 & "'")

rs.MoveFirst

para5 = rs("Klm2")

'MsgBox (para5)

 

 

para6 = (para2 - para5) + 1

'MsgBox (para6)

Me.dklm = para6

para7 = (para4 / para6) * 100

'MsgBox (para7)

 

 

End Sub