code loopt niet

[fredvanhezel]

Ik heb een klein probleempje waar ik niet uit kom
In een veld in een actief formulier staat een waarde hier mee wil ik mee werken. Echter als het veld leeg is loopt de code vast.
Voorbeeld:
fotonr = Me.fnv
Name fotonr As fotonr&”1”
DoCmd.Close acForm, "test”

Als Me.fnv gevuld is loopt de code, als deze leeg is zou deze moeten gaan naar close acForm
Heeft iemand een tip?

BVD

Fred

 

[OctaFish]

Je kan natuurlijk (flauwe oplossing..) On Error Resume Next erboven kunnen zetten.
Of met een IF de waarde van Me.fnv uitlezen, en met Nz een waarde geven als hij leeg is.

Iets als:

fotonr = Nz(Me.fnv,0)
If fotonr > 0 then
     Name fotonr As fotonr&”1” 
End If
DoCmd.Close acForm, "test”

 

[snb]

if fnv <>"" then Name fnv As fnv &”1” 
DoCmd.Close acForm, "test

 

[fredvanhezel]

Dank u

alle begin is moeilijk,
bedankt voor de oplossing de not zerro variant werkte meteen.

Fred:thumb: