Discussion :

[Guizbizet]

Bonjour,

Alors voilà j'aimerais dans mon formulaire faire une fonction qui mets à jour automatiquement le champ numéro de facture et la date du jour quand l'utilisateur appuie sur la touche F2 (pour ça j'ai la fontion )

Recap de ma base :
Table_SOCIETE contient une seule société et un champ DerNumFact
Mon formuaire F_FACTURATION est basé sur Table_FACTURATION qui contient le num de facture (NumFact)

Ma fonction doit etre : DerNumFact + max(NumFact) + 1 - DerNumFact

Ce que je ne sais pas faire :
1. indiquer comment aller "récupérer" la valeur de DernNumFact
2 inclure la recherche du Numéro de facture le plus élevé max(NumFact)

Merci d'avance de votre aide

PS : j'ai bien vu que je fais DerNumFact - DerNumFact mais c'est normal, c'est pour le premier enregistrement ça fera donc selon la fonction 0 + 0 + 1 - 0

[tonio-lille]

Avant d'essayer de répondre, ton DerNumFact et ton max(NumFact) ne correspondent-t-ils pas à la meme chose?

Pour ton problème :
Tu peux par exemple mettre dans un champ invisible une requete sql calculant le max(NumFact) et comme valeur par defaut de ton champ num_Fact la valeur du champ invisible + 1. je crois que c'est une possibilité mais il doit avoir plus propre

[Guizbizet]

Petite précision

pourquoi le champ DerNumFact car la compta de cette boite a déjà des numéros de factures mais ils n'ont rien pour gérer leur truc : tout est fait sous excel et sans archives.
Donc ce que je fais prends la suite c'est pour cela que j'ai besoin de ce DerNumFact

Pour Max(NumFact) ce sera quand ils utiliseront la base et auront fait des factures via celle-ci

j'ai tenté de faire ce que tu as dit mais cela ne fonctionne pas.

Voici le code mis sur touche apuyée du Formulaire

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 113
 
Me!NumFacture.Value = Me!ProchNumFact.Value
 
End Select
End Sub

113 étant le code de F2. Au passage je ne trouve pas le code pour ctrl + F2 ce qui serait mieux donc si quelqu'un l'a ...

[tonio-lille]

pourquoi le champ DerNumFact car la compta de cette boite a déjà des numéros de factures mais ils n'ont rien pour gérer leur truc : tout est fait sous excel et sans archives.
Donc ce que je fais prends la suite c'est pour cela que j'ai besoin de ce DerNumFact

Pour Max(NumFact) ce sera quand ils utiliseront la base et auront fait des factures via celle-ci

ok pour ce point.

A part ça j'ai l'impression d'etre perdu:

Peux-tu recentrer le problème.

A quel moment l'utilisateur utilise cette touche?
Es tu dans un formulaire de saisie, si oui celui relié à la table société ou facture?

[Guizbizet]

ok pour ce point.

A part ça j'ai l'impression d'etre perdu:

Peux-tu recentrer le problème.

A quel moment l'utilisateur utilise cette touche?
Es tu dans un formulaire de saisie, si oui celui relié à la table société ou facture?

L'utilisateur utilise la touche pour ne pas avoir à saisir le num de facture. La touche ctrl+F2 est faite pour mettre la valeur de la date du jour dans le champ Date facture et mettre le num de facture dans le champ NumFact

Je suis dan sun formulaire de saisie basé sur la table facturation

[tonio-lille]

Tu peux essayer ça, j'ai supposé qu'à partir de ton formulaire que tu connaissais la société pour laquelle la facture était destinée.

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
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim dnf As Integer
Dim mnf As Integer
Set db = CurrentDb
Select Case KeyCode
Case 113
Set rs = db.OpenRecordset("Select DerNumFact from [societe] where idSociete = " & Me.idSociete)
    dnf = rs![DerNumFact]
    rs.Close
    Set rs = db.OpenRecordset("Select max(NumFact) as max from [facture] where idSociete = " & Me.idSociete)
    'cas premiere facture avec ton application
    If rs.RecordCount = 0 Then
        Me!NumFacture = dnf + 1
    Else
    'cas ou une facture a déjà été faite
        Me!NumFacture = rs!Max + 1
    End If
    rs.Close
    db.Close
End Select
End Sub

[Guizbizet]

Merci ça marche !!!!

Mais avant de mettre le tag résolu il me manque 2 choses.
1. J'ai un champ date fecature que je mets à jour avec date() sur touche appuyée identique à ma question initiale. Comment vérifier si le champ est vide et lui dire de le remplir avec date() ou bien si la date a déjà été renseignée qu'il conserve la date déjà placée
2. Je bloque la modification de tous mes champs quand une case à cocher est à true. Est-il possible de bloquer l'action de la touche appuyée quand cette case est true

Merci

[tonio-lille]

Bonjour,

Oui c'est pas très compliqué:

Pour le 1 :

Code :

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

1
2
3
4
 
If isNull(Me.dateFacture) Then
     me.dateFacture = Date()
End If

Pour le 2:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
Select Case KeyCode Case 113   
 
If me.chkMaCheckBox = false Then
'traitement
End if
 
 
End Select 
End Sub

[Guizbizet]

Yes c'est tout bon

Merci pour tout