Formulaire et lien avec une base de données

[Luc]

Rebonjour,

Je me demande aussi comment je peux, en cliquant next (pour indiquer la fin de l'entrée des données) d'un formulaire, que les données des textbox s'achemine automatiquement dans une base de données (disons la Feuil2) et qu'en même temps les textbox se vident pour l'entrée de nouvelles données et ainsi de suite. Voici ce que j'ai pour l'instant:

Private Sub CommandButton1_Click()
If Sheet1.TextBox1.Value = "" Then
MsgBox "Please enter the first name of the candidate."
Sheet1.TextBox1.Activate
End
End If

If Sheet1.TextBox2.Value = "" Then
MsgBox "Please enter the last name of the candidate."
Sheet1.TextBox2.Activate
End
End If

If Sheet1.TextBox4.Value = "" Then
MsgBox "Please enter the candidates ID number."
Sheet1.TextBox4.Activate
End
End If
' Go to Sheet2
Sheets("Sheet2").Select
' Range("A1").Select
End Sub


A+ et merci beaucoup... Luc.

 

[Lord Nelson]

Salut Luc,
non plutôt bonsoir Luc,

Première chose, il faut sortir de la procédure si l'un des TextBox n'est pas satisfaisant :

If Sheet1.TextBox1.Value = "" Then
MsgBox "Please enter the first name of the candidate."
Sheet1.TextBox1.Activate
Exit Sub
End If
'(idem pour TextBox2 et TextBox4)
'Si l'on arrive ici, c'est que les tests ont été franchis avec succès, donc :

' Oublier ceci :
' Go to Sheet2
' Sheets("Sheet2").Select
' Range("A1").Select
'
' Reporter sur la feuille 2 la saisie :
Dim Ligne as Long
' Trouver la première ligne disponible de la Feuil2 :
Ligne = Feuil2.Range("A65536").End(xlUp).Row + 1
' Pour y reporter les données :
Feuil2.Range("A" & Cstr(Ligne)) = TextBox1
Feuil2.Range("B" & Cstr(Ligne)) = TextBox2
Feuil2.Range("C" & Cstr(Ligne)) = TextBox4
' Enfin, vider les TextBoxs :
TextBox1 = ""
TextBox2 = ""
TextBox4 = ""
TextBox1.Activate

Tu devras bien sûr adapter la procédure en fonction des correspondances entre les colonnes de la Feuille 2 et les TextBoxs, mais ça devrait le faire.

A+
Horatio

 

[Luc]

Bonjour Lord,

Un très grand merci encore une fois de ton aide, cela fonctionne maintenant...

A+, Luc