Giulio Benvenuti

<div>
Now it works :) thanks i just added min and max from main tbl <pre><code class="code-10 nolinks" id="code-20-43331659-1">Private Sub cmdOpenRecords_Click()

&nbsp; &nbsp; &nbsp; &nbsp; Dim Date1, Date2, Date3, Date4, Date5, Date6 As String
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Date1 = Format(Nz([r1], [txtMinDataIncarico]), "yyyy\/mm\/dd")
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Date2 = Format(Nz([r2], [txtMaxDataIncarico]), "yyyy\/mm\/dd")
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Date3 = Format(Nz([r3], [txtMinDataSinistro]), "yyyy\/mm\/dd")
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Date4 = Format(Nz([r4], [txtMaxDataSinistro]), "yyyy\/mm\/dd")
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Date5 = Format(Nz([r5], [txtMinDataConsegna]), "yyyy\/mm\/dd")
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Date6 = Format(Nz([r6], [txtMaxDataConsegna]), "yyyy\/mm\/dd")
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; DoCmd.OpenForm "frmMenù", , , "StatoPratica LIKE " &amp; "'*" &amp; [b1] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND TVisita LIKE " &amp; "'*" &amp; [b2] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND UfficioSinistri LIKE " &amp; "'*" &amp; [b3] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND nSinistro LIKE " &amp; "'*" &amp; [b4] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND TValutazione LIKE " &amp; "'*" &amp; [b5] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND Liquidatore LIKE " &amp; "'*" &amp; [b6] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND IDPaziente LIKE " &amp; "'*" &amp; [b7] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND DataIncarico " &amp; IIf(IsNull([r1] &amp; [r2]), "Is Not Null", "Between #" &amp; Date1 &amp; "# And #" &amp; Date2 &amp; "#") &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND DataSinistro " &amp; IIf(IsNull([r3] &amp; [r4]), "Is Not Null", "Between #" &amp; Date3 &amp; "# And #" &amp; Date4 &amp; "#") &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND DataConsegna " &amp; IIf(IsNull([r5] &amp; [r6]), "Is Not Null", "Between #" &amp; Date5 &amp; "# And #" &amp; Date6 &amp; "#")
&nbsp; &nbsp; &nbsp; &nbsp; Forms![frmMenù]![SubFrmListaPratiche].Form.Filter = "StatoPratica LIKE " &amp; "'*" &amp; [b1] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND TVisita LIKE " &amp; "'*" &amp; [b2] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND UfficioSinistri LIKE " &amp; "'*" &amp; [b3] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND nSinistro LIKE " &amp; "'*" &amp; [b4] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND TValutazione LIKE " &amp; "'*" &amp; [b5] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND Liquidatore LIKE " &amp; "'*" &amp; [b6] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND IDPaziente LIKE " &amp; "'*" &amp; [b7] &amp; "*'" &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND DataIncarico " &amp; IIf(IsNull([r1] &amp; [r2]), "Is Not Null", "Between #" &amp; Date1 &amp; "# And #" &amp; Date2 &amp; "#") &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND DataSinistro " &amp; IIf(IsNull([r3] &amp; [r4]), "Is Not Null", "Between #" &amp; Date3 &amp; "# And #" &amp; Date4 &amp; "#") &amp; _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; " AND DataConsegna " &amp; IIf(IsNull([r5] &amp; [r6]), "Is Not Null", "Between #" &amp; Date5 &amp; "# And #" &amp; Date6 &amp; "#")
&nbsp; &nbsp; &nbsp; &nbsp; Forms![frmMenù]![SubFrmListaPratiche].Form.FilterOn = True
&nbsp; &nbsp; &nbsp; &nbsp; 
End Sub
</code></pre>
</div>

