Enregistrement suivant VBA
Bonjour,
Etant novice dans le domaine du VBA, j'ai vraiment besoin de vos conseils. J'ai créé une combobox pour enregistrer des membres dans un tableau. Mais lorsque je valide, les champs ne se vident pas. Je n'arrive pas, surtout je ne sais pas où placer :
DoCmd.GoToRecord , , acNext
pour passer à un enregistrement suivant.
MERCI DE VOTRE AIDE
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
|
Private Sub CommandButton_fermer_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
For i = 1 To 7 'Liste des 7 comptes sur la feuille "listing"
ComboBox_comptes.AddItem Sheets("listing").Cells(i, 1)
Next
End Sub
Private Sub CommandButton_valider_Click()
'Coloration des Labels en noir
Label_date.ForeColor = RGB(0, 0, 0)
Label_numero.ForeColor = RGB(0, 0, 0)
Label_libelles.ForeColor = RGB(0, 0, 0)
Label_comptes.ForeColor = RGB(0, 0, 0)
Label_debit.ForeColor = RGB(0, 0, 0)
Label_credit.ForeColor = RGB(0, 0, 0)
'Si le formulaire est complet, on insère les valeurs sur la feuille
Dim no_ligne As Integer
'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
no_ligne = Range("A65536").End(xlUp).Row + 1
'Insertion des valeurs sur la feuille
Cells(no_ligne, 1) = TextBox_date.Value
Cells(no_ligne, 2) = TextBox_numero.Value
Cells(no_ligne, 3) = TextBox_libelles.Value
Cells(no_ligne, 4) = ComboBox_comptes.Value
Cells(no_ligne, 5) = TextBox_debit.Value
Cells(no_ligne, 6) = TextBox_credit.Value
End Sub |