Aide sur un projet de basse de données.....Help on a data low draft

[patb12]

Bonjour,
J'ai creer un projet de basse de données sous ACCESS 2007, comme j'ai pu mais qui fonctionne.
Dans l'idéal il me faudrait un formulaire multi critères mais la c'est pas si simple.
Mon projet est trop gros pour être poster en pièce jointe, mais je peux donner l'adresse du téléchargement , si quelqu'un pouvais me dire se que qu'il en pense.
Demander en message privé:
Merci.

Hello,
I create a data bass ACCESS project in 2007, as I could but it works.


Ideally I would need a multi criteria form but it is not so simple.
My project is too big to be attached poster, but I can give the address of the download, if someone could tell me what he thinks.
Request private message:
Thank you.

[ranman256]

You cant use form boxes in a query if there's nothing in them..so..
Test all controls for a possible filter then build the where clause.

if not isnull(cboState) then   sWhere = sWhere & " and [state]='" & cboState & "'"
if not IsNull(txtName) then    sWhere = sWhere & " and [Name]='" & txtName & "'"
if not IsNull(chkContact) then sWhere = sWhere & " and [Contact]=" & chkContact.value


    'remove 1st And
if len(sWhere)>0 then sWhere= mid(sWhere,5)


  'just use the filter for a multi row continuous form 


iLen = Len(sWhere) - 5
If iLen <= 0 Then
    me.filterOn = false
Else
    me.filter = sWhere
    me.filterOn = true
End If


   'OR   
   'apply the sql to the form


sSql = "SELECT * FROM tblCompany WHERE " & sWhere