Discussion :

[Gauthier33]

Bonjour a tous, quelqu'un pourrait me dire mon(mes) erreurs dans le code, ça fait des heures que je cherche sans trouver.

Le but étant que mes champs du formulaires soit réinitialisé, une fois que l'utilisateur a cliqué sur le bouton enregistrer. Tous se passe bien sauf quand j'ajoute les deux dernières lignes (Me.TextBox_Company.Value = "" et Me.TextBox_Sector.Value = ""). Access ne m'affiche plus les messages d'erreurs si je ne remplis pas les deux champs obligatoires (en fait il se passe carrement plus rien). Sachant que j'aurais pu faire une boucle pour vider les contrôles aussi, mais il ne passe rien aussi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub Button_Enregistrer_Customer_Click()
'Champs Obligatoires remplis
If IsNull(Me.TextBox_Company) Or IsEmpty(Me.TextBox_Company) Then
    MsgBox " You need to enter a company name", vbOKOnly, "Error"
    Me.Undo
    Me.TextBox_Company.SetFocus
    Else
      If IsNull(Me.TextBox_Sector) Or IsEmpty(Me.TextBox_Sector) Then
        MsgBox "You need to enter a sector", vbOKOnly, "Error"
        Me.Undo
        Me.TextBox_Sector.SetFocus
     Else
 
    'Inseres dans la bdd les données du formulaires
 
    DoCmd.RunSQL ("INSERT INTO customer(company,sector,webSite,informations) values ('" & Me.TextBox_Company.Value & "','" & Me.TextBox_Sector.Value & "', '" & Me.TextBox_webSite & "', '" & Me.TextBox_AddInf & "')")
    'Message de confirmation
    MsgBox "This cutomer has been succesfully added to the database", vbOKOnly, "Success"
    'Remet le focus sur textbox company apres avoir validé
    Me.TextBox_Company.SetFocus
    'Reinitialise les champs du formulaires apres avoir validé
    Me.TextBox_WebSite.Value = ""
    Me.TextBox_AddInf.Value = ""
    Me.TextBox_Company.Value = ""
    Me.TextBox_Sector.Value = ""
    End If
 
End If
 
 
 
End Sub

Merci d'avance !!

[Dallemg]

Salut,
As-tu essayé de mettre la valeur de tes texteBox en null?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TextBox_Company.Value = null

[Gauthier33]

Wow, c'était vraiment trop c**, merci !!