Une autre façon de Sélection Multiple élégante

Version imprimable

2 pièce(s) jointe(s)

Bonsoir membres du forum !
Heureux de vous retrouver !
Je reviens avec une autre manche de Sélection Multiple (élégante).
Capture d’erreur:

Code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub cmdInitialiser_Click()
On Error GoTo OUMAR
If IsNull(Me.IdentifEtablissement) Or Me.IdentifEtablissement = "" Then
    If MsgBox("Selectionnez le Nom de l'ETABLISSEMENT!", vbOKOnly, "ENTREZ LES PARAMETRES") = vbCancel Then Exit Sub
  End If
If IsNull(Me.ANNEE_SCOL) Or Me.ANNEE_SCOL = "" Then
    If MsgBox("Selectionnez le Nom de l'ANNEE_SCOL!", vbOKOnly, "ENTREZ LES PARAMETRES") = vbCancel Then Exit Sub
  End If
 
If IsNull(Me.CocherArticleAchete) Or Me.CocherArticleAchete = 0 Then
    If MsgBox("Cochez la boîte CocherArticleAchete !", vbOKOnly, "ENTREZ LES PARAMETRES") = vbCancel Then Exit Sub
  End If
 
If Not IsNull(Me.IdentifEtablissement) And Not IsNull(Me.ANNEE_SCOL) And Me.CocherArticleAchete = -1 Then
    DoCmd.SetWarnings False
    AjouterArticles Me.IdentifEtablissement, Me.ANNEE_SCOL
    Me.CocherArticleAchete = ""
    Me.Requery
    DoCmd.SetWarnings True
End If
Exit Sub
OUMAR:
    MsgBox err.description, vbExclamation + vbOKOnly, err.Number
 
End Sub
 
Sub AjouterArticles(idEtab As Long, AnSco As String)
On Error GoTo OUMAR
Dim BD As Database
Dim RS As Recordset
Dim sql As String
Set BD = CurrentDb
DoCmd.SetWarnings False
 
sql = "select * from [ArticlesScolairesEnregistres] where ANNEE_SCOL = '" & AnSco & "' and IdentifEtablissement = " & idEtab & " order by NumEnregistreArticle ;"
Set RS = BD.OpenRecordset(sql)
With RS
    If .EOF Then
    Else
        .MoveFirst
        Do While Not .EOF
        sql = "INSERT INTO [ArticlesScolairesEnregistres_Achetes] VALUES(" & f_ArticlesScolairesEnregistres_Achetes() + 1 & ",'" & idEtab & "," & Me.ANNEE_SCOL & "'," & .Fields("ARTICLES_SCOL") & "'," & PrixAchatArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & ", " & RamenerAuteurSelonTbl_ArticlesSolaires(Me.IdentifEtablissement, .Fields("AuteurArtScol")) & "," & PrixVenteArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & ",Date(),'Non','');"
        DoCmd.RunSQL sql
        .MoveNext
        Loop
    End If
End With
 
DoCmd.SetWarnings True
Exit Sub
OUMAR:
MsgBox err.description, vbExclamation, err.Number
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Function PrixAchatArticlesScolaires(anco As String, etb As Long, NumArt As Long) As Double
Dim BD As Database
Dim R As Recordset
Dim sql As String
 
Set BD = CurrentDb
sql = "select * from [ArticlesScolairesEnregistres] where ANNEE_SCOL = '" & anco & "' and IdentifEtablissement = " & etb & "and ARTICLES_SCOL = " & NumArt & ";"
Set R = BD.OpenRecordset(sql)
With R
    If Not .EOF Then
    PrixAchatArticlesScolaires = .Fields("PRIX_ACHAT")
    Else
    PrixAchatArticlesScolaires = 0
    End If
End With
End Function
 
Function PrixVenteArticlesScolaires(AnSco As String, idEtab As Long, NumArt As Long) As Double
Dim BD As Database
Dim R As Recordset
Dim sql As String
 
Set BD = CurrentDb
sql = "select * from [ArticlesScolairesEnregistres] where ANNEE_SCOL = '" & AnSco & "' and IdentifEtablissement = " & idEtab & "and ARTICLES_SCOL = " & NumArt & ";"
 
Set R = BD.OpenRecordset(sql)
With R
    If Not .EOF Then
    PrixVenteArticlesScolaires = .Fields("PRIX_VENTE")
    Else
    PrixVenteArticlesScolaires = 0
    End If
End With
End Function
 
'Fonction ramenant l'auteur
'Selon la Table Tbl_ArticlesSolaires
Public Function RamenerAuteurSelonTbl_ArticlesSolaires(etab As Long, idXArti As Long) As String
On Error GoTo MOROBABOUMAR
If IsNull(idXArti) Then Exit Function
Dim db As Database
Dim rst As Recordset
Dim sql As String
    Set db = CurrentDb
    sql = "select * from Tbl_ArticlesSolaires where NUM_ARTI_SCOL = " & idXArti & " order by DateEnregistrement desc ;"
    Set rst = db.OpenRecordset(sql)
    If Not rst.EOF Then
        RamenerAuteurSelonTbl_ArticlesSolaires = Trim(rst.Fields("Auteur"))
    Else
        RamenerAuteurSelonTbl_ArticlesSolaires = ""
    End If
Exit Function
MOROBABOUMAR:
    MsgBox "Erreur n° " & err.Number & vbCrLf & err.description, vbCritical + vbOKOnly, "Une erreur est survenue"
End Function

Objectif: Transfert de données d'une table à une autre par le biais de 2 formulaires.

Piece jointe

Cordialement.

14/03/2019, 02h09
tee_grandbois
bonsoir,
il faut revoir cette partie de code

Code:

sql = "INSERT INTO [ArticlesScolairesEnregistres_Achetes] VALUES(" & f_ArticlesScolairesEnregistres_Achetes() + 1 & ",'" & idEtab & "," & Me.ANNEE_SCOL & "'," & .Fields("ARTICLES_SCOL") & "'," & PrixAchatArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & ", " & RamenerAuteurSelonTbl_ArticlesSolaires(Me.IdentifEtablissement, .Fields("AuteurArtScol")) & "," & PrixVenteArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & ",Date(),'Non','');"

car lorsqu'on édite le contenu du sql voici ce qu'on obtient:
Code:

1 2 ?sql INSERT INTO [ArticlesScolairesEnregistres_Achetes] VALUES(734,'1,2014-2015',31',550, 2,700,Date(),'Non','');
1) il faut préciser le nom des champs pour chaque valeur insérée et dans l'ordre des valeurs:

Code:

INSERT INTO [ArticlesScolairesEnregistres_Achetes] (champ1,champ2,...champ10)

2) il manque des apostrophes dans cette partie de l'expression générée:

Code:

VALUES(734,'1','2014-2015','31',550, 2,700,Date(),'Non','');

3) un booléen (Oui/Non) s'alimente avec -1 ou 0 et pas avec 'Oui' ou 'Non'

Code:

VALUES(734,'1','2014-2015','31',550, 2,700,Date(),0,'');
14/03/2019, 14h10
morobaboumar

1 pièce(s) jointe(s)

Bonjour membres du forum,
bonjour tee_grandbois,
J-ai essayé d'améliorer la ligne de code

Code:

sql = "INSERT INTO ArticlesScolairesEnregistres_Achetes(ARTICL_SCO_EnrAchete, AuteurArtScol,Montant_ACHAT,Montant_VENTE) VALUES(f_ArticlesScolairesEnregistres_Achetes() + 1," & idEtab & ";" & Me.ANNEE_SCOL & "'," & .Fields("ARTICLES_SCOL") & "'," & PrixAchatArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & ", " & RamenerAuteurSelonTbl_ArticlesSolaires(Me.IdentifEtablissement, .Fields("AuteurArtScol")) & "," & PrixVenteArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & ""

Message d'erreur:
Pièce jointe 457903

A+
14/03/2019, 15h37
morobaboumar

1 pièce(s) jointe(s)

Salut membres du forum;
salut tee_grandbois,
une 2e d'amélioration de la ligne de code

Code:

sql = "INSERT INTO ArticlesScolairesEnregistres_Achetes(ARTICL_SCO_EnrAchete, AuteurArtScol,Montant_ACHAT,Montant_VENTE) VALUES(f_ArticlesScolairesEnregistres_Achetes() + 1," & Me.IdentifEtablissement & ",'" & Me.ANNEE_SCOL & "'," & .Fields("ARTICLES_SCOL") & ",'" & PrixAchatArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & "," & RamenerAuteurSelonTbl_ArticlesSolaires(Me.IdentifEtablissement, .Fields("AuteurArtScol")) & "," & PrixVenteArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & ""

Message d'erreur:
Pièce jointe 457943

Cordialement.
14/03/2019, 19h26
morobaboumar

1 pièce(s) jointe(s)

Salut membres du forum !

Code:

sql = "INSERT INTO ArticlesScolairesEnregistres_Achetes(NumVente_Fourn_Scol,Etabissement_NO,anneescol,ARTICL_SCO_EnrAchete, AuteurArtScol,Montant_ACHAT,Montant_VENTE) VALUES(f_ArticlesScolairesEnregistres_Achetes() + 1," & Me.IdentifEtablissement & ",'" & Me.ANNEE_SCOL & "'," & .Fields("ARTICLES_SCOL") & ",'" & PrixAchatArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & "," & RamenerAuteurSelonTbl_ArticlesSolaires(Me.IdentifEtablissement, .Fields("AuteurArtScol")) & "," & PrixVenteArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & "" 'VALUES(734,'1','2014-2015','31',550, 2,700,Date(),0,'');

Message d'Erreur
Pièce jointe 458018
Sans votre aide, je trouve que je ne puis aller plus loin car concernant les apostrophes au niveau de codes, j'ai beaucoup de difficultés.
Cordialement.
14/03/2019, 22h51
morobaboumar

1 pièce(s) jointe(s)

Salut membres du forum !
Cette ligne de code marche:

Code:

sql = "INSERT INTO ArticlesScolairesEnregistres_Achetes(NumVente_Fourn_Scol,Etabissement_NO,anneescol,ARTICL_SCO_EnrAchete, AuteurArtScol,Montant_ACHAT,Montant_VENTE,Date_V) VALUES(" & f_ArticlesScolairesEnregistres_Achetes() + 1 & ", '" & Me.IdentifEtablissement & ", " & Me.ANNEE_SCOL & "'," & .Fields("ARTICLES_SCOL") & "," & PrixAchatArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & ", " & RamenerAuteurSelonTbl_ArticlesSolaires(Me.IdentifEtablissement, .Fields("AuteurArtScol")) & "," & PrixVenteArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & ",Date(),'');" 'VALUES(734,'1','2014-2015','31',550, 2,700,Date(),0,'');

mais avec des erreurs après d'insertion de données notamment les champs:
Etabissement_NO, anneescol;NumInsCriptEleve; Mleeleve

Pièce jointe 458026

ensuite, plus de 100 enregistrements sont insérés dans la table "ArticlesScolairesEnregistres_Achetes"
alors que seuls ceux de l’élève affiché devraient y être insérés.

Quelle solution ?

Cordialement.

bonsoir,

Citation:

Sans votre aide, je trouve que je ne puis aller plus loin car concernant les apostrophes au niveau de codes, j'ai beaucoup de difficultés.
Cordialement.

les apostrophes, tu dois les mettre avant et après chaque valeur texte ou date, ce n'est pas obligatoire pour les nombres, sauf si ils peuvent contenir des décimales.
Et pour y voir plus clair, tu mets une valeur par ligne comme cela tu verras mieux si il manque une apostrophe.
Il ne faut pas non plus oublier le souligné "_" qui est le caractère de continuation d'une ligne dans VBA:
Code:

1 2 3 4 5 6 7 8 9 10 sql = "INSERT INTO ArticlesScolairesEnregistres_Achetes " _ & "(NumVente_Fourn_Scol,Etabissement_NO,anneescol,ARTICL_SCO_EnrAchete, AuteurArtScol,Montant_ACHAT,Montant_VENTE) VALUES(" _ & f_ArticlesScolairesEnregistres_Achetes() + 1 & "," _ & Me.IdentifEtablissement & "," _ & "'" & Me.ANNEE_SCOL & "'," _ & .Fields("ARTICLES_SCOL") & "," _ & PrixAchatArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & "," _ & RamenerAuteurSelonTbl_ArticlesSolaires(Me.IdentifEtablissement, .Fields("AuteurArtScol")) & "," _ & PrixVenteArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) _ & ");"

1 pièce(s) jointe(s)

Bonsoir tee_grandbois !
Effectivement votre code marche.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 sql = "INSERT INTO ArticlesScolairesEnregistres_Achetes " _ & "(NumVente_Fourn_Scol,Etabissement_NO,anneescol,NumInsCriptEleve,Mleeleve,ARTICL_SCO_EnrAchete, Montant_ACHAT,AuteurArtScol,Montant_VENTE) VALUES(" _ & f_ArticlesScolairesEnregistres_Achetes() + 1 & "," _ & Me.IdentifEtablissement & "," _ & "'" & Me.ANNEE_SCOL &é "'," _ & Me.tXT_NumInsCrEl & "," _ & Me.Txt_MleEleve_SF & "," _ & .Fields("ARTICLES_SCOL") & "," _ & PrixAchatArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & "," _ & RamenerAuteurSelonTbl_ArticlesSolaires(Me.IdentifEtablissement, .Fields("AuteurArtScol")) & "," _ & PrixVenteArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) _ & ");"
S'il vous plait j'avais souligné une remarque:

Citation:

ensuite, plus de 100 enregistrements sont insérés dans la table "ArticlesScolairesEnregistres_Achetes"
alors que seuls ceux de l’élève affiché devraient y être insérés.

Pièce jointe 458038

Quelle solution ?

Citation:

Je voudrais dire aussi seuls les articles cochés pour l'elève affiché, doivent être insérés dans la table d'achat

Comment procéder ?
Cordialement.

15/03/2019, 11h33
morobaboumar

COMMENT TRANSFERER SEULEMENT LES DONNEES SELECTIONNEES D'UNE TABLE VERS UNE AUTRE TABLE ACCESS ?

Bonjour tee_grandbois !

Comment transférer seulement les données sélectionnées (cochées) de la case à cocher CocherArticleAchete de la table ArticlesScolairesEnregistres dans la table ArticlesScolairesEnregistres_Achetes ?

Citation:

S'il vous plait j'avais souligné une remarque:
ensuite, plus de 100 enregistrements sont insérés dans la table "ArticlesScolairesEnregistres_Achetes"
alors que seuls ceux de l’élève affiché devraient y être insérés.
Quelle solution ?
Je voudrais dire aussi seuls les articles cochés pour l'elève affiché, doivent être insérés dans la table d'achat

Cordialement.

bonjour morababoumar,

Citation:

Comment transférer seulement les données sélectionnées (cochées) de la case à cocher CocherArticleAchete de la table ArticlesScolairesEnregistres dans la table ArticlesScolairesEnregistres_Achetes ?

peut-être en précisant dans la requête qu'il ne faut prendre que ceux qui sont cochés:
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub AjouterArticles(idEtab As Long, AnSco As String) On Error GoTo OUMAR Dim BD As Database Dim RS As Recordset Dim sql As String Set BD = CurrentDb DoCmd.SetWarnings False sql = "select * from [ArticlesScolairesEnregistres] where ANNEE_SCOL = '" & AnSco & "' and IdentifEtablissement = " & idEtab & " and CocherArticleAchete order by NumEnregistreArticle ;" Set RS = BD.OpenRecordset(sql) ...

Remerciement

Bonsoir membres du forum,
Bonsoir tee_grandbois !
Merci infiniment!
Voici le code complet:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub AjouterArticles(idEtab As Long, Ansco As String)
On Error GoTo OUMAR
Dim BD As Database
Dim RS As Recordset
Dim sql As String
Set BD = CurrentDb
DoCmd.SetWarnings False
 
sql = "select * from [ArticlesScolairesEnregistres] where ANNEE_SCOL = '" & Ansco & "' and IdentifEtablissement = " & idEtab & " and CocherArticleAchete order by NumEnregistreArticle ;"
Set RS = BD.OpenRecordset(sql)
 
Set RS = BD.OpenRecordset(sql)
With RS
    If .EOF Then
    Else
        .MoveFirst
        Do While Not .EOF
   sql = "INSERT INTO ArticlesScolairesEnregistres_Achetes " _
    & "(NumVente_Fourn_Scol,Etabissement_NO,anneescol,NumInsCriptEleve,Mleeleve,ARTICL_SCO_EnrAchete, Montant_ACHAT,AuteurArtScol,Montant_VENTE) VALUES(" _
    & f_ArticlesScolairesEnregistres_Achetes() + 1 & "," _
    & Me.IdentifEtablissement & "," _
    & "'" & Me.ANNEE_SCOL & "'," _
    & Me.tXT_NumInsCrEl & "," _
    & Me.Txt_MleEleve_SF & "," _
    & .Fields("ARTICLES_SCOL") & "," _
    & PrixAchatArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) & "," _
    & RamenerAuteurSelonTbl_ArticlesSolaires(Me.IdentifEtablissement, .Fields("AuteurArtScol")) & "," _
    & PrixVenteArticlesScolaires(Me.ANNEE_SCOL, Me.IdentifEtablissement, .Fields("ARTICLES_SCOL")) _
    & ");"
 '
        DoCmd.RunSQL sql
        .MoveNext
        Loop
    End If
End With
 
DoCmd.SetWarnings True
 
    Forms("FrmEnregistreCmdeArticlesScol_Divers").ArticlesScolairesEnregistres_Achetes_SF_Plus.Requery
 
Exit Sub
OUMAR:
MsgBox err.description, vbExclamation, err.Number
End Sub

Merci infiniment à toute la famille developpez.net .
Cordialement.