Discussion :

[dams95190]

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 :

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

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

[Invité]

Bonjour

Je n'ai pas tout vu à part une ligne qui me chagrine

Code :

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

rec1.FindFirst "[Numéro I]=Cint('" & Me.cbo_champ & "')"

je verrais plutôt

Code :

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

rec1.FindFirst "[Numéro I]=" & CInt(Me.cbo_champ.Value)

Mais j'ai un doute

Starec

[dams95190]

Ok ba j'ai toujours un message d'erreur maintenant c'est :" Dépassement de capacité"

[Invité]

Re

Une question est-ce que me.cboChamp peut dépasser les 32000 ?

Starec

[dams95190]

Re

Une question est-ce que me.cboChamp peut dépasser les 32000 ?

Starec

Comment je peux le savoir?

[Invité]

Re

Tu sais pourtant ce que tu mets dans la liste déroulante, non ?

Starec