Valore Null

[sergran]

Hello, I need your help .... if you can
I have a text box handled by this VBA code


Dim ValoreEsistente, MioConteggio As String
ValoreEsistente = Me.Voto_04
MioConteggio = Left (ValoreEsistente, 3)
If MioConteggio = "04 -" Then
Exit Sub
else
[Voto_04]. Value = "04 -" & Me [Voto_04]
end If
It works, but if you do not insert any given me an error is returned. I tried to write
If [Voto_04]. Value is null
Exit Sub
end if
but it does not work ...
sigh sigh

[ssanfu]

You have to use the IsNull() function:

  Dim ValoreEsistente As String
  Dim MioConteggio As String

  ValoreEsistente = Me.Voto_04
  MioConteggio = Left(ValoreEsistente, 3) ' see below

  If MioConteggio = "04 -" Or IsNull(ValoreEsistente) Then
    Exit Sub
  Else
    Me.[Voto_04] = "04 -" & ValoreEsistente
  End If

-------------------------
Other items:
Don't have to type ".Value" ...... VALUE is the default property.

If there is a space in the string "04 -", the length is 4, not 3. (zero, four, space,dash)

The line
[Voto_04]. Value = "04 -" & Me [Voto_04] - is missing a dot between "ME" and "[Voto_04]"

The variable "ValoreEsistente" is declared as a Variant, "MioConteggio" is declared as a String.

[sergran]

Hello, i my sorry but I can not figure out how to run the code. I brought him back in the field Voto_04 but does not work. I attach the database .. could you give us a look?

[ssanfu]

Where did you copy the code from?

It works, but if you do not insert any given me an error is returned.

If it (the code) works, put the revised code in the same place.
But I will look at your example......

[ssanfu]

Seems to be working fine. Because of the event you selected, you have to exit the field for the code to run.

Also, you should have these two lines at the top of every code page:

Option Compare Database
Option Explicit


In the IDE, goto TOOLS/OPTIONS/ Editor tab, make sure that "Require Variable Declaration" is checked. This will add the line "Option Explicit" to all NEW code pages.

Under access options, Current database, uncheck the two options for "Name AutoCorrect?



You can use the code in "Private Sub Voto_04_Exit(Cancel As Integer)" as a guide for all of the other Traccia combo boxes.
Instead of the EXII event, I probably would have used the AFTERUPDATE event......

[sergran]

Forgive me but I can not understand ... sorry but programming is "0". Can you please change the db I have attached for what concerns the text box Voto_04? Then for the other fields I'll .. thanks

[sergran]

I'm sorry but I just can not .....

[ssanfu]

The code for "Voto_04" is working, as far as I can tell. Why do you think it is not working?

[sergran]

Hello, I always appears the error "Run-time 94" when Voto_04 not insert any data. Definitely something I'm wrong, so I ask you if you could please look at the attached database ...
hello thanks