Discussion :

[jnmab]

Bonjour,

Désolé, mais je crois bien que je vais passer pour un nul.. pas moyen de trouver ça dans le forum, ni dans la FAQ

Je cherche la possibilité de rendre actif dans une table l'enregistrement qui contient un mot particulier.
Par exemple le mot "BLEU" dans le champ "COULEUR"

Je sais accéder à la 25ème ligne d'une table par la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DoCmd.GotoRecord acDataTable, "Nomtable", acGoTo, 25

mais là, je sèche.. quelqu'un pourrait m'aider ?

[keita]

bonjour
Fais une recherche sur les recordsets. ça sera plus souple pour toi; je crois.
@+

[Invité]

Bonjour

Pour information on ne travail jamais directement sur les tables, mais on passe par l'intermédiaire d'un formulaire.

Philippe

[f-leb]

bonjour,

par exemple, sur l’évènement Ouverture du formulaire dépendant de ta table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Open(Cancel As Integer)
Dim rst As DAO.Recordset
Dim ChoixCouleur As Variant
 
ChoixCouleur = InputBox("quelle couleur ?")
 
Set rst = Me.RecordsetClone
rst.FindFirst "COULEUR = '" & ChoixCouleur & "'"
        If Not rst.NoMatch Then
            Me.Bookmark = rst.Bookmark
	Else
        MsgBox ("pas trouvé la couleur " & ChoixCouleur)
        End If
End Sub

[jnmab]

Hum.. merci pour vos réponses...

Reprenons mon exemple (un peu farfelu, ok) de la table des couleurs

J'ai donc une table avec un champ "COULEUR", et de très nombreux enregistrements, tous uniques.

Je demande à l'utilisateur par Intputbox de me préciser la couleur des enregistrements qu'il souhaite isoler.

Je me positionne sur chacun de ces enregistrements, que je copie dans une nouvelle table pour lui expédier par SendObject, et que je supprime illico de ma première table.

On peut faire ça par le biais d'un formulaire ?? je suis volontaire pour prendre des cours..

[f-leb]

Bonjour,

un peu de SQL alors… :

Je me positionne sur chacun de ces enregistrements…

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT champ1, champ2,… 
FROM LaTable 
WHERE Couleur=[Choix couleur ?] ;

… Je me positionne sur chacun de ces enregistrements, que je copie dans une nouvelle table…

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
INSERT INTO LaNouvelleTable (champ1, champ2, …) 
SELECT champ1, champ2,… 
FROM LaTable 
WHERE Couleur=[Choix couleur ?] ;

…et que je supprime illico de ma première table…

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DELETE * 
FROM LaTable 
WHERE Couleur=[Choix couleur ?] ;

Voir aussi dans la FAQ Access:
Comment utiliser la valeur d'une variable vba dans une requête Access ?

[jnmab]

effectivement, c'est basique en SQL.. mais puis-je dans ce cas conserver la couleur en variable ?? sachant que je souhaite donner à ma nouvelle table le nom de cette variable (ici, la couleur)

[tarnx]

En VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Docmd.SetWarnings = False
     'On demande la couleur
strCouleur = InputBox ("Couleur : ")
 
     ' On créer la table avec comme nom la couleur saisie
strSQL = " CREATE TABLE " & strCouleur & "(" & _
             " Champ1 Type " & _
             " ,Champ2 Type....... )  "
Docmd.runSQL strSQL
 
     ' On y insère les enregistrements
strSQL = " INSERT INTO " & strCouleur & " (champ1, champ2, …)  " & _ 
             " SELECT champ1, champ2,…  " & _
             " FROM LaTable  " & _
             " WHERE Couleur = '" & strCouleur  & "'  ; "
Docmd.runSQL strSQL
 
    'Qu'on supprime de l'ancienne table
strSQL = " DELETE FROM LaTable " & _
             " WHERE Couleur = '" & strCouleur & "' ;"
Docmd.runSQL strSQL
 
Docmd.SetWarnings = True

En espérant que ça t'aidera

[jnmab]

Bonjour,

Je n'utilise jamais le SQL à l'intérieur du VBA, et je vois que je passe à côté de quelque chose d'essentiel..

merci beaucoup !