selection multi criteria access and vba

[saralouna]

hey i need ur help please it's my first time working with vba and access and i want to program an access form for multi search i have the type of contract as a combo box if i select type of contrat as "credit IMMO" it displays automatically an other zone of txt,and i need a code that according to the type of contract selected and the other conditions the result of the query have to be inserted in the table destined for this type of contract; i tried this peace of code for the first type of contract but it doesn't work :/ and i'm really sorry for my English :)

Private Sub btselect_Click()
Dim sql As String
Select Case (Me.cmbrechtype)
Case "crédit IMMO"
sql = "Insert Into [Prêts IMMO Part] Values (Select Num_contrat, Num_personne, Num_instruction, Nom_client, catégorie_client,region, groupe, agence, date_debut_contrat, montant_prêt, objet_prêt, résidence_bien,durée_résiduelle, montant_CRD, Encours, Date_mer0, note_personne, moteur_notation From contrat Where type_contrat = 'crédit immo');"
If (Me.txtdatesup <> "") Then
sql = sql & " AND Date_debut_contrat < #" & Me.txtdatesup & "#"
End If
 
If (Me.txtdateinf <> "") Then
sql = sql & " AND Date_debut_contrat > #" & Me.txtdateinf & "#"
End If
 
If (Me.txtnotesup <> "") Then
sql = sql & " AND Note_personne < #" & Me.txtnotesup & "#"
End If
 
If (Me.txtnoteinf <> "") Then
sql = sql & " AND Note_personne > #" & Me.txtnoteinf & "#"
End If
 
If (Me.txtmtsup <> "") Then
sql = sql & " AND Montant_prêt > #" & Me.txtdatesup & "#"
End If
 
If (Me.txtmtinf <> "") Then
sql = sql & " AND Montant_prêt < #" & Me.txtdateinf & "#"
End If
sql = sql & ";"
DoCmd.RunSQL sql
End Select
End Sub

[Seth Schrock]

Please use CODE tags when posting code per Site Rules.

When you set the INSERT part of the SQL variable, you have a semi-colon at the end of that string and then you add criteria later with all your If-Then statements. The semi-colon marks the end of the query in SQL, so having text after that makes the query fail. Remove that semi-colon and it looks like it should work.

[saralouna]

thank you i did what u said but it doesn't work :/ this is what i did

Private Sub btselect_Click()
Dim sql As String
Select Case (Me.cmbrechtype)
Case "crédit IMMO"
sql = "Insert Into [Prêts IMMO Part] Values (Select Num_contrat, Num_personne, Num_instruction, Nom_client, catégorie_client,region, groupe, agence, date_debut_contrat, montant_prêt, objet_prêt, résidence_bien,durée_résiduelle, montant_CRD, Encours, Date_mer0, note_personne, moteur_notation From contrat );"
sql = sql & " Where type_contrat='crédit IMMO'"
 
If (Me.txtdatesup <> "") Then
sql = sql & " AND Date_debut_contrat < #" & Me.txtdatesup & "#"
End If
 
If (Me.txtdateinf <> "") Then
sql = sql & " AND Date_debut_contrat > #" & Me.txtdateinf & "#"
End If
 
If (Me.txtnotesup <> "") Then
sql = sql & " AND Note_personne < #" & Me.txtnotesup & "#"
End If
 
If (Me.txtnoteinf <> "") Then
sql = sql & " AND Note_personne > #" & Me.txtnoteinf & "#"
End If
 
If (Me.txtmtsup <> "") Then
sql = sql & " AND Montant_prêt > #" & Me.txtdatesup & "#"
End If
 
If (Me.txtmtinf <> "") Then
sql = sql & " AND Montant_prêt < #" & Me.txtdateinf & "#"
End If
sql = sql & ";"
DoCmd.RunSQL sql
sql = sql & " AND Date_debut_contrat < #" & Me.txtdatesup & "#"
 
 
End Select
End Sub

[Seth Schrock]

You didn't do what I said because the semicolon is still there. You have (broken up for ease of reading):

sql = "Insert Into [Prêts IMMO Part] 
Values (Select Num_contrat, Num_personne, Num_instruction, 
Nom_client, catégorie_client, region, groupe, agence, 
date_debut_contrat, montant_prêt, objet_prêt, résidence_bien,
durée_résiduelle, montant_CRD, Encours, Date_mer0, 
note_personne, moteur_notation From contrat );"

At the end of this is a semicolon. This needs removed.

I also realized that you don't need the word VALUES when entering from a SELECT query. Also, since you aren't specifying column names, then you need to make sure that you have the proper number of columns being entered into [Prets IMMO Part]. So at this point your query should be

sql = "Insert Into [Prêts IMMO Part] 
Select Num_contrat, Num_personne, Num_instruction, 
Nom_client, catégorie_client, region, groupe, agence, 
date_debut_contrat, montant_prêt, objet_prêt, résidence_bien,
durée_résiduelle, montant_CRD, Encours, Date_mer0, 
note_personne, moteur_notation From contrat