Count the number of CustomerAccounts by looping

[Rheigny]

hi I'm new in Ms access/vba and im creating a banking system for my school project.I have a form which is AddAccountView i want the user to enter their CustomerId and i will check if that is exist in my CustomerTable (to add their account they need to fill up in AddCustomerView form) now i let them choose their accountType if savings or timedeposit and i will give their account number in this format
Savings and timeDeposit Account number must follow this String pattern: nnnnxS
where:
nnnn = customer id
x = account size
S = Savings account type

example:

• 10011S = 1st account of customer 1001, type is Savings
• 10012S = 2nd account of customer 1001, type is Savings
• 10013T = 3RD account of customer 1001, type is TimeDeposit
• 10099S = 9th account of customer 1009, type is Savings
• 101015S = 15th account of customer 1010, type is Savings


so account size will count as long as the customerId is creating new account.. my problem is how will i loop the accountsize specifically for the given CustomerId and throw it in my table "TblAccount" the method of looping is still not there cause i dont know where to start.. i hope you can help me..
tnx! =)
this is my codes:

Option Compare Database
 
Private Sub btnAccountSave_Click()
 Dim strQuery As String
 
 If cmbAccountType.Value = "Savings Account" Then
    txtAccountNumber.Value = _
   (txtAccountCustomerId.Value & " " & "S")
  ElseIf cmbAccountType.Value = _
    "TimeDeposit Account" Then
       txtAccountNumber.Value = _
      (txtAccountCustomerId.Value & " " & "T")
 End If
 
End Sub
 
'><
 
Private Sub txtAccountCustomerId_AfterUpdate()
Dim strQuery As String
 
 If IsNull(DLookup("CustomerId", "TblCustomer", "CustomerID = " & [txtAccountCustomerId] & " ")) Then
        MsgBox "Customer Id doesn't exist!"
        txtAccountNumber.Enabled = False
        txtInitialDeposit.Enabled = False
        txtMaintainingBalance.Enabled = False
    Else
        cmbAccountType.Enabled = True
        txtAccountNumber.Enabled = False
        txtInitialDeposit.Enabled = False
        txtMaintainingBalance.Enabled = False
 
 
     End If
End Sub

[zmbd]

Rheigny
Please understand we do not answer homework questions.

You should be able to do this without VBA using a few queries.

As for the design of your form and the underlying code... currently, with what little you've given, there are 4 ways I can think of to solve your issue. Temp tables, array, temp variables, global variables, and class type (ok... 5.... well 6 counting the queries).

-z