troubleshooting Question

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

Avatar of Giulio Benvenuti
Giulio BenvenutiFlag for Italy asked on
VBA* Access 2019Microsoft Access
2 Comments1 Solution17 ViewsLast Modified:

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:


  1. If [r1] and [r2] are null then " AND DataIncarico BETWEEN #" & [r1] & "# AND #" & [r2] & "#" the value becomes "*"
  2. If [r1] is not null and [r2] is null then "//"  the value is equal to [r1]
  3. If [r2] is not null and [r1] is null then "//" the value is equal to [r2]
  4. 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

Open in new window

ASKER CERTIFIED SOLUTION
Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 2 Comments.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 2 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004