Dcount additional criteria

[luckydead]

How can i manage the dcount to support the second criteria

So i decide to do it like this:

Public Sub CheckTable(ByVal place As String)


If DCount("*", place, " IsNull([ver1_2])=True") > 0 Then
     'table has empty ver1_2 records
     showme = 0
Else
    'do something else - table doesn't have empty records
    showme = 1
End If


End Sub

and here user will input manually the select number:

Sub InputBoxTest()
    inputData = InputBox("What is your select?", "Select ID")
    '
    ' Check to see if any data was entered
    '
    If inputData = "" Then
        '
        ' If so, display it
        '
        'MsgBox inputData
        MsgBox "Please enter some number"
    End If
End Sub

So my question is how i can add inside "If DCount("*", place, " IsNull([ver1_2])=True") > 0 Then" also to search where Select = inputdata



So to become like this:
- search select = inputdata , if its matching with Table data, then search if ver1_2 is null and if it has then do something else other.

[Welshgasman]

Use " AND Select = " & inputdata

[luckydead]

yes i had already try something like that :

If DCount("*", place, "select" = "& inputData &" And " IsNull([ver1_2])=True") > 0 Then

but its not working

[Welshgasman]

NO, you combine the criteria, hence the AND?
Not sure if Select is a reserved word as well, so enclose that with []
Edit: just seen you put that at the front😔
Put it all into a string so you can debug.print it, to see if correct.

[Welshgasman]

Get rid of the last " before the isnull

[luckydead]

i do it like this now:

Public Sub CheckTable(ByVal place As String)


If DCount("*", place, "[select]" = "& inputData & And  IsNull([ver1_2])=True") > 0 Then
     'table has empty ver1_2 records
     showme = 0
Else
    'do something else - table doesn't have empty records
    showme = 1
End If


End Sub

Seems to execute the code, but it gives back return 1 .. but select 3 have missing ver1_2 field.

[Welshgasman]

Is that null though or a zls?

[luckydead]

what do you mean zls?

[Welshgasman]

Zero length string
Does it work for select=1?

[luckydead]

its just empty textbox field

[Welshgasman]

Empty is not null. Test that field to see what it actually is. Confusing I know

[luckydead]

so other option is to change in dcount not to be Null to be = "" ?

[Gicu]

See your original post
https://www.accessforums.net/showthr...589#post477589

[luckydead]

any ideas why it returns 0 always with this criterias ?

If DCount("*", place, "[select]" = "& inputData & And IsNull([ver1_2])=True") > 0 Then

Seems like that it cant get correct information.
Maybe other option to change dcount with other sql query code to get the information:
Select ver1_2 From place Where select= inputdata ,something like that maybe ?

[Gicu]

If DCount("*", place, "[select]" = "& inputData & And IsNull([ver1_2])=True") > 0 Then

You need to look at variable isolation using SQL strings in VBA:
https://docs.microsoft.com/en-us/off...s-and-controls
Could you please try (examine the differences and have a look at the domain aggregate functions syntax)-https://www.datanumen.com/blogs/understand-domain-aggregate-functions-ms-access-explore-practical-applications/:

If DCount("*",place, "[select] = '"& inputData & "' And IsNull([ver1_2])=True") > 0 Then

or as per your other post (https://www.accessforums.net/showthr...613#post477613) if the [select] field is numeric:

If DCount("*",place, "[select] = Cint("& inputData & ") And IsNull([ver1_2])=True") > 0 Then

Cheers,