VBA DLookup error: "you have canceled a previous operation"

[allstar45]

so, this is my code:


Private Sub Command8_Click()
Dim nameInput As String
Dim noomber As Variant
'Prevent Blank DB entrys.
If Not (Forms!frmInputLO.txtName = "") Then

Forms!frmInputLO.txtName.SetFocus
nameInput = Forms!frmInputLO.txtName

noomber = DLookup("name", "tblLOs", "name = nameInput") 'ERROR COMES ON THIS LINE

If Not (noomber = Null) Then
code...
Else
MsgBox "That Learning Objective already exists."


End If


Else
MsgBox "Please give the Learning Objective a name."
End If
End Sub


The goal of this is to check to see if a record already exists before adding a new one.
I'm pretty sure I'm using DLookup wrong, but I can not figure out how..

Thanks

[irish634]

Try this: DLookup("[name]", "tblLOs", "name=" & nameInput)

[allstar45]

that did not work either, I might add that using the expression:
noomber = DLookup("name", "tblLOs", "name = 'thingie'")
works, and returns Null (there is no 'thingie' in the names)

noomber = DLookup("name", "tblLOs", "name = 'Ted'")
works, and returns "Ted" (there is a 'Ted' in the names)

BUT
noomber = DLookup("name", "tblLOs", "name = " & nameInput)
gives the "cancelled a previous operation" error

[irish634]

that did not work either, I might add that using the expression:
noomber = DLookup("name", "tblLOs", "name = 'thingie'")
works, and returns Null (there is no 'thingie' in the names)

noomber = DLookup("name", "tblLOs", "name = 'Ted'")
works, and returns "Ted" (there is a 'Ted' in the names)

BUT
noomber = DLookup("name", "tblLOs", "name = " & nameInput)
gives the "cancelled a previous operation" error

Try it without a space between name and =
DLookup("[name]", "tblLOs", "name= " & nameInput)

Also try: DLookup("[name]", "tblLOs","[name] = '" & nameInput & "'")

(Watch brackets and spaces)

[orange]

Also, this statement

If Not (noomber = Null) Then is incorrect

There is nothing = Null. Null is unKnown

You test with If(IsNull(noomber)) then...

[allstar45]

Thanks for the input