Requête VBA Fermé

Question

Bonjour
J'ai une base de données sous access et une petite application VBA pour l'exploiter. J'aimerais que lorsque je tape un numéro de séquence dans un textbox, il affiche toutes les autres données de la base dans des textbox. Je fait un exemple racourci de ma base qui s'apelle DataTech :

NUMSEQ | CHAM1 | CHAM2
....45...........23.........24 
....56...........45.........56

Voilà donc par exemple l'utilisateur saisie 45 et dans mon textbox1 je voudrais la valeur 23 d'écri et dans mon textbox2 la valeur 24. Merci de m'aider
Adrien

Adrien · Answer

En fait j'ai trouvé le code suivant mais j'ai toujours un petit problème :
Private Sub cmdAff_Click()
    modlistProduitsF.Value = DLookup("[PRODUIT]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtB.Value = DLookup("[BBLANC]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtArgilEntre.Value = DLookup("[ARGILENTRE]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtPousRecycl.Value = DLookup("[POUSRECYCL]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtEauRajoute.Value = DLookup("[EAURAJOUTE]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtH2OControl.Value = DLookup("[EAUCONTROL]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtPerteFeu.Value = DLookup("[PERTEFEU]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtConsDop.Value = DLookup("[CONSDOPANT]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtChamotProd.Value = DLookup("[CHAMOTPROD]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtBoulProd.Value = DLookup("[BOULEPROD]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtIncuitProd.Value = DLookup("[INCUITPROD]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtPoussProd.Value = DLookup("[POUSSPROD]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
    txtIncuitRecycl.Value = DLookup("[INCUITPROD]", "DataTech", "[NUMSEQU] = '" & txtnumSeq.Value & "'")
End Sub

Ainsi il va chercher a chaque fois la valeur de la variable, sauf que j'ai un problème pour la liste déroulante kan j'amène le pointeur dessu il me dait valeur incorrecte je pense packe étant donné que c une liste qui affiche son contenu par une requête SQL elle a deux colones dont la clé primaire qui est caché et donc quand j'écris dans la liste je pense qu'il écri à l'endroit de la clef primaire quelqu'un pourrais m'aider svp c'est urgent.
Merci

Requête VBA

1 réponse

Discussions similaires