<div>
<div class="content wysiwyg-content fr-view">
<div><div class="content wysiwyg-content fr-view">Hello,I want open a form "frmMenù" where [DataIncarico] is a date. If [r1] AND [r2] are null i have something like "BETWEEN ## AND ##".Is possible to change something in this code? I want: <ol><li>If [r1] and [r2] are null then " AND DataIncarico BETWEEN #" &amp; [r1] &amp; "# AND #" &amp; [r2] &amp; "#" the value becomes "*"</li><li>If [r1] is not null and [r2] is null then "//" &nbsp;the value is equal to [r1]</li><li>If [r2] is not null and [r1] is null then "//" the value is equal to [r2]</li><li>If [r1] and [r2] are not null "//" is ok --&gt; BETWEEN [r1] AND [r2]</li></ol> Hello this is the code:<pre><code class="code-10 nolinks" id="code-10-29223182-1">Private Sub&nbsp;cmdOpenRecords_Click()
&nbsp; &nbsp; &nbsp; &nbsp; DoCmd.OpenForm&nbsp;"frmMenù", , ,&nbsp;"StatoPratica&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b1] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;TVisita&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b2] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;UfficioSinistri&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b3] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;nSinistro&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b4] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;TValutazione&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b5] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;Liquidatore&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b6] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;IDPaziente&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b7] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;DataIncarico&nbsp;BETWEEN&nbsp;#"&nbsp;&amp; [r1] &amp;&nbsp;"#&nbsp;AND&nbsp;#"&nbsp;&amp; [r2] &amp;&nbsp;"#"
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; Forms![frmMenù]![SubFrmListaPratiche].Form.Filter&nbsp;=&nbsp;"StatoPratica&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b1] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;TVisita&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b2] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;UfficioSinistri&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b3] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;nSinistro&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b4] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;TValutazione&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b5] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;Liquidatore&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b6] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;IDPaziente&nbsp;LIKE&nbsp;"&nbsp;&amp;&nbsp;"'*"&nbsp;&amp; [b7] &amp;&nbsp;"*'"&nbsp;&amp;&nbsp;_
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;"&nbsp;AND&nbsp;DataIncarico&nbsp;BETWEEN&nbsp;#"&nbsp;&amp; [r1] &amp;&nbsp;"#&nbsp;AND&nbsp;#"&nbsp;&amp; [r2] &amp;&nbsp;"#"
&nbsp; &nbsp; &nbsp; &nbsp; Forms![frmMenù]![SubFrmListaPratiche].Form.FilterOn&nbsp;=&nbsp;True
End&nbsp;Sub
</code></pre></div></div>
</div>
</div>


Hello,
I want open a form "frmMenù" where [DataIncarico] is a date. If [r1] AND [r2] are null i have something like "BETWEEN ## AND ##".
Is possible to change something in this code? I want:
If [r1] and [r2] are null then
" AND DataIncarico BETWEEN #" & [r1] & "# AND #" & [r2] & "#"
the value becomes
"*"
If [r1] is not null and [r2] is null then
"//"
 
the value is equal to [r1]
If [r2] is not null and [r1] is null then
"//"
the value is equal to [r2]
If [r1] and [r2] are not null
"//"
is ok --> BETWEEN [r1] AND [r2]
Hello this is the code:
Private Sub cmdOpenRecords_Click()
        DoCmd.OpenForm "frmMenù", , , "StatoPratica LIKE " & "'*" & [b1] & "*'" & _
                                            " AND TVisita LIKE " & "'*" & [b2] & "*'" & _
                                            " AND UfficioSinistri LIKE " & "'*" & [b3] & "*'" & _
                                            " AND nSinistro LIKE " & "'*" & [b4] & "*'" & _
                                            " AND TValutazione LIKE " & "'*" & [b5] & "*'" & _
                                            " AND Liquidatore LIKE " & "'*" & [b6] & "*'" & _
                                            " AND IDPaziente LIKE " & "'*" & [b7] & "*'" & _
                                            " AND DataIncarico BETWEEN #" & [r1] & "# AND #" & [r2] & "#"
                                            
        Forms![frmMenù]![SubFrmListaPratiche].Form.Filter = "StatoPratica LIKE " & "'*" & [b1] & "*'" & _
                                                            " AND TVisita LIKE " & "'*" & [b2] & "*'" & _
                                                            " AND UfficioSinistri LIKE " & "'*" & [b3] & "*'" & _
                                                            " AND nSinistro LIKE " & "'*" & [b4] & "*'" & _
                                                            " AND TValutazione LIKE " & "'*" & [b5] & "*'" & _
                                                            " AND Liquidatore LIKE " & "'*" & [b6] & "*'" & _
                                                            " AND IDPaziente LIKE " & "'*" & [b7] & "*'" & _
                                                            " AND DataIncarico BETWEEN #" & [r1] & "# AND #" & [r2] & "#"
        Forms![frmMenù]![SubFrmListaPratiche].Form.FilterOn = True
End Sub

DoCmd.OpenForm [...] - Conditions in WHERE

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Access 2019

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.