Format de date access plutot urgent
seblekiller_oupas
Messages postés
397
Statut
Membre
-
seblekiller_oupas Messages postés 397 Statut Membre -
seblekiller_oupas Messages postés 397 Statut Membre -
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
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
quel est le code de la fonction qui donne la liste des dates supérieures à la textbox ?-
Merci de me repondre le voici:
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
-
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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)))-
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- 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!!
-
