Problème avec un ADODCRésolu

Question

Salut, j'ai un problème avec un ADODC (pdt.recordset.movefirst) 

Bref voici le lien pour télécharger mon projet :

Projet VB :

Mon
problème c'est que quand je saisie le code prduit sur l'interface
commandes, il doit m'afficher automatiquement le nom du produit, le
prix du produit et la quantité du produit, mais il affiche rien.

Pour
le numéro de la commande, veuillez cliquer sur le début de la ligne du
DataGrid3 (sur le triangle noir), puis il va s'affiché automatiquement.

Merci a vous ...

cs_Exploreur · Accepted Answer

Salut,

Essaye cela à la place de le mettre dans LostFocus :

Private Sub Text5_Change()
CodeRecherche2 = Text5.Text
On Error Resume Next
Err.clear
pdt.Recordset.MoveFirst
pdt.Recordset.Find "code_pdt='" & CodeRecherche2 & "'"


End Sub

Penses bien à mettre toute la propriété de ton TextBox !!

Ne fais pas : Text5 pour dire Text5.Text


A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut,

Au lieu de mettre un lien sur le projet, dont certaines personne éviterons de télécharger l'application, si le code n'est pas long, tu peux le poster, pour que les membres puissent le regarder....

A+
Exploreur

 Linux a un noyau, Windows un pépin

said394 · Answer

oui mé ya la base de donnée ds ce fichier zip g fait ca pr k'on puissent testé le projet pr mieux comprendre le problème :

Private Sub Btn_Dernier_Click()
cmd.Recordset.MoveLast
End Sub

Private Sub Btn_Dernier1_Click()
Lcmd.Recordset.MoveLast
End Sub

Private Sub Btn_Effacer_Click()
cmd.Recordset.Delete
MsgBox "Enregistrement effacer avec succé"
R_cmd.Refresh
cmd.Refresh
CodeRecherche = Text3
clt.Recordset.MoveFirst
clt.Recordset.Find "code_clt='" & CodeRecherche & "'"

End Sub

Private Sub Btn_Effacer1_Click()
Lcmd.Recordset.Delete
MsgBox "Enregistrement effacer avec succé"
End Sub

Private Sub Btn_Enregistrer_Click()

'Gestion des erreurs de l'existance d'un enregistrement
On Error GoTo fin

'Gestion des erreurs des champs non conforme

    If Not IsNumeric(Text1) Then
        MsgBox "Veuillez saisir un code valide "
        Exit Sub
        End If
    If Not IsDate(Text2) Then
        MsgBox "Veuillez saisir une date valide "
        Exit Sub
        End If

'Les champs vide

    If Text1 = "" Then
        MsgBox "Veuillez saisir le numéro de la commande"
        Exit Sub
    End If
    If Text2 = "" Then
        MsgBox "Veuillez saisir la date de la commande"
        Exit Sub
    End If
    If Text3 = "" Then
        MsgBox "Veuillez saisir le code du client"
        Exit Sub
    End If
    If Text4 = "" Then
        MsgBox "Il n'y a aucun nom qui correspond au code du client, veuillez saisir un code valide !", vbExclamation
        Exit Sub
    End If

cmd.Recordset.Update
fin:

    If Err.Number = -2147467259 Then
        MsgBox "le code existe déjà"
        cmd.Recordset.CancelBatch adAffectCurrent
        Exit Sub
    End If

Unload Me
Load Me
End Sub

Private Sub Btn_Enregistrer1_Click()

'Gestion des erreurs de l'existance d'un enregistrement
On Error GoTo fin

'Gestion des erreurs des champs non conforme

    If Not IsNumeric(Text7) Then
        MsgBox "Veuillez saisir une quantité valide "
        Exit Sub
    End If
    If Not IsNumeric(Text8) Then
        MsgBox "Veuillez saisir une quantité valide "
        Exit Sub
    End If

'Les champs vide

    If Text5 = "" Then
        MsgBox "Veuillez saisir le code du produit"
        Exit Sub
    End If
    If Text7 = "" Then
        MsgBox "Veuillez saisir la quantité commandé"
        Exit Sub
    End If

