valeur par défaut pour un champ [Résolu]

[zilfana63]

Bonjour,
j'ai une table T_Manuel, je voudrais que un de mes champs (TypAct) soit égal à "D" par défaut
Dans le générateur d'expression, j'ai mis

Code :

Car(44)

(44 pour avoir le D depuis le code ASCII, mais ça me renvoie

Code :

#erreur

.

De même pour la date du jour, je veux mettre Date() mais ca me renvoie le même erreur.

Qu'est ce qui me manque pour obtenir ces deux résultats ?

Je vous remercie d'avance...

[Philippe JOCHMANS]

Bonjour

Initule de passer par le générateur d'expression.

Dans la propriété "Valeur par défaut de ton Champ", tu tapes

Code :

="D"

Code :

=Date()

Starec

[zilfana63]

Merci Starec, effectivement ca marche bien

Mais je pensais que le masque de saisie pour la date soit AAAAMMJJ, je l'ai bien précisé mais il me met toujours une date de type JJMMAAAA

Que pourrais-je faire pour que la date soit directement AAAAMMJJ ??

Merci d'avance

[Siguillaume]

Regarde plutôt du coté de la propriété Format.

[zilfana63]

Oui mais j'ai une liste vide dans Format

j'ai mis la datepos au format texte c'est peut etre pour ca ??

[Siguillaume]

Et qu'est ce que cela te donne comme résultat?
Ce que j'allais te proposer est de mettre ton format à date,abrégé, mais il faudrait que ton champ soit de type Date/Heure.
Bon courage!

[zilfana63]

J'ai essayé de mettre le format sous Date/Heure, mais il ne me fait pas la conversion de la date en YYYYMMDD

Mais j'ai un autre souci au niveau d'une conversion

Pourrais- tu m'aider ?

[zilfana63]

Voici le code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Function ConverCat(Catecrit, Libecrit As String) As String
    Select Case ConverCat
        Case Catecrit = "AN"
            ConverCat = "OD"
        Case Catecrit = "EFF"
            ConverCat = "EFA"
        Case Catecrit = "CRCFAF"
            ConverCat = "PAI"
        Case Catecrit = "VT"
            If Libecrit Like "%Fac%" Then 'Si le libellé comporte le mot Fac
                ConverCat = "FAC"
            Else
                ConverCat = "AVO"
            End If
    End Select
End Function

[Siguillaume]

Bon là, il ne faudrait pas mélanger les choses...
Pour la conversion en YYYYMMDD, on essaiera de trouver une solution.

Envoyé par zilfana63

J
Mais j'ai un autre souci au niveau d'une conversion
Pourrais- tu m'aider ?

Pour cette nouvelle conversion, je suis bien disposé à t'aider mais tu n'a été explicite:
->que veux-tu convertir?
->comment veux -tu convertir?

Et je crois que, si un problème tout à fait nouveau, il est mieux que tu postes dans une nouvelle discussion, avec le problème clairement mentionné.

Bye!
Bon couage!

[zilfana63]

Envoyé par Danjos

Pour cette nouvelle conversion, je suis bien disposé à t'aider mais tu n'a été explicite:
->que veux-tu convertir?
->comment veux -tu convertir?

Non mais j'étais à fond dedans hier soir c'est pour ça que je vous en fais part directement..

Alors je voudrais convertir selon la catégorie écrit [Catecrit] 2 ou 3 caractères en autres caractères (Exemple : quand JO_Num = "AN" alors Catecrit reçoit "OD" )

Ensuite cette conversion je compte l'utiliser dans une requête update. Dans cette requête je voudrais que Catecrit reçoit la conversion établie pour JO_Num qui se trouve dans une autre table (F_EcritureC)

Lorsque j'exécute ma requête Ce message apparaît :

Fonction utilisée avec un nombre d'arguments incorrect dans l'expression 'ConverCat([JO_Num])

C'est peut être dans la fonction que j'ai posté plus haut qu'il y ai un petit souci




Et pour la date je ne sais toujours pas comment le faire passer en YYYYMMDD

Merci

[Siguillaume]

Ok. Je vois ce que tu veux faire.
Cela veux donc dire que deja, la partie de l'affectation est ok.
Le probleme reste maintenant sur la requete de mise a jour,n'est ce pas?
Je crois que ce message s'affiche lorsque tu n'as pas bien parametre les differents champs qui sont impliques dans la requete.
Poste ta requete pour que je la vois, et mentionne aussi les types de tes tables.

S'agissant du format, je verifierai moi-meme plus tard, actu je travaille dans un environnemnt Linux. Ce sera donc pour ce soir ou pour l'apres-midi.

Bye et Courage!

[zilfana63]

Je te remercie d'avance, c'est gentil de ta part, et tu as tout à fait compris mon problème

Voici la requête UPDATE :

Code :

1
2
 
UPDATE (essai LEFT JOIN F_EcritureC ON essai.[Code ACH] = F_EcritureC.CT_Num) LEFT JOIN F_compteT ON essai.[Code ACH] = F_compteT.CT_Num SET essai.[Code ACH] = alphamois(2,[Code ACH],15), essai.Dateecrit = converDate([dateecrit]), essai.Catecrit = ConverCat([catecrit]), essai.Refecrit = alpha([refecrit],14), essai.catach = "          ", essai.ntva = "          ", essai.siren = Alpha0([CT_Siret],9), essai.Libecrit = alpha([Libecrit],20), essai.sens = RemplaceSens([sens],1), essai.Echecrit = converDate([Echecrit]), essai.Nom = alpha([EC_Intitule],20), essai.Devise = alpha("EUR",3), essai.Montant = Sum((((([EC_Sens]-1)*2)+1)*[EC_Montant])*-1), essai.blanc1 = "            ", essai.datepos = converDate(Date()), essai.blanc2 = "          ", essai.mntini = Sum((((([EC_Sens]-1)*2)+1)*[EC_Montant])*-1), essai.blanc3 = "   ", essai.[Num Clt] = alpha("47932",5), essai.TypAct = alpha("D",1), essai.blanc4 = "                                   ";

J'ai voulu recupérer sur 2 tables les différentes informations mais je pense que l'on peut faire plus simple

J'ai fais l'ajout de la table F_EcritureC dans essai en sélectionnant tous les champs voulus. (tous les champs des 2 tables sont de type texte)

La fonction ConverCat a déjà été posté ; La Fonction ConverDate la voici :

Code :

1
2
3
4
Public Function ConverDate(dte As Date) As String
    'Fonction qui permet la convertion de la date en YYYYMMDD, utilisée dans la requête MaJ
    ConverDate = Format(dte, "yyyy") & Format(dte, "mm") & Format(dte, "dd")
End Function

et RemplaceSens :

Code :

1
2
3
4
5
6
7
8
Sub RemplaceSens()
    Dim sens As String
    If sens = "0" Then
        sens = "D"
    Else
        sens = "C"
    End If
End Sub

Je voulais simplement remplacer le zéro 0 par une lettre D(ébit), sinon ca sera C(rédit)
Mais je ne pense pas qu'elle va fonctionner non plus puisque cest une procédure alors que les autres programmes j'utilise des fonctions

Bref, j'espère que tu comprendras de tout ca

Merci par avance

Bon COurage avec Linux

[zilfana63]

Plus Personne me Répond

[Jeannot45]

Attention, si personne ne te répond c'est que tu as deux discussions dans une. Dans l'intéret de tous et de toi en particulier, il vaut mieux une discussion par problème.

Pour répondre à ton problème de format de date (qui est en fait le premier sujet de ta discussion, dans la propriété format de ton champ de type date, tu saisis :

Code :

aaaammjj

A+

[zilfana63]

Envoyé par Jeannot45

Attention, si personne ne te répond c'est que tu as deux discussions dans une. Dans l'intéret de tous et de toi en particulier, il vaut mieux une discussion par problème.

Oui chef, j'ai créé une discussion à propos de mon deuxième probleme dans le forum Access > VBA . C'est pas pour autant que j'ai beaucoup plus de réponse.

Pour répondre à ton problème de format de date (qui est en fait le premier sujet de ta discussion, dans la propriété format de ton champ de type date, tu saisis :

Code :

aaaammjj

Pour ce qui est de la date, j'ai déjà essayé de mettre AAAAMMJJ dans le type de date, le problème c'est que j'importe les données et la conversion n'a pas lieu d'être..

Je ne sais pas pourquoi

[Siguillaume]

Envoyé par zilfana63

Oui chef, j'ai créé une discussion à propos de mon deuxième probleme dans le forum Access > VBA . C'est pas pour autant que j'ai beaucoup plus de réponse.

Donne le lien.

Envoyé par zilfana63

Pour ce qui est de la date, j'ai déjà essayé de mettre AAAAMMJJ dans le type de date, le problème c'est que j'importe les données et la conversion n'a pas lieu d'être..
Je ne sais pas pourquoi

Il faut le mettre dans la propriété format du champ d'accueil. La conversion est faite automatiquement, à cause du format de la date utilisée par ton système. C'est Access même qui fait cette conversion par défaut.


Alors beaucoup de courage et de patience!
Le succès est au bout de l'effort

[zilfana63]

Envoyé par Danjos

Donne le lien.

Voici le lien :
http://www.developpez.net/forums/sho...d.php?t=487522


Je vous remercie pour la date


Patience patience, en informatique il faut beaucoup de patience

Vous en connaissez des informaticiens patients vous ? Perso non

[Siguillaume]

Si le problème avec la date est résolu, je crois que tu devrais marquer cette discussion comme telle.
N'es ce pas?
Juste le tag:
Merci et courage!
Pour les informaticiens patients, tu peux en connaître un, si tu veux: toi-même.