DMax using Listbox not working

[Chuckieinoz]

Hi Everyone I have a problem that for the life of me i can not work out.
I am trying to use Dmax in a listbox to return Account number in a seperate text box my code returns no Errors but just is not working.
Attatched is a Text Db with Form and respective Table.

 

[arnelgp]

do not add space between the "single quote" character:

    Me.txtGroupNumber = DMax("AccNumber", "tbl_ChartOfAccounts", "AccName= '" & Me.ListSelectPrimary & "'") + 1

you should also add a "descriptive text" about what this number is, like (in a Label):

Me.lblAccount.Caption = "Next Account Number for the Group: " & Me.listSelectPrimary

 

[Chuckieinoz]

do not add space between the "single quote" character:

    Me.txtGroupNumber = DMax("AccNumber", "tbl_ChartOfAccounts", "AccName= '" & Me.ListSelectPrimary & "'") + 1

you should also add a "descriptive text" about what this number is, like (in a Label):

Me.lblAccount.Caption = "Next Account Number for the Group: " & Me.listSelectPrimary

Thanks mate worked great