Erreur "Syntax error (missing operator) in expression" et "overflow"
Voila comme le nom de la file de discution l'indique , j'ai deux erreurs (le nom est citer plus haut)
Voici mon 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
|
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 |
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
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
