Format de date access plutot urgent

Fermé

seblekiller_oupas Messages postés 397 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 13 juin 2008 - 9 juin 2008 à 17:01
seblekiller_oupas Messages postés 397 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 13 juin 2008 - 10 juin 2008 à 09:31

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

A voir également:

Format de date access plutot urgent
Format epub - Guide
Telecharger format factory - Télécharger - Conversion & Codecs
Format apfs - Guide
Hp format tool - Télécharger - Stockage

2 réponses

Réponse 1 / 2

yg_be Messages postés 23184 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 septembre 2024 Ambassadeur 1 533
9 juin 2008 à 18:05

quel est le code de la fonction qui donne la liste des dates supérieures à la textbox ?

seblekiller_oupas Messages postés 397 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 13 juin 2008 5
10 juin 2008 à 08:34

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

seblekiller_oupas Messages postés 397 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 13 juin 2008 5 > seblekiller_oupas Messages postés 397 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 13 juin 2008
10 juin 2008 à 08:46

En outre, ceci est le code pour faire un intervalle de dates et non un tri pour les dates superireures

c'est surtout celui-la qui me bloque mais pour l'autre application, en mettant =Date$, ca fonctionne comme il faut

https://www.cjoint.com/?gkjdPIZ3KJ

en gros si ca peut plus t'aider

Réponse 2 / 2

yg_be Messages postés 23184 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 septembre 2024 Ambassadeur 1 533
10 juin 2008 à 09:06

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)))

seblekiller_oupas Messages postés 397 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 13 juin 2008 5
10 juin 2008 à 09:14

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 en fait apres moult essais ca ne fonctionne que sur un de mes deux formulaires d'intervalles

Je sais pas si tu as le temps de regarder brievement mon bout de base mais le bouton intervalle installation machine me pose probleme alors que le garantie marche nickel!!

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!!

Discussions similaires

Prélèvement JM Jacquie et Michel date.

je cherche la date et le lieu de naissance d une personne

Formaté mais pas de connexion Internet ?

le frigo ne marche pas....

Exemple de base de données access

Discussions similaires

Newsletters