Discussion :

[LAIDAROS]

Bonjour tout le monde
Heureux de vous rejoindre dans ce magnifique Forum
J'ai vraiment besoin d'aide
J'enregistre le champs (Produit_Date) comme Type Text dans ma Table access.
Parfois je suis oblige d'enregistre la date (Produit_Date) uniquement comme ca .. seulement l'annee par exemple ( 2007 )
Avec mon code j'ai essaye de faire apparaitre la date dans TextBox3 de cette facon ( yyyy-MM-dd ) .. alors ca fonctionne tres bien mais le probleme lorsque j'arrive a la ligne enregistree avec une annee seulement
J'aurai ce message d'erreur ( Convertion from string "2007" to type 'date' is not valid )
Comment faire svp pour eviter ce message d'erreur
Voici mon code :

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
    Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
        Try
            With DataGridView1.CurrentRow
                TextBox1.Text = .Cells("Produit_Id").Value.ToString()
                TextBox2.Text = .Cells("Produit_Nom").Value.ToString()
                TextBox3.Text = .Cells("Produit_Date").Value.ToString()
 
                'TextBox3.Text = Format(CDate(TextBox3.Text), "yyyy-MM-dd")
                TextBox3.Text = Format(CDate(Convert.ToString(TextBox3.Text)), "yyyy-MM-dd")
 
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Merci a tous
LAIDAROS

[Phil Rob]

Bonjour,

Pourquoi ne testerais-tu pas le contenu de la TextBox avant de faire la conversion, par exemple :

Code :

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

1
2
3
4
5
6
 
If TextBox2.Text.Lenght = 10 then   ' le format est peut-être correct
      TextBox3.Text = Format(CDate(Convert.ToString(TextBox3.Text)), "yyyy-MM-dd")
Else                           ' le format n'est pas correct
'      .... peut-être rien à faire, ou bien envoyer un message d'erreur, ou ...
End If

Bonne journée,

[LAIDAROS]

Merci Phil Rob
Une meilleur idee merci
Enfin c'est resolu avec .. Else .. (yyyy)
LAIDAROS