dmax issue

[JohnE]

I have a form that has on it a cboFileLetter(textfield), txtFileNo
(numberfield) and a button (there are other controls but not relevent for
this posting). When the button is clicked I need to have txtFileNo fill in
with the next incremental number for the letter that has been selected in
cboFileLetter. The code in the click event that I have so far is;

Me.txtFileNo.Value = Nz(DMax("[FileNo]", "[tbl_Clients]", "FileLetter=" &
Me.cboFileLetter), 0) + 1

This is not working and I get an error 2001 - you canceled the previous
action.

I seek help on this dillemma.

Thanks in advance for the help.
*** John

 

[Carl Rapson]

I have a form that has on it a cboFileLetter(textfield), txtFileNo
(numberfield) and a button (there are other controls but not relevent for
this posting). When the button is clicked I need to have txtFileNo fill
in
with the next incremental number for the letter that has been selected in
cboFileLetter. The code in the click event that I have so far is;

Me.txtFileNo.Value = Nz(DMax("[FileNo]", "[tbl_Clients]", "FileLetter=" &
Me.cboFileLetter), 0) + 1

This is not working and I get an error 2001 - you canceled the previous
action.

I seek help on this dillemma.

Thanks in advance for the help.
*** John

What is the datatype of the FileLetter field in tbl_Clients? If it's text,
you'll need to put quotes around the value you're testing:

Me.txtFileNo.Value = Nz(DMax("[FileNo]", "[tbl_Clients]", "FileLetter='"
& Me.cboFileLetter & "'"), 0) + 1

Carl Rapson

 

[JohnE]

Carl, thanks for the reply. It is text and I just realized my error.
Thanks.

I have a form that has on it a cboFileLetter(textfield), txtFileNo
(numberfield) and a button (there are other controls but not relevent for
this posting). When the button is clicked I need to have txtFileNo fill
in
with the next incremental number for the letter that has been selected in
cboFileLetter. The code in the click event that I have so far is;

Me.txtFileNo.Value = Nz(DMax("[FileNo]", "[tbl_Clients]", "FileLetter=" &
Me.cboFileLetter), 0) + 1

This is not working and I get an error 2001 - you canceled the previous
action.

I seek help on this dillemma.

Thanks in advance for the help.
*** John

What is the datatype of the FileLetter field in tbl_Clients? If it's text,
you'll need to put quotes around the value you're testing:

Me.txtFileNo.Value = Nz(DMax("[FileNo]", "[tbl_Clients]", "FileLetter='"
& Me.cboFileLetter & "'"), 0) + 1

Carl Rapson