Format de date access plutot urgent
seblekiller_oupas
Messages postés
397
Date d'inscription
Statut
Membre
Dernière intervention
-
seblekiller_oupas Messages postés 397 Date d'inscription Statut Membre Dernière intervention -
seblekiller_oupas Messages postés 397 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
voici mon probleme:
j'ai cree des fonctions qui marchent avec des requetes. j'ai ainsi, en cliquant sur un bouton, la liste des dates superieures a celle de la textbox.
Toutes mes dates sont du format jj/mm/aaaa. dans la textbox j'ai la fonction =Date()
Or, quand je clique, ca ne m'affiche les dates superieures qu'au format mm/jj/aaaa (en gros mon resultat est bien en jj/mm/aaaa mais ce qui sert de reference est en mm/jj/aaaa)
Si c'est pas claire demandez moi mais comment je peux faire car je dois avoir fini ceci avant demain soir et ca me bloque tout une application!!!
siouplet merci de m'aider
voici mon probleme:
j'ai cree des fonctions qui marchent avec des requetes. j'ai ainsi, en cliquant sur un bouton, la liste des dates superieures a celle de la textbox.
Toutes mes dates sont du format jj/mm/aaaa. dans la textbox j'ai la fonction =Date()
Or, quand je clique, ca ne m'affiche les dates superieures qu'au format mm/jj/aaaa (en gros mon resultat est bien en jj/mm/aaaa mais ce qui sert de reference est en mm/jj/aaaa)
Si c'est pas claire demandez moi mais comment je peux faire car je dois avoir fini ceci avant demain soir et ca me bloque tout une application!!!
siouplet merci de m'aider
A voir également:
- Format de date access plutot urgent
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
- Format doc - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
quel est le code de la fonction qui donne la liste des dates supérieures à la textbox ?
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
Quel est le type de date_install ? J'imagine que c'est une date.
Quel est le type de modifiable0 et modifiable2 ? Je me méfie de cdate, et de la conversiion implicite de la date en string...
J'imagine aussi que toutes vos dates sont sans heure.
Si modifiable est déjà une date, j'essayerait :
Critere1 = cstr(clng(int(Me.Modifiable0)))
Quel est le type de modifiable0 et modifiable2 ? Je me méfie de cdate, et de la conversiion implicite de la date en string...
J'imagine aussi que toutes vos dates sont sans heure.
Si modifiable est déjà une date, j'essayerait :
Critere1 = cstr(clng(int(Me.Modifiable0)))
type de date_install: date/heure
type de modifiable0 etModifiable2 ce sont les listes
pour CDate on m'a conseille de faire comme ca
ensuite effectivement toutes mes dates sont sans heures et
Critere1 = cstr(clng(int(Me.Modifiable0))) ne marche a priori pas non plus
Ce qu'il faut rajouter c'est que je ne connais access que depuis queleques semaines donc je ne suis pas un expert!!!!
en tout cas merci de m'aider
type de modifiable0 etModifiable2 ce sont les listes
pour CDate on m'a conseille de faire comme ca
ensuite effectivement toutes mes dates sont sans heures et
Critere1 = cstr(clng(int(Me.Modifiable0))) ne marche a priori pas non plus
Ce qu'il faut rajouter c'est que je ne connais access que depuis queleques semaines donc je ne suis pas un expert!!!!
en tout cas merci de m'aider
Donc voila les resultats:
Je suis un enorme boulet!!!!! en realite ca marche tres bien sauf que vu qu'il n'y a pas l'autodimensionnement je croyais que ca ne s'affichait pas donc est-ce que tu sais comment on fait " l'auto dimensionnement" ??? et si pour les validites tu as une meilleure solution plus simple, je suis aussi preneur
en tout cas merci beaucoup j'aurais presque fini ma base dans es temps!!
Je suis un enorme boulet!!!!! en realite ca marche tres bien sauf que vu qu'il n'y a pas l'autodimensionnement je croyais que ca ne s'affichait pas donc est-ce que tu sais comment on fait " l'auto dimensionnement" ??? et si pour les validites tu as une meilleure solution plus simple, je suis aussi preneur
en tout cas merci beaucoup j'aurais presque fini ma base dans es temps!!
Sub Test()
'SELECT Machine.[Num_machine], Machine.Type_mach, Machine.Date_install
'FROM machine
'WHERE (((machine.Date_install) >= #26/11/2004# And (machine.Date_install) <= #30/8/2006#))
Dim ChaineSQL As String, Critere1 As Variant, Critere2 As Variant
' Critere1 = "#26/11/2004#" ' Pourrait provenir de n'importe où, variable, textbox, etc ...
' Critere2 = "#30/8/2006#"
Critere1 = "#" & CDate(Me.Modifiable0) & "#"
Critere2 = "#" & CDate(Me.Modifiable2) & "#"
DoCmd.Close acForm, "Choix_dates_install_machine"
ChaineSQL = "SELECT Machine.[Num_machine], Machine.Type_mach, Machine.Date_install"
ChaineSQL = ChaineSQL & " " & "FROM machine "
ChaineSQL = ChaineSQL & "WHERE (((machine.Date_install)>=" & Critere1 & " "
ChaineSQL = ChaineSQL & "And (machine.Date_install)<=" & Critere2 & ")) "
ChaineSQL = ChaineSQL & "ORDER BY Machine.Date_install;"
If (ChangeRequeteDef("R_Machine", ChaineSQL)) Then
DoCmd.OpenForm "F_result_intervalle_machine", acNormal, "", "[Date_install]", , acNormal
End If
End Sub
'
Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean
Dim Definition As Variant
If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
ChangeRequeteDef = False
Else
Set Definition = CurrentDb.QueryDefs(ChaineRequete)
Definition.SQL = ChaineSQL
Definition.Close
RefreshDatabaseWindow
ChangeRequeteDef = True
End If
End Function
'
Private Sub Modifiable2_Change()
If (Me.Modifiable2.Text <> "") Then
Me.Modifiable0.SetFocus
If (Me.Modifiable0.Text <> "") Then
Me.Modifiable2.SetFocus
Call Test
End If
End If
End Sub
c'est surtout celui-la qui me bloque mais pour l'autre application, en mettant =Date$, ca fonctionne comme il faut
en gros si ca peut plus t'aider