Apertura maschera se dato presente

[sergran]

Hello, through code
[code]
If Not IsNull (Me.cmbCd) Then
DoCmd.OpenForm "Recensione_personale" acNormal, "", "[IdCd] = [Forms]! [Recensione_personale]! [CmbCd]," acEdit, acNormal
end If
[code]
I get that it opens a mask. I wish they would not open if it is not present in the data table "recensione_personale"


thanks
Hello

[pbaldy]

You can test with DCount(), and only open if the result is greater than 0.

[sergran]

Hello, I carry the modified file that might be useful to altri.Hello

[pbaldy]

Not sure if that's a question? You're not using code, so in a macro the DCount() would be in the Condition.

[sergran]

Carry the code used


As Variant Dim MioTitolo


MioTitolo = DLookup ("[recensione_personale]", "lista_cd", "[idcd] =" _
& "'" & Forms! Ricerca_cd! Lista.Column (0) & "'")
If Not IsNull (Me.lista) And Len (MioTitolo)> 0 Then
DoCmd.OpenForm "Recensione_personale" acNormal, "", "[Title] = [Forms]! [Ricerca_cd]!
[List]," acEdit, acNormal
else
Exit Sub
'MsgBox "No personal review", vbInformation, "..: Warning: .."
end If

[pbaldy]

Is there a question? In the sample, there are no records in that listbox to test on.

[sergran]

I needed that selecting a list, it opened a mask only if the text field of the text contained connected