आज ही एक्सेस वीबीए के साथ शुरुआत की और कल्पना करें कि यह एक साधारण फिक्स है। कार्यक्रम प्रत्येक सेवा श्रेणी में कुल मेहमानों की गणना करता है। मुझे कुछ आसान याद आना चाहिए।

Public Sub CalculateTotalGuestsForEachService()

'Declare variables
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim intTotalParty As Integer

'Set the current database
Set db = CurrentDb

'Set the recordset
Set rst = db.OpenRecordset("Select Orders.* From Orders Where ServiceID = 1")

'Cycle through the records
Do While Not rst.EOF
    intTotalParty = intTotalParty + rst!NoInParty
rst.MoveNext
Loop

'Display total amount
MsgBox "The total is " & intTotalParty

'Close the recordset
rst.Close
Set rst = Nothing
Set db = Nothing   

End Sub
2
Swifty509 17 नवम्बर 2020, 10:47

1 उत्तर

सबसे बढ़िया उत्तर

अगर किसी रिकॉर्ड का कोई शून्य मान है, तो Nz लागू करें:

intTotalParty = intTotalParty + Nz(rst!NoInParty.Value, 0)

या, आप क्वेरी को मानों का योग करने दे सकते हैं:

'Set the recordset
Set rst = db.OpenRecordset("Select Sum(NoInParty) As TotalParty From Orders Where ServiceID = 1")
If rst.RecordCount = 1 Then
    intTotalParty = Nz(rst!TotalParty.Value)
End If
1
Gustav 17 नवम्बर 2020, 07:58