Obtenir une numerotation speciale

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour tout le monde
Svp .. si vous pouvez m'aider a resoudre ce probleme
J'aimeria bien obtenir une numerotation de cette facon comme exemple : 04032020-0001
J'ai suivi ce sujet :
https://www.developpez.net/forums/d1...ique-database/
J'ai mis le champs INVOICES_Id de type numerique
Mais malheureusement rien se s'affiche dans TextBox1 .. aussi aucun message d'erreur ne s'affiche
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Req_Id As String
        Req_Id = Format(Today, "ddMMyyyy")
        Conne.Open()
        Dim Dt As New DataTable
        Dim Da As New OleDbDataAdapter("SELECT * From TBL_INVOICES", Conne)
        Da.FillSchema(Dt, SchemaType.Source)
        Da.Fill(Dt)
        If Dt.Rows.Count > 0 Then
            For Each R As DataRow In Dt.Rows
                If Not R.Item("INVOICES_Id") Is DBNull.Value Then
                    Dim COUNT As Integer = 1
                    If InStr(R.Item("INVOICES_Id"), Req_Id) > 0 Then
                        COUNT = COUNT + 1
                    End If
                    Me.TextBox1.Text = Req_Id & Val(R.Item("INVOICES_Id").ToString) & "-" & Format(COUNT, "0000")
                End If
            Next
        End If
        Conne.Close()
    End Sub

Merci beaucoup d'avance pour l'aide
Amicalement
MADA

04/03/2020, 18h15
Phil Rob

Salut Mada,

Je te propose de faire l'essai : remplacer Format(COUNT, "0000") par String.Format("{0:0000}",COUNT).

Ce sera correct au moins pour la partie COUNT. On cherchera plus loin si ça na suffit pas.

:D
04/03/2020, 18h28
MADA BLACK

1 pièce(s) jointe(s)

Salut Phil Rob
Salut maitre
Tres gentil de votre part ..
Regarde svp .. j'ai deja clique sur Button1 mais rien ne se passe
Pièce jointe 543123
Cordialement
MADA

Salut

Pour de-buguer,
Code:

1 2 3 4 Me.TextBox1.Text = Format(COUNT, "0000") Me.TextBox1.Text = Val(R.Item("INVOICES_Id").ToString) Me.TextBox1.Text = Req_Id Me.TextBox1.Text = Req_Id & Val(R.Item("INVOICES_Id").ToString) & "-" & Format(COUNT, "0000")
En passant en commentaire les 3 dernières lignes, puis les 2 dernières et enfin la dernière, il y a bien un moment où tu déclencheras l'absence d'affichage, là tu sauras quelle variable/formatage provoque le problème.

04/03/2020, 20h32
Phil Rob

Il te faut exécuter en pas à pas (F10) et vérifier à chaque passage les valeurs composant ton affichage :
Req_Id, R.Item("INVOICES_Id"), et voir aussi si la ligne d'affectation de la TextBox est vraiment exécutée.

La proposition de ProgElecT te donnera ± les mêmes information sans faire de pas à pas.

D'autre part, le code que tu nous soumets ne semble pas complet : ta connexion à la DB est-elle établie ?

Bon travail :)
04/03/2020, 21h34
MADA BLACK

Salut cher ProgElect
Salut cher ami
Tres tres ravi de vous voir ici dans ce sujet
Malheureusement rien ne se passe .. ni affichage dans TextBox1 .. ni message d'erreur
Amicalement
MADa

Citation:

Envoyé par Phil Rob

Il te faut exécuter en pas à pas (F10) et vérifier à chaque passage les valeurs composant ton affichage :
Req_Id, R.Item("INVOICES_Id"), et voir aussi si la ligne d'affectation de la TextBox est vraiment exécutée.

La proposition de ProgElecT te donnera ± les mêmes information sans faire de pas à pas.

D'autre part, le code que tu nous soumets ne semble pas complet : ta connexion à la DB est-elle établie ?

Bon travail :)

Cher PhIL ROB
Voici mon code de connection dans module1 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Imports System.Data.OleDb Imports System.Data Module Module1 Public Conne As New OleDbConnection() Public Sub Open_Connection() If Conne.State = ConnectionState.Open Then Conne.Close() Try Conne = New OleDbConnection("Provider = Microsoft.Jet.OleDB.4.0;Data Source = " & Application.StartupPath & "\ARTISANAT.Mdb") Conne.Open() Catch ex As Exception MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) Conne.Close() End End Try End Sub End Module
je n'ai aucun autre code dans ma Form1
Cordialement
MADA

04/03/2020, 22h00
ProgElecT

Re

Citation:

Envoyé par MADA BLACK

Salut...
Malheureusement rien ne se passe .. ni affichage dans TextBox1 .. ni message d'erreur
...

Si de plus il n'y a pas de message d'erreur, c'est qu'une des conditions pour aboutir à l'affichage fait que tu n'arrives pas à la ligne de commande Me.TextBox1.Text = .....
04/03/2020, 22h08
Phil Rob

Vérifie ton accès à la DB.
Tu ne reçois aucun enregistrement.
Si tu peux en envoyer davantage de code ...
04/03/2020, 22h32
MADA BLACK

Salut ProgElect
Salut PHIL ROB
J'ai essaye .. mais j'ai pas arrive malheureusement .. d'ailleur je n'ai aucun autre code
Si vous voulez .. apres votre permission de voir mon fichier
https://top4top.io/downloadf-1524xwzsx1-rar.html
Amicalement
MADA
04/03/2020, 22h52
Phil Rob

1 pièce(s) jointe(s)

Re ...

OK, c'est ton seul code et tu as expérimenté ce que t'as suggéré ProgElecT. C'est très bien, cela t'a permis de constater que le problème n'est pas sur la ligne d'affectation de la TextBox.

Maintenant, pour en savoir plus, il te faut faire du débogage en pas à pas, avec "mise en observation" des variables.

C'est à toutes fins utiles que je t'envoie un extrait de cours sur la question : Pièce jointe 543146.
Vois les pages 2 et 3.

J'ai chargé ton programme et je vais tester un peu ...
04/03/2020, 23h04
MADA BLACK

Formidable et interessant extrait .. je vais bien le lire
Merci beaucoup pour l'aide et pour votre excellent suivi
Merci maitre
Cordialement
MADA

Cher Mada,

Ta DB est vide !!!
Encode-lui quelques lignes et le code suivant (c'est le tien, un rien modifié) fera ce que tu attends :

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
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Req_Id As String = Format(Today, "ddMMyyyy")
        'Dim Req_Id As String = Format(DateTime.Now.ToString("ddMMyyyy"))
        Dim Adp As New OleDb.OleDbDataAdapter("SELECT * From TBL_INVOICES", Conne)
 
        '  Dim Ds As New DataTable 'Set
 
        Dim dt As New DataTable
 
        Adp.Fill(Dt)
 
        '    Dim Dt = Ds.Tables(0)
 
        If Dt.Rows.Count > 0 Then
            For Each R As DataRow In Dt.Rows
                If Not R.Item("INVOICES_Id") Is DBNull.Value Then
                    Dim Counta As Integer = 1
                    If InStr(R.Item("INVOICES_Id"), Req_Id) > 0 Then
                        Counta = Counta + 1
                    End If
                    Me.TextBox1.Text = Req_Id & Val(R.Item("INVOICES_Id").ToString) & "-" & String.Format("{0:0000}", Counta)
                  End If
            Next
        End If
    End Sub

Bonne soirée,

:D

04/03/2020, 23h20
MADA BLACK

Merci beaucoup maitre pour le code
Merci pour tous
Peut etre .. j'ai mal compris le sujet car j'ai laisse exprit ma DB vide .. pour que le premier (Id) sera 04032020-0001 .. et ainsi de suite
Amicalement
MADA
04/03/2020, 23h59
Phil Rob

Excuse-moi, j'avais pas compris que tu avais vidé la DB pour nous l'envoyer, ce qui est bien normal en fait.
Donc, ton code était presque parfait et le problème est maintenant résolu.

Très bonne nuit :D
05/03/2020, 08h56
MADA BLACK

Bonjour PHIL ROB
Mais dans le cas ou ma Table est completement vide .. toujours j'aurai le meme probleme .. ni message erreur .. et rien ne s'affichera dans ma TextBox1 .
Amicalement
MADA
05/03/2020, 09h01
Phil Rob

Cela me semble normal.
Tu peux toujours programmer un message SI le Rows.Count < 1.
Je reviens vers 11h. Si tu as besoin...
05/03/2020, 09h08
ProgElecT

Salut

Attention, dans le dernier code proposé par Phil Rob, la déclaration de la variable dt est en minuscule, puis son utilisation :fleche: Dt.Rows.
05/03/2020, 09h32
MADA BLACK

Bonjour cher ProgElect .. merci beaucoup pour la remarque ..
Bonjour cher PHIL ROB .. merci pour tes bienfait .. toujours je te trouve dans les moments difficiles .. merci encore
Ce que m'interesse vraiment est lorsque ma Table est completement vide j'obtiens cette numerotation : 05032020-0001
Car le code de mon premier poste inspire du lien de l'autre sujet la numerotation est comme ca : 050320201-0001 ( on remarque un 1 apres la date )
Merci beaucoup d'avance pour l'aide
Amicalement
MADA

1 pièce(s) jointe(s)

@ProgElecT : tu as raison avec les Dt et dt. Cela ne fait pas propre mais pour l'exécution cela ne change rien, VB ne fait pas de différence en majuscule et minuscule, contrairement au C et à ses dérivés.

@Mada : Ceci te convient-il ?

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
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Req_Id As String = Format(Today, "ddMMyyyy")
        'Dim Req_Id As String = Format(DateTime.Now.ToString("ddMMyyyy"))
        Dim Adp As New OleDb.OleDbDataAdapter("SELECT * From TBL_INVOICES", Conne)
        '  Dim Ds As New DataTable 'Set
 
        Dim dt As New DataTable
 
        Adp.Fill(dt)
 
        '    Dim Dt = Ds.Tables(0)
 
        Dim Counta As Integer
 
        If Dt.Rows.Count > 0 Then
            For Each R As DataRow In Dt.Rows
                If Not R.Item("INVOICES_Id") Is DBNull.Value Then
 
                    '     Dim Counta As Integer = 1
 
                    If InStr(R.Item("INVOICES_Id"), Req_Id) > 0 Then
                        Counta = Counta + 1
                    End If
                    Me.TextBox1.Text = Req_Id & Val(R.Item("INVOICES_Id").ToString) & "-" & String.Format("{0:0000}", Counta)
                  End If
            Next
        Else
 
            Counta = 1
            Me.TextBox1.Text = Date.Today.ToString("ddMMyyyy") & "-" & String.Format("{0:0000}", Counta)
        End If
 
    End Sub

Pièce jointe 543277

:D

Voir 40 message(s) de cette discussion en une page