Discussion :

[Fredri]

Bonjour et bonne année à tous,

Je voudrais modifier un numéro de facture;

Pour l'instant j'ai un numéro qui se formate sur la date et le mois.

ex F 002 01 06 corespond à la facture n°2 du mois de janvier 2006

Je veux pouvoir remplir trois champs Num, mois, an et changer par ce nouveau numéro.

Il faut que je recherche si se numéro n'existe pas déja, mais je ne sais pas utilisé RechDom ? j'ai essayé cela mais erreur de compilation :

Code :

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

1
2
3
'Recherche si le numéro existe déja
Numéro = FormaterPiece("F", an, mois, num)
RechDom ("[NumFacture]","T_Factures Clients","[NumFacture]='" & Numéro)

Pouver vous m'aider

[Demco]

Code :

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

RechDom ("[NumFacture]","T_Factures Clients","[NumFacture]='" & Numéro)

Tu as une apostrophe isolée qui se ballade dans ton 3ème paramètre de fonction.

Essaie :

Code :

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

RechDom ("[NumFacture]","T_Factures Clients","[NumFacture]=" & Numéro)

En espérant t'aider.

[Fredri]

Ok ca passe la compil en fait il faut le mettre en anglais en vba Dlookup(),

je narrive pas à l'afficher !!!

Code :

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

1
2
3
4
'Recherche si le numéro existe déja
Numéro = FormaterPiece("F", "05", "12", "001")
'DLookup("[NumFacture]", "T_Factures Clients", "[NumFacture]=" & Numéro)
MsgBox DLookup("[NumFacture]", "T_Factures Clients", "[NumFacture]=" & Numéro)

Je ne sais pas si faut utiliser DLookup ? Que me rend cette fonction si elle ne trouve rien ? Chaine vide "" ? Boolen "False" ?
Existe t'il une autre fonction qui teste l'existence ?

Merci de votre aide !

[Maxence HUBICHE]

Code :

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

MsgBox DLookup("[NumFacture]", "T_Factures Clients", "[NumFacture]='" & Numéro &"'")

C'est du texte, donc entre apostrophe, ou entre guillemets

[Fredri]

Ok ca marche, il me rend null si il n'existe pas
sinon il me renvoie la valeur recherché.

Pour le passage des parametres comment dois je m'y prendre ?

Code :

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

1
2
3
4
5
6
7
8
9
10
'Recherche si le numéro existe déja
Numéro = FormaterPiece("F", "05", "12", "001")
existe = DLookup("[NumFacture]", "T_Factures Clients", "[NumFacture]='" & Numéro & "'")
 
MsgBox existe
' si le numéro n'existe pas on le formate en fonction des élément entrées
If IsNull(existe) Then
Me.NumFacture = FormaterPiece("F", "05", "12", "001")
 
Else: MsgBox "Le Numéro existe déja essayer un autre numéro"

je pensais ajouter un bouton "modifier" pres du NumFacture
qui m'affiche (Sur le meme formulaire FactureClient ?) trois champs à remplir "an'' , "mois", "Num" et deux boutons :

"modifier" qui lancerait ma procédure "Btn modifier" et
"annuler" qui effacerai les trois champs à remplir

comment passer les parametres "an'' , "mois", "Num"

Merci de votre aide !

[Fredri]

Personne n'a une idée comment passer des parametres !

[keita]

slaut
Pour recuperer les 2 derniers chiffres de l'annee et le mois:

Code :

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

1
2
Me!An=Right(Year(Date),2)
Me!Mois=Month(date)

J'espere avoir compris ton pb
@+

[Fredri]

en fait je veux récupérer des parametre que j'ai tapé dans un formulaire ouvert,soit trois champs:
je tape le mois , l'année et le num

Et je récupére un numéro formaté dans un autres champs de ce formulaire numFacture

Dois je les mettre comme parametre de ma fonction ?

voila ce que j'ai pour l'instant, mais j'ai un pb d'incohérence de type, pourquoi ?

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
26
27
28
29
Dim Type_de_pièce As String
Dim mois As String
Dim an As String
Dim num As String
 
an = Me.an
mois = Me.mois
num = Me.num
 
 
'Recherche si le numéro existe déja
'Numéro = FormaterPiece("F", an, mois, num)
'Existe = RechDom("[NumFacture]", "T_Factures Clients", "[NumFacture]='" & Numéro)
 
'Recherche si le numéro existe déja
'Numéro = FormaterPiece("F", "05", "12", "001")
Numéro = FormaterPiece("F", an, mois, num)
existe = DLookup("[NumFacture]", "T_Factures Clients", "[NumFacture]='" & Numéro & "'")
 
MsgBox existe
 
' si le numéro n'existe pas on le formate en fonction des élément entrées
 
If IsNull(existe) Then
Me.NumFacture = FormaterPiece("F", "05", "12", "001")
 
Else: MsgBox "Le Numéro existe déja essayer un autre numéro"
 
End If

Help me

[keita]

Oui d'accord mais qu'est ce qu'on doit voir dans Me.NumFacture
apres ça:

Code :

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

Me.NumFacture = FormaterPiece("F", "05", "12", "001")

quelque chose comme ça:

F-05-12-001

ou:

F/05/12/001

@+[/code]

[Fredri]

Fnummoisannée

F0011205

sans tirets

mais pas de pb sur formater piece il marche quand je fais
FormaterPiece("F", "05", "12", "001")

[keita]

Fredri a ecrit:

voila ce que j'ai pour l'instant, mais j'ai un pb d'incohérence de type, pourquoi ?

Et le debogueur marque quelle ligne de ton code alors?
A+

[Fredri]

J'ai résolu mon pb d'incohérence type, je voudrais savoir si c'est possible d'afficher des nouveaux champs dans un formulaire ouvert en cliquant sur un bouton , mais pas activé / désactivé (il apparaisent en gris ) peut etre visible et invisible ?

[Fredri]

Je voudrais utiliser un bouton bascule qui affiche ces trois champs si appui sinon les rends invisible . Dans mon code evenement
Quelle doit etre ma condition ??? du genre

if "Me.etat appuyée" then "visible" else "pas visible"

Je n'arrive pas a trouver !

[Muhad'hib]

Salut,

Tu peux essayer qqchose comme ça :

Code :

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

1
2
3
Private Sub Bascule1_AfterUpdate()
Me.Étiquette0.Visible = Not (Me.Bascule1)
End Sub

Mais ton pb n'as plus rien a voir avec ton sujet initial : ça facilitera pas les recherches ultérieures

Il vaut mieux créer un autre post dans ce cas.

A+

[Fredri]

ok mais j'avais peur du multipost