Lcmd.Recordset.Update

fin:

    If Err.Number = -2147467259 Then
        MsgBox "le code existe déjà"
        cmd.Recordset.CancelBatch adAffectCurrent
        Exit Sub
    End If

Unload Me
Load Me
End Sub

Private Sub Btn_Modifier_Click()
cmd.Recordset.UpdateBatch
cmd.Refresh
MsgBox "Enregistrement modifié avec succé"
End Sub

Private Sub Btn_Modifier1_Click()
Lcmd.Recordset.UpdateBatch
Lcmd.Refresh
MsgBox "Enregistrement modifié avec succé"
End Sub

Private Sub Btn_Nouveau_Click()
Text1.SetFocus
cmd.Recordset.AddNew
Text4 = ""
End Sub

Private Sub Btn_Nouveau1_Click()
Text5.SetFocus
Lcmd.Recordset.AddNew
End Sub

Private Sub Btn_Precedent_Click()
cmd.Recordset.MovePrevious
If cmd.Recordset.BOF Then
MsgBox "Vous avez atteint le début des enregistrements", vbInformation
cmd.Recordset.MoveFirst
End If
End Sub

Private Sub Btn_Precedent1_Click()
Lcmd.Recordset.MovePrevious
If Lcmd.Recordset.BOF Then
MsgBox "Vous avez atteint le début des enregistrements", vbInformation
Lcmd.Recordset.MoveFirst
End Sub

Private Sub Btn_Premier_Click()
cmd.Recordset.MoveFirst
End Sub

Private Sub Btn_Premier1_Click()
Lcmd.Recordset.MoveFirst
End Sub

Private Sub Btn_Rechercher_Click()
CodeRecherche = InputBox("Saisir le numéro de la commande à cherché")
cmd.Recordset.MoveFirst
cmd.Recordset.Find "num_cmd='" & CodeRecherche & "'"
CodeRecherche = Text3
clt.Recordset.MoveFirst
clt.Recordset.Find "code_clt='" & CodeRecherche & "'"
End Sub

Private Sub Btn_Rechercher1_Click()
CodeRecherche = InputBox("Saisir le code du produit à cherché")
Lcmd.Recordset.MoveFirst
Lcmd.Recordset.Find "code_pdt='" & CodeRecherche & "'"
End Sub

Private Sub Btn_Suivant_Click()
cmd.Recordset.MoveNext
If cmd.Recordset.EOF Then
MsgBox "Vous avez atteint la fin des enregistrements", vbInformation
cmd.Recordset.MoveLast
End If
End Sub

Private Sub Btn_Suivant1_Click()
Lcmd.Recordset.MoveNext
If Lcmd.Recordset.EOF Then
MsgBox "Vous avez atteint la fin des enregistrements", vbInformation
Lcmd.Recordset.MoveLast
End If
End Sub

Private Sub DataGrid3_Click()
Text9 = DataGrid3.Columns(0).Text
End Sub

Private Sub Form_Load()
Text4 = ""
Text6 = ""
Text8 = ""
Text10 = ""
End Sub

Private Sub Text3_LostFocus()
CodeRecherche1 = Text3
R_Lcmd.Recordset.MoveFirst
R_Lcmd.Recordset.Find "code_clt='" & CodeRecherche1 & "'"
End Sub

Private Sub Text5_LostFocus()
CodeRecherche2 = Text5
pdt.Recordset.MoveFirst
pdt.Recordset.Find "code_pdt='" & CodeRecherche2 & "'"
End Sub

cs_Exploreur · Answer

Re,

Par contre ne valide pas ma réponse, dans ce cas là c'était juste un conseil...

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Même voir ceci :

Private Sub Text5_Change()
'CodeRecherche2 = Text5.Text << Inutile
On Error Resume Next
Err.Clear
pdt.Recordset.MoveFirst
pdt.Recordset.Find "code_pdt='" & Text5.Text & "'"
End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

said394 · Answer

Merci bcp sa a marché pr la réponse ke g accepté merci encore !

Problème avec un ADODC

6 réponses

Votre réponse

Discussions similaires