Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: vba.access

jtp4 — Mon, 21 Nov 2011 21:42:08 GMT

para1 = Me.data2
para2 = Me.data3
para4 = Me.data4
'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 (para2)

Set db1 = CurrentDb
Set rs1 = db.OpenRecordset("select max(TransItemKlm)as Klm2 from trans where transitemcode=" & "'" & para1 & "'" & "and TransDocNo<" & para3)
rs1.MoveFirst
para5 = rs1("Klm2")
'MsgBox (para5)

para6 = (para2 - para5) + 1
'MsgBox (para6)
Me.dklm = FormatNumber(para6, 0)
para7 = (para4 / para6) * 100
'MsgBox (para7)
If Me.TransItemFreezer = True Then
Me.dklm = 0
End If

If Not rs1.EOF Then
totalsum = 0

Do
para8 = (para2 - rs1("Klm2")) + 1
totalsum = totalsum + para8
MsgBox (totalsum)
rs1.MoveNext
Loop Until rs1.EOF

End If

End Sub

Απ: vba.access

jtp4 — Mon, 21 Nov 2011 21:41:32 GMT

Private Sub ËåðôïìÝñåéá_Format(Cancel As Integer, FormatCount As Integer) Dim db As Database Dim rs As Recordset Dim rs1 As Recordset Dim db1 As Database 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 Long Dim para9 As Integer Dim count As Integer Dim totalsum As Long para1 = Me.data2 para2 = Me.data3 para4 = Me.data4 '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 (para2) Set db1 = CurrentDb Set rs1 = db.OpenRecordset("select max(TransItemKlm)as Klm2 from trans where transitemcode=" & "'" & para1 & "'" & "and TransDocNo

Απ: vba.access

jtp4 — Mon, 21 Nov 2011 21:39:28 GMT

Το έκανα αλλα μου επιστρέφει αποτέλεσμα ισο με το para8

Απ: vba.access

George J. Capnias — Mon, 21 Nov 2011 21:27:34 GMT

Αν υποθέσουμε ότι θα προσθέσουμε μια μεταβλητή totalSum για να κρατήσει το γενικό άθροισμα, ο κώδικάς σου θα πρέπει να έχει την μορφή:

Dim totalSum as Long

If Not rs1.EOF Then
	totalSum = 0
	Do
		para8 = (para2 - rs1("Klm2")) + 1
		totalSum = totalSum + para8
		MsgBox (para8)
		rs1.MoveNext
	Loop Until rs1.EOF

George J.

Απ: vba.access

jtp4 — Mon, 21 Nov 2011 21:17:10 GMT

καταρχάς ευχαριστώ πολυ

εχω βαλει τον προτυνόμενο βρογχο

If Not rs1.EOF Then
Do
para8 = (para2 - rs1("Klm2")) + 1
MsgBox (para8)
rs1.MoveNext
Loop Until rs1.EOF

στο msgbox βλεπω τις τιμές του rs1 το μεγαλο μου προβλημα ειναι να τις αθροισω.

Απ: vba.access

George J. Capnias — Mon, 21 Nov 2011 18:57:43 GMT

Καλημέρα,

Φαντάζομαι, ότι το πρόβλημά σου είναι ο χειρισμός των αποτελεσμάτων από το ερώτημα στην βάση - κώδικας που έχεις παραπάνω δεν κάνει χειρισμό των αποτελεσμάτων, ούτε λαμβάνει υπόψη του αν λαμβάνουν αποτελέσματα.

Ο κώδικας χειρισμού αποτελεσμάτων είναι κάπως έτσι:

Set db = CurrentDb()
Set rs = db.OpenRecordset(<SQL Code goes here>)
If Not rs.EOF then
	Do

		para3 = rs("No")
		...

	Loop Until rs.EOF
End If
rs.Close

Τα αποτελέσματα που αποθηκεύονται στο rs (Recordset) δύναται ή δεν δύναται να περιέχει records από την βάση - αυτός είναι και ο πρώτος έλεγχος που κάνει ο κώδικας. Αφού εξασφαλίσεις ότι έχεις τουλάχιστον μία εγγραφή, θα πρέπει με ένα βρόγχο να πάρεις μία-μία τις εγγραφές που έχουν επιστρέψει. Ο βρόγχος είναι το Do ... Loop Until που υπάρχει. Ο χειρισμός κάθε record είναι στο ενδιάμεσο...

George J.

vba.access

jtp4 — Mon, 21 Nov 2011 18:26:47 GMT

Μπορεί να μου πει κάποιος πώς να φτιάξω ένα βρόγχο στον παρακάτω κώδικα στον όποιο να μαζέψω το σύνολο του 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