Requéte SQL base access [débutant]
adrix69
Messages postés
6
Date d'inscription
mardi 6 juin 2006
Statut
Membre
Dernière intervention
21 avril 2009
-
6 juin 2006 à 10:53
adrix69 Messages postés 6 Date d'inscription mardi 6 juin 2006 Statut Membre Dernière intervention 21 avril 2009 - 6 juin 2006 à 16:10
adrix69 Messages postés 6 Date d'inscription mardi 6 juin 2006 Statut Membre Dernière intervention 21 avril 2009 - 6 juin 2006 à 16:10
A voir également:
- Requéte SQL base access [débutant]
- Requete paramétrée sql - Conseils pratiques -C# / .NET
- Requête sql like plusieurs valeurs - Forum SQL
- Requete sql between ✓ - Forum SQL
- Syntaxe requête sql pour recherche entre deux dates ✓ - Forum VB.NET
- Problème requete SQL date between ✓ - Forum Visual Basic 6
3 réponses
adrix69
Messages postés
6
Date d'inscription
mardi 6 juin 2006
Statut
Membre
Dernière intervention
21 avril 2009
6 juin 2006 à 11:44
6 juin 2006 à 11:44
voici le nouveau code
Private Sub Commande27_Click()
On Error GoTo Err_Commande27_Click
Dim SQL As String
Dim nspCmd As String
Dim gsiCmd As String
Dim gedasCmd As String
Dim laspCmd As String
Dim opacCmd As String
'
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "Formulaire des procédures"
' If Me.ref_logiciel 1 And Me.Choix_tous False Then
nspCmd = 0
gsiCmd = 0
gedasCmd = 0
laspCmd = 0
opacCmd = 0
SQL = "SELECT procedure.procedure, procedure.ref_logiciel, procedure.ref_type, procedure.result_att, procedure.titre, procedure.result_obt, procedure.conclusion, procedure.refpro FROM [procedure] WHERE (((procedure.ref_logiciel)='1'))"
If Me.Choix_nsp Then SQL SQL & "Or procedure!ref_type '*" & nspCmd & "*' "
End If
If Me.Choix_gsi Then SQL SQL & "Or procedure!ref_type '*" & gsiCmd & "*' "
End If
If Me.Choix_opac Then SQL SQL & "Or procedure!ref_type '*" & opacCmd & "*' "
End If
If Me.Choix_lasp Then SQL SQL & "Or procedure!ref_type '*" & laspCmd & "*' "
End If
If Me.Choix_gedas Then SQL SQL & "Or procedure!ref_type '*" & gedasCmd & "*' "
End If
SQL = SQL & ";"
Forms![Formulaire des procédures].RecordSource = SQL
End If
Private Sub Commande27_Click()
On Error GoTo Err_Commande27_Click
Dim SQL As String
Dim nspCmd As String
Dim gsiCmd As String
Dim gedasCmd As String
Dim laspCmd As String
Dim opacCmd As String
'
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "Formulaire des procédures"
' If Me.ref_logiciel 1 And Me.Choix_tous False Then
nspCmd = 0
gsiCmd = 0
gedasCmd = 0
laspCmd = 0
opacCmd = 0
SQL = "SELECT procedure.procedure, procedure.ref_logiciel, procedure.ref_type, procedure.result_att, procedure.titre, procedure.result_obt, procedure.conclusion, procedure.refpro FROM [procedure] WHERE (((procedure.ref_logiciel)='1'))"
If Me.Choix_nsp Then SQL SQL & "Or procedure!ref_type '*" & nspCmd & "*' "
End If
If Me.Choix_gsi Then SQL SQL & "Or procedure!ref_type '*" & gsiCmd & "*' "
End If
If Me.Choix_opac Then SQL SQL & "Or procedure!ref_type '*" & opacCmd & "*' "
End If
If Me.Choix_lasp Then SQL SQL & "Or procedure!ref_type '*" & laspCmd & "*' "
End If
If Me.Choix_gedas Then SQL SQL & "Or procedure!ref_type '*" & gedasCmd & "*' "
End If
SQL = SQL & ";"
Forms![Formulaire des procédures].RecordSource = SQL
End If
cs_molo molo
Messages postés
55
Date d'inscription
lundi 14 novembre 2005
Statut
Membre
Dernière intervention
23 juin 2008
6 juin 2006 à 15:07
6 juin 2006 à 15:07
Salut,
Comme ça je vois une erreur :
Ta condition WHERE n'existe plus dans ton OR, et ça c'est pas bien
SQL="Select * From Procedure
SQL=SQL & " Where procedure.reflogiciel=1
SQL=SQL & " And procedure.ref_type = '*" & nspCmd & "*' "
SQL=SQL & " OR procedure.reflogiciel=1
SQL=SQL & " And procedure.ref_type = '*" & gsiCmd & "*' "
etc...
cela marche comme ça !
bye
Comme ça je vois une erreur :
Ta condition WHERE n'existe plus dans ton OR, et ça c'est pas bien
SQL="Select * From Procedure
SQL=SQL & " Where procedure.reflogiciel=1
SQL=SQL & " And procedure.ref_type = '*" & nspCmd & "*' "
SQL=SQL & " OR procedure.reflogiciel=1
SQL=SQL & " And procedure.ref_type = '*" & gsiCmd & "*' "
etc...
cela marche comme ça !
bye
adrix69
Messages postés
6
Date d'inscription
mardi 6 juin 2006
Statut
Membre
Dernière intervention
21 avril 2009
6 juin 2006 à 16:10
6 juin 2006 à 16:10
Voila mon code qui marche mais maintenant j'ai un nouveau probleme, j'aimerais ouvrir un etat avec la requéte SQL qui est généré dans ce code, comment faire svp??
<hr />
Private Sub Commande27_Click()
On Error GoTo Err_Commande27_Click
Dim SQL As String
Dim cmd As Boolean
'
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "Formulaire des procédures"
' If Me.ref_logiciel 1 And Me.Choix_tous False Then
SQL = "SELECT procedure.procedure, procedure.ref_logiciel, procedure.ref_type, procedure.result_att, procedure.titre, procedure.result_obt, procedure.conclusion, procedure.refpro FROM [procedure] WHERE (((procedure.ref_logiciel)='1'))"
cmd = False
If Me.Choix_nsp Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '2'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '2'"
End If
End If
If Me.Choix_gsi Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '1'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '1'"
End If
End If
If Me.Choix_opac Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '5'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '5'"
End If
End If
If Me.Choix_lasp Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '4'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '4'"
End If
End If
If Me.Choix_gedas Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '3'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '3'"
End If
End If
If cmd = True Then
SQL = SQL & ")"
End If
SQL = SQL & ";"
Forms![Formulaire des procédures].RecordSource = SQL
End If
'
Exit_Commande27_Click:
Exit Sub
Err_Commande27_Click:
MsgBox Err.Description
Resume Exit_Commande27_Click
End Sub
<hr />
<hr />
Private Sub Commande27_Click()
On Error GoTo Err_Commande27_Click
Dim SQL As String
Dim cmd As Boolean
'
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "Formulaire des procédures"
' If Me.ref_logiciel 1 And Me.Choix_tous False Then
SQL = "SELECT procedure.procedure, procedure.ref_logiciel, procedure.ref_type, procedure.result_att, procedure.titre, procedure.result_obt, procedure.conclusion, procedure.refpro FROM [procedure] WHERE (((procedure.ref_logiciel)='1'))"
cmd = False
If Me.Choix_nsp Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '2'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '2'"
End If
End If
If Me.Choix_gsi Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '1'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '1'"
End If
End If
If Me.Choix_opac Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '5'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '5'"
End If
End If
If Me.Choix_lasp Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '4'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '4'"
End If
End If
If Me.Choix_gedas Then
If cmd = True Then SQL SQL & " Or procedure.ref_type '3'"
Else
cmd = True SQL SQL & " And (procedure.ref_type '3'"
End If
End If
If cmd = True Then
SQL = SQL & ")"
End If
SQL = SQL & ";"
Forms![Formulaire des procédures].RecordSource = SQL
End If
'
Exit_Commande27_Click:
Exit Sub
Err_Commande27_Click:
MsgBox Err.Description
Resume Exit_Commande27_Click
End Sub
<hr />
