Help with code - need an if null statement

[NikoTheBowHunter]

hi guys, with the help of another user on here I have been able to come up with the following code:



Private Sub Enter_New_Note_Click()
Me.[Notes History] = Format(Date, "mm/dd/yyyy") & " | " & Me.Text138 & "<BR>" & Me.[Notes History]
Me.Text138 = Null
End Sub

Could someone be so kind to write me a "if null cancel else" statement so that if the text box is null it doesn't add a new note? I honestly have no idea how one would code an if statement as coding is beyond my current skill set.

cheers

[CJ_London]

which textbox? Enter_New_Note? Notes History? Text138?

basically the principle would be

if not isnull(name of field to which you are referring) then
    Me.[Notes History] = Format(Date, "mm/dd/yyyy") & "   |   " & Me.Text138 & "<BR>" & Me.[Notes History]
    Me.Text138 = Null
end if

[Bulzie]

And to just give some info, (IF,Then,Else) statements are not really that difficult or mysterious and are used often in VBA code and also in queries. Basically you have a condition that will test for True or False and you can do something if either of those conditions are met and skip the part that is not met. You can also nest IF statements inside each other to do more complex things. If you are going to be working in Access more, it is a good concept to learn.

IF ...condition... Then

(If condition is TRUE, Do something)

Else

(If condition is FALSE, Do something)

End If

[NikoTheBowHunter]

It would be for Text138
thank you both for the information, with that in hand im sure I can get this figured out. if not ill be back

[NikoTheBowHunter]

this was basically suppose to be a simple little database for me and 2 other coworkers so we could update our inventory as needed without having to track it in 3 different spots. this is the first database I have ever created and probably will be the last haha. which really sucks is after all this work, in 6 months it will no longer be needed :/ but never know might convert it over to track something else.

and it seems to work, thanks for the help! heres how it looks:

Private Sub Enter_New_Note_Click()
If Not IsNull(Text138) Then
Me.[Notes History] = Format(Date, "mm/dd/yyyy") & "   |   " & Me.Text138 & "<BR>" & Me.[Notes History]
Me.Text138 = Null
End If
End Sub