Voila comme le nom de la file de discution l'indique , j'ai deux erreurs (le nom est citer plus haut)
Voici mon code:
J'ai deux tables une Produits avec Numero I et numéro S dnas ma table , clé primaire sur Numéro I, l'autre table Produits Non Trouvés avec un seul champ Numéro I Manquant
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 B_Rechercher_Click() On Error GoTo Err_B_Rechercher_Click Dim rec1 As DAO.Recordset Dim rec2 As DAO.Recordset 'ouvre un jeu d'enregistrement correspondant a la TABLE1 Set rec1 = CurrentDb.OpenRecordset("SELECT * FROM Produits") 'ouverture d'un jeu d'enregistrement de ta TABLE2 Set rec2 = CurrentDb.OpenRecordset("SELECT * FROM [Produits Non Trouvés]") 'Cherche dans le champ ID de cette table une valeur identique à celle que tu as tapé dans la textbox id1 rec1.FindFirst "[Numéro I]=Cint('" & Me.cbo_champ & "')" If rec1.NoMatch Then 'S'il ne la trouve pas MsgBox "Inconnu" 'Envoi d'un message 'ajout d'un nouvel enregistrement rec2.AddNew 'Ecris dans le champ ID de la TABLE2 le numéro rentré dans la textbox rec2.Fields("Numéro I Manquant") = Me.cbo_champ 'met a jour TABLE2 rec2.Update Else 'S'il l'a trouvé MsgBox "Numéro I: " & rec1.Fields("Numéro I") & "Numéro S: " & rec1.Fields("Numéro S") 'envoi d'un message' End If rec1.Close rec2.Close Set rec1 = Nothing Set rec2 = Nothing Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 Exit_B_Rechercher_Click: Exit Sub Err_B_Rechercher_Click: MsgBox Err.Description Resume Exit_B_Rechercher_Click End Sub
Derriere j'ai deux formualires u pour la siasie donc evidement ca l'ajoute bien a ma table Produits et un autre formulaire Recherche qui recherche mon Numéro I que je veux et dont le code est mit plus haut
Lors d'une recherche quand mon Numéro I est bien dans ma table Produits ca m'affiche cela "Syntax error (missing operator) in expression"
Si pas dans ma table produits ca me met la meme chose
Des fois j'ai le message overflow
Merci
Partager