Discussion :

[paradize99]

Bonjour,
J'ai crée un form permettant à l'user de renseigner les infos d'une commande à partir d'une table access.
J'aimerais qu'à chaque fois que le form s'ouvre un ID se crée automatiquement, il se composé de la date du jour et un nombre automatique
Cependant je n'arrive pas à trouver comment faire pour qu'il lise la table et m'affiche le bon nombre

Par exemple: la première commande d'aujourd'hui aura comme ID : 032219-001

Voici le code que j'ai essayé mais rien ne s'affiche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim REQID As String
        REQID = Format(Today, "MMddyy")
        cn.Open()
 
        Dim cmdID As New OleDbCommand("select RequisitionID as values from tblToolRequisition", cn)
        Dim dr As OleDbDataReader = cmdID.ExecuteReader
        While dr.Read()
            TextBox2.Text = REQID + Val(dr.Item("values").ToString) + 1
        End While
 
        cn.Close()

Merci d'avance pour vos réponses

[clementmarcotte]

Bonjour,

Je ne peux pas tester, ni répondre directement, mais je me permets deux conseils.

Évite d'utiliser le + pour concaténer des chaînes. Préfère l'esperluette (&).

Dans VBA. val() ne vaut pas un clou quand le séparateur décimal est la virgule. Et je suis à peu près certain que c'est pareil en VB.net

Tu peux utiliser à la place les fonctions traditionnelles de VB comme CDbl, Csng etc,

Parmi quelques options en .net, je préfère la méthode TryParse qui est implantée dans tous les types numériques. L'avantage de TryParse étant qu'il est possible de vérifier si la conversion est réussie, sans planter le programme, ou gérer un bloc Catch

Un exemple ramassé en vitesse sur mon disque. Tu peux remplacer DateTime par Integer, Double etc.

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
 Private Sub TryParseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TryParseButton.Click
        If Not String.IsNullOrEmpty(DateTextBox.Text) Then
            Dim parsedValue As DateTime
            Dim tryResult As Boolean
 
            tryResult = DateTime.TryParse(DateTextBox.Text, parsedValue)
            If tryResult Then
                'réussi
                MessageBox.Show("The parsed date is " & parsedValue.ToString() & ".")
            Else
                'Raté
                MessageBox.Show("The parse failed.")
            End If
        Else
            MessageBox.Show("Textbox is empty.")
        End If
    End Sub

[paradize99]

Merci clementmarcotte pour ta reponse et desole pour le delai

J'ai finalement trouve comment faire, au cas ou ca interesse qq, voila le 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
16
17
18
19
20
21
22
23
24
25
 
        Dim REQID As String
        REQID = Format(Today, "MMddyy")
        cn.Open()
 
        Dim MyTable As New DataTable
        Dim cmdID As New OleDbDataAdapter("select * from tblToolRequisition", cn)
        cmdID.FillSchema(MyTable, SchemaType.Source)
        cmdID.Fill(MyTable)
 
        If MyTable.Rows.Count > 0 Then
            For Each R As DataRow In MyTable.Rows
                If Not R.Item("RequistionNum") Is DBNull.Value Then
 
                    Dim COUNT As Integer = 1
                    If InStr(R.Item("RequistionNum"), REQID) > 0 Then
                        COUNT = COUNT + 1
                    End If
 
                    TextBox2.Text = REQID & Val(R.Item("RequistionNum").ToString) & "-" & Format(COUNT, "000")
 
                End If
            Next
        End If
        cn.Close()