Executer numerotation annuelle

Version imprimable

02/12/2018, 11h55
MADA BLACK

Executer numerotation annuelle

Bonjour Forums
Bonjour tout le monde
Svp si vous pouvez m'aider a finir ce cauchemar
Avec ma table nommee Factory . j'ai un champs nomme Annuelle_id
Je veux lorsque je click Button1 (button save data) et ma table est vide alors s'affichera automatiquement le numero (0001-2018) dans TextBox1.. apres se sera (0002-2018)..(0003-2018)..et ainsi de suite.
La prochaine annee 2019..la numerotation se sera (0001-2019) et aini de suite
Merci beaucoup d'avance pour l'aide
Cordialement
MADA
02/12/2018, 12h34
Momoth
Salut,

Citation:

Envoyé par MADA BLACK

Svp si vous pouvez m'aider a finir ce cauchemar

J'avoue que si moi aussi je rêvais de numérotation je serai pas bien :D

Je sais pas trop jusqu'où tu as pu aller dans ton algo mais en gros ça donnerai un truc comme ça :
1. Récupérer la dernière infos stockée en base (si elle existe).
2. Si elle existe
  - Extraire les composantes mois et année du numéro
  - Modifier les composantes qui doivent l'être
  - Recréer le numéro avec le format qui te convient
3. Si elle n'existe pas
  - - Créer le numéro de base (0001-2018)
A partir de là, je pourrai guère plus t'aider sans voir le code de ton bouton.
02/12/2018, 13h20
MADA BLACK

Tres cher Momoth
Si je sais faire cela .. et si j'ai bien compris comment faire cela .. alors je ne pose pas ma question ici
Amicalement
MADA
02/12/2018, 15h36
ProgElecT

Salut

Je sais que tu as pratiqué la programmation en VB6, donc je pense que tu va pouvoir comprendre la proposition suivante.

Select max(Annuelle_id) From Factory te renvoies l'index le plus haut de ton champs Annuelle_id

:fleche:Soit ta BD est vide donc EOF, dans ce cas au prochain enregistrement Annuelle_id = "0001-" & year(now).
:fleche:soit ta requête te renvoie XXXX-YYYY, donc il faut vérifier YYYY,

si yyyy (int(left(Annuelle_id,4))) n'est pas égal à year(now) c'est que la composante année est antérieur à année en cours donc

Annuelle_id = "0001-" & year(now).

sinon

Annuelle_id =partie compteur Cstr((int(left(Annuelle_id,4)) + 1) & "-" & year(now).

fin de si
02/12/2018, 15h47
MADA BLACK

Salut ProgElect
Ravi de vous rencontrer dans ce sujet
Oui je le sais faire en VB6 car je l'ai deja pratique
Merci pour l'aide et pour l'explication..je vais essayer avec votre methode et je vais vs informer
Cordialement
MADA

Cher ProgElect
Voici mon code dans Button1 .. vraiment j'ai pas pu mettre vos lignes dans le mien ..
Ce que m'interesse c'est la forme du code dans TextBox1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Imports System.Data.OleDb
Imports System.Data
Public Class Form1
    Public Function Max_Record_In_FACTORY()
        Dim Number As Integer
        Try
            Dim cmd As New OleDbCommand(" SELECT MAX(Annuelle_id) FROM Factory  ", Conne)
            If Conne.State = 1 Then Conne.Close()
            Conne.Open()
            Number = cmd.ExecuteScalar
            Conne.Close()
        Catch ex As Exception
            Number = 0
            Conne.Close()
        End Try
        Return Number
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = ?????????
        TextBox2.Text = Max_Record_In_FACTORY() + 1
    End Sub
End Class

Amicalement
MADA