Runtime error 3464 with DCount

tigrotto22 · #1 (**permalink**) 10-14-11, 18:33

Hi everyone.
I'm at my first db with access and now I'm facing with a problem I'm not able to solve.
I have an input form (Inserimento nuovi controlli). The data will be added to a table (Anagrafica contribuenti). Before updating the table I need to check that a field (Partita Iva) is not included in that table. To verify this condition I'm using the following code in the form:

Code:

Private Sub pi_LostFocus()

If Not IsNull(Me.pi) Then
If DCount("[Partita Iva]", "Anagrafica contribuenti", "[Partita Iva] ='" & Me.pi & "'") > 0 Then
MsgBox "Partita Iva già presente"
...

The field in the form (pi) is text, in the table is numeric.
I receive the Runtime error 3464
I can't figure why!
What's the problem?
Thanks.

myle · #2 (**permalink**) 10-15-11, 01:43

If it a number filed take out the '

tigrotto22 · #3 (**permalink**) 10-15-11, 06:12

The destination record in the table is numeric, but the field in the form where the code is written is a text field.
However, I tried without the ' but the problem remains.

Sinndho · #4 (**permalink**) 10-15-11, 06:54

Quote:

Originally Posted by tigrotto22

The destination record in the table is numeric, but the field in the form where the code is written is a text field.

The only thing that matters is the data type of the column in the table definition. Moreover, there is no such thing as a "text field" in a form. TextBox controls return data of Variant data type in their Value property (otherwise they could not be Null).

The correct form (provided there is no typo's in the names) should be:

Code:

If DCount("[Partita Iva]", "[Anagrafica contribuenti]", "[Partita Iva] = " & Me.Pi.Value) > 0 Then

tigrotto22 · #5 (**permalink**) 10-15-11, 12:13

Thank you Sinndho,

you are right! Now works correctly.
I was focused on the data type of the textBox in the form. Now I understand my error!
Thank you again!
Bye.

Sinndho · #6 (**permalink**) 10-15-11, 12:33

You're welcome!

Internet Services

Web Development

Digital Marketing

Consumer Tech