Sujet Précédent Sujet Suivant

Ajout donnée dans une base Access

FouzYYY - Modifié le 29 mai 2022 à 22:24
JeuDuTaquin Messages postés 251 Date d'inscription mardi 4 juillet 2017 Statut Membre Dernière intervention 31 mai 2023 - 30 mai 2022 à 20:19
Bonjour,
je suis entrain de finaliser mon projet sous vb6.0 avec connexion ADO et je coince avec un problème dont j'en ai aucune idée.
voila j ai une listbox rempli avec les nom des employés avec une sélection multiple .J 'aimerai si c'est possible qu'en sélectionnant des employés dans la listbox on puisse ajouter des données



exemple :

lisbox:

employé 01
employé 02
employé 03
employé 04
employé 05

une textbox1 avec une valeur = 30
une textbox2 avec une valeur = 2021/2022

si par exemple je sélectionne :
employé 01 + employé 02 + employé 04 j'aurai comme résultat dans ma base Access:

ligne 01 = employé 01 30 2021/2022
ligne 02 = employé 02 30 2021/2022
ligne 03 = employé 04 30 2021/2022



voila j’espère que j'ai pu passer ma requête. merci d'avance.

1 réponse

Réponse 1 / 1
JeuDuTaquin Messages postés 251 Date d'inscription mardi 4 juillet 2017 Statut Membre Dernière intervention 31 mai 2023 7
Modifié le 30 mai 2022 à 20:50
Salut, 
Private Sub Command1_Click()
Text3 = ""
  Dim i As Integer
  For i = 0 To List1.ListCount - 1
  If (List1.Selected(i) = True) Then
    Text3 = Text3 & vbCrLf & List1.List(i) & " " & Text1 & " " & Text2
  End If
  Next
End Sub

Private Sub Form_Load()

Dim a As Integer
    For a = 1 To 10
    List1.AddItem "Employé " & IIf(a < 10, "0", "") & a
    Next
End Sub


Et tu configures le lien de ta base de donnée Access dans le TextBox3 et le control DATA...
0
Rejoignez-nous