Discussion :

[wulfram]

Bonjour,
Je suis en train d'essayer de rendre fonctionnel un bouton de commande qui servira(i) à créer de nouveaux enregistrements dans des tables différentes selon des critères choisis par l'utilisateur.
Dans ces tables devront être renseignés 2, 3 ou 5 champs selon les critères sus-cités.
malheureusement, je n'arrive pas à effectuer ces enregistrements : j'obtiens toujours la même erreure, à savoir "impossible de trouver le champ 'l' auquel il est fait référence dans votre expression"
Je n'ai effectivement aucun champ de ce nom, et j'ai pris garde à n'avoir aucun " ' " ou " " " .
J'ai essayé de passer par ControlSource, ou en affectant directement une valeur à un champ, sans résultat ; je ne dois pas utiliser la bonne méthode...
A tout hasard, voici mon code, présentant différents essais, que j'ai bien sur effectués séparément :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub BtnAjout_Click()
Dim Clean As String
Dim Caté As String
Dim SCat As String
Dim Spéc As String
Dim Soci As String
Dim Datt As String
On Error GoTo Err_BtnAjout_Click
 
If BtnAjout.Caption = "Ajouter une documentation" Then
   Caté = cboCatégorie
   SCat = cboSCatégorie
   Spéc = cboSpécialité
   Soci = StrConv((Replace(txtajout, Chr(39), " ")), vbUpperCase)
   Datt = Me.txtAjoutDate
 
   Forms!FrmRecherche.RecordSource = "DOCS"
   MsgBox (Caté)
   DoCmd.GoToRecord , , acNewRec
   MsgBox (Caté)
   [DOCS].Catégorie = Caté
   MsgBox (Caté)
   Me.cboSCatégorie.ControlSource = [DOCS].SCatégorie
   Me.cboSpécialité.ControlSource = [DOCS].[Spécialité]
   Me.txtajout.ControlSource = DOCS.Société
   Me.txtAjoutDate.ControlSource = [DOCS]![Date]
End If
 
   DoCmd.GoToRecord , , acNewRec
 
Exit_BtnAjout_Click:
   Exit Sub
 
Err_BtnAjout_Click:
   MsgBox Err.Description
   Resume Exit_BtnAjout_Click
 
End Sub

(Il n'y a là le code que pour une des combinaison de critères)
Quelqu'un aurait une piste de recherche à me proposer ?

[wulfram]

Je n'arrive toujours pas à résoudre mon problème, par contre j'ai le même message d'erreur (Impossible de trouver le champs '|' auquel il est fait allusion dans votre expression) avec ce code (tiré de la FAQ):

Code :

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

1
2
3
 
Private Sub lstresults_DblClick(Cancel As Integer)
DoCmd.OpenForm "FrmAjoutDoc", acNormal, , [Société] = "Me.lstresults

Par contre j'ai une nouvelle piste de recherche grace à un autre post, avec les commandes CurrentDb... A voir.

[edit : ça à l'air tendu les recordset toussa, utiliser insert into aussi, plus que d'après le tuto SQL appliqué à Accès²
]

[schwarzy2]

salut,
est-ce que tu es sûr que ce n'est pas une histoire de type de variable?
pour ouvrir un formulaire avec un lien, j'utilise cette syntaxe là, s'il s'agit de champs String, or c'est ton cas(si j'ai bien tout suivi) et tu n'as pas utilisé cette syntaxe...

Code :

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

DoCmd.OpenForm "choix_article", , , "[Référence_marché]=" & "'" & Me![ref_marche] & "'"

pour être sûr de ton coup ce que tu peux faire c'est tout simplement faire ton code non pas à la main, mais avec l'assistant Access, sur un bouton de commande en demandant l'ouverture d'un formulaire avec un critère, pour vérifier ta syntaxe...
à +
schwarzy2

[wulfram]

Hmm oui, ça aide plutôt pas mal, merci.
Il faudra vraiment que je me trouve une explication sur l'utilisation des signes genre ", ', &,... leur logique d'imbrication, toussa.