if's - End if's blocks and errors (1 Viewer)

[sonny123]

i'm a bit confused with If's and end if, I am quite new to access and VBA so perhaps im missing the bleeding obvious

I have discovered (i think) that If a condition is met and I only want to do one thing , i only need If/then
but if I want to do more than one thing when a condition is met I need an 'end if'

basically I want to set three fields in a form when a button is pressed
but i only want to set them if the value of one of those fields is Null.


Ive tried a few things syntax wise but keep getting "block" errors ???

here is what I have

Private Sub GetNumbers_Click()

If Me![thisNumber] = Null Then
[INDENT]Me![thisNumber] = Nz(DMax("[TNumber]", "[Main]"), 0) + 1
Me![concatentaedRef] = Me![thisNumber] & Me![Suffix]
Me![OtherNumber] = Nz(DMax("[TOtherNumber]", "[Main]", "[TDateEntered] = #" & Forms!Main!DateEntered & "# "), 0) + 1[/INDENT]
End If

End Sub

please point me in the right direction

 

[boblarson]

Private Sub GetNumbers_Click()
 
    If IsNull(Me![thisNumber]) Then
 
        Me![thisNumber] = Nz(DMax("[TNumber]", "[Main]"), 0) + 1
 
        Me![concatentaedRef] = Me![thisNumber] & Me![Suffix]
 
        Me![OtherNumber] = Nz(DMax("[TOtherNumber]", "[Main]", "[TDateEntered] = #" & Forms!Main!DateEntered & "#"), 0) + 1
 
    End If
 
End Sub

 

[missinglinq]

As to youe confusion, yes, when an If...Then construct can be written on a single line, such as

[B]If[/B] Me.Dessert = "Pie" [B]Then[/B] Me.Filling = "apple"

the End If is omitted.

If the construct requires more than one line, such as the code Bob gave you, it has to have the End If statement.

[B]If[/B] Me.Dessert = Pie" [B]Then[/B] 
  Me.Filling = "apple" 
  Me.Crust = "Thin"
[B]End If[/B]

Linq ;0)>

 

[sonny123]

thanks very much

it looks like my syntax; in respect of the way I was saying "If the value = null"
rather than saying If isNull(the value i'm referring to) then
do this
do that
end the If block

time for some more experiments

 

[sonny123]

Yay! that works nicely
thanks very much....

BTW I still cannot find a 'mark thread solved' thingy any where????

 

[boblarson]

BTW I still cannot find a 'mark thread solved' thingy any where????

There isn't one, so don't worry about it