problème dans une fonction [Résolu]

[@rkane]

bonjour à tous

Je me lance dans une fonction, chose pour laquelle je suis totalement novice et j'ai donc créé un module après avoir lu un tuto.

j'appelle une fonction depuis un formulaire, le problème est que à son ouverture la fonction ne récupère pas certaines données disponibles dans le formulaire de départ et en guise de cela une msgbox de test me retourne 31/12/1899...

A savoir, la date et l'heure d'un évènement enregistré.

L'idée est que cette fonction se lancerait à l'ouverture de différents formulaires afin de verrouiller l'enregistrement à l'utilisateur si la date et l'heure de l'évènement = + 24 heures

Pour faciliter l'aide j'ai placé un fichier test en PJ.

Merci d'avance.

[ClaudeLELOUP]

Bonsoir,

Pour faciliter l'aide j'ai placé un fichier test en PJ.

J'ignore si tu plaisantes : le formulaire est caché et quand on le trouve, les contrôles sont invisibles...

[@rkane]

Mille excuses, je suis confus.
En fait j'avais démarré avec des copies de formulaire et table qui sont normalement masqués dans une de mes BDD.
J'ai changé la pièce jointe.

[User]

Bonjour Claude et @rkane,

Première chose :

Si ta procédure verrou est publique et destinée à plusieurs formulaire alors tu dois préciser dans ta Sub à quel formulaire appartiennent les zones de textes "DateEvenement" et "HeureEvenement" :

Du style :

Code :

Verrouillage = (Forms!Test!DateEvenement + Forms!Test!HeureEvenement) + #11:59:00 PM# + #12:01:00 AM#

A+

[Dolphy35]

Salut,

La solution de Denis est nickel .

Une autre solution consiste à passer les informations en paramètre de ta fonction.

Par contre attention aux données. un champ date à pour type Long (32bits) alors que la fonction Now() renvoi une donnée de type Réel Double (64bits). Ormis le faite que la deuxième variable soit deux fois plus gourmande la conversion de c'est données démontre que l'on peut vite avoir quelque chose de faux.

Now stock la date dans l'entier et place l'heure système après la virgule, dans le cas de la date 02/02/2011.

Code :

1
2
?CLng(Date)
 40576

Code :

1
2
?CDbl(now) 
 40576,553275463

et maintenant Long avec now

Code :

1
2
?CLng(now)
 40577

Code :

1
2
?CDate(40577)
03/02/2011

C'est exemple démontre qu'il est facile de se planter.

Dans ton exemple tu utilise Now() pour le champ heure actuelle. Que veux-tu faire exactement avec ce formulaire ?

@++

[@rkane]

bonjour Delphy

alors ce que je faire....

Dans tous les formulaires de ma BDD j'ai du code qui verrouille les données et modifie l'activation des boutons quand la date d'enregistrement est dépassée d'un jour. Mais il apparait à l'usage que c'est un peu brut de décoffrage...
Le problème, entre autres, est que un évènement enregistré à 23h30 est verrouillé une demi heure après, c'est gênant...
Donc je veux affiner ça avec du + 24H00 ou + O8h00 ou plus ou moins c'est à définir avec mon staff.
D'où mon idée de passer par une fonction lancée à l'ouverture d'un formulaire, ce qui aurait l'avantage d'uniformiser la procédure pour tous les autres formulaires. Actuellement :
- la fonction se lance bien.
- la gestion du temps + n heures ça fonctionne.
- le problème majeur est que la fonction ne récupère pas les dates et heures enregistrées dans le formulaire "appelant"... mais la fonction pouvant être appelée depuis moult forms, je ne peux pas nommer le formulaire en dur dans le code de la fonction. Il faut que la fonction sache aller piquer la date et l'heure quelque soit le form appelant.
Là est mon big problème pour l'instant car ça je ne sais pas faire.
En espérant voir été explicite.

[User]

Salut,

Pourquoi comme le suggère Dolphy,

Ne pas utiliser paramètres qui seront les contenus des zones de texte "DateEvenement" et "HeureEvenement":

Exemple de fonction avec paramètres :

Code :

1
2
3
4
5
6
7
8
Sub Verrou(DateEvent As Date, HeureEvent As Date)
Dim Verrouillage As Date
Verrouillage = (DateEvent + HeureEvent) + #11:59:00 PM# + #12:01:00 AM#
If Now() > Verrouillage Then
MsgBox Verrouillage
MsgBox "enregistrement verrouillé"
End If
End Sub

Exemple d'utilisation sur le clic du bouton "test" du formulaire du même nom :

Code :

Call Verrou(Me!DateEvenement, Me!HeureEvenement)

A+

[@rkane]

bonsoir,
j'ai testé ça fonctionne bien, si l'heure courante est > à l'heure de verrouillage j'ai bien le retour par msgbox "enregistrement verrouillé"et dans le cas inverse "enregistrement éditable".
pour la phase test c'est ok mais in fine, je voudrais par exemple appliquer locked = true + enabled = false sur les textbox du formulaire appelant.
Ca je sais faire en designant dans le code le formulaire. Mais dans mon cas, la fonction pouvant etre appelee de n'importe quel autre formulaire, comment permettre à la fonction d'inhiber les champs du bon formulaire à la volée, sans qu'il soit désigné ?

[User]

Bonsoir,

Envoyé par @rkane

Ca je sais faire en designant dans le code le formulaire. Mais dans mon cas, la fonction pouvant etre appelee de n'importe quel autre formulaire, comment permettre à la fonction d'inhiber les champs du bon formulaire à la volée, sans qu'il soit désigné ?

Quand tu parles de "bon formulaire", cela désigne le formulaire actif ?

Sinon, comment faire référence aux zones de texte d'1 autre formulaire sans donner le nom du formulaire ?

[@rkane]

Quand tu parles de "bon formulaire", cela désigne le formulaire actif ?
Sinon, comment faire référence aux zones de texte d'1 autre formulaire sans donner le nom du formulaire ?

Un peu les deux à mon sens, comment la fonction peut-elle connaître le formulaire (actif donc pour le coup) qui l'a appelée afin d'intervenir sur ses champs.
Actuellement, ça fonctionne en nommant le formulaire dans la fonction.

* Je viens de me souvenir d'un code que j'avais utilisé pour gérer la fermeture automatique de la base de données en cas d'inactivité, je vais essayer de broder autour du :

ActiveFormName = Screen.ActiveForm.Name

[@rkane]

bon alors voilà, dans ma fonction j'ai rajouté ça :

Code :

1
2
Dim ActiveFormName As String
ActiveFormName = Screen.ActiveForm.Name

je récupère bien le nom du form actif (j'ai testé avec une msgbox), mais comment puis-je faire pour intervenir sur ses champs ?
Comment remplacer la partie en rouge : Forms!test1.Infos.Caption = "azerty"

[User]

ReBonsoir,

tu peux faire:

Code :

1
2
3
Dim ActiveFormName As String
ActiveFormName = Screen.ActiveForm.Name
Forms(ActiveFormName)!Infos.Caption = "azerty"

A+

[@rkane]

ce matin je reprends le flambeau et j'en suis là :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Verrou(DateEvenement, HeureEvenement)
 
Dim Verrouillage As Date
Dim ActiveFormName As String
Dim ctl As Control
 
ActiveFormName = Screen.ActiveForm.Name
 
Verrouillage = (Forms(ActiveFormName)!DateEvenement + Forms(ActiveFormName)!HeureEvenement) + #11:59:00 PM# + #12:01:00 AM#
 
If Now() > Verrouillage Then
 
For Each ctl In Forms(ActiveFormName)!controls 
 
Forms(ActiveFormName)!ctl.Locked = True  '  ERREUR ICI
 
Forms(ActiveFormName)!ctl.Enabled = False
 
Next ctl
 
End If
 
End Sub

le message d'erreur : "ne trouve pas le champ ctl auquel il est fait reference dans votre expression"

[dumas.blr]

Bonjour @rkane,

Petite question triviale : t'es tu d'abords assuré que ton formulaire sur lequel tu teste ta procédure est bien ouvert et actif ?
Tu peux controler en mettant un point d'arrêt sur la ligne 11 et tester en debug.print ou ajourt un espion sur le Forms(ActiveFormName

[@rkane]

Ben oui puisque j'appelle la fonction sur clic bouton depuis le formulaire

[User]

Salut,

essaie avec:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Verrou(DateEvenement, HeureEvenement)
 
Dim Verrouillage As Date
Dim ActiveFormName As String
Dim ctl As Control
 
ActiveFormName = Screen.ActiveForm.Name
 
Verrouillage = (Forms(ActiveFormName)!DateEvenement + Forms(ActiveFormName)!HeureEvenement) + #11:59:00 PM# + #12:01:00 AM#
 
If Now() > Verrouillage Then
 
For Each ctl In Forms(ActiveFormName).controls 
 
ctl.Locked = True  '  ERREUR ICI
 
ctl.Enabled = False
 
Next ctl
 
End If
 
End Sub

A+

[@rkane]

yep, j'ai déjà essayé mais j'ai le msgbox d'erreur qui me dit :

"erreur d'exécution 338, propriété ou méthode non gérée par cet objet"

[User]

Ouais bah bien sur une étiquette c'est un contrôle qui ne peut être verrouillé

Tu comprends, il faut sélectionner uniquement les zones de textes du formulaire en cours dans la boucle :

essaie ca pour la boucle:

Code :

1
2
3
4
5
6
7
8
For Each ctl In Forms(ActiveFormName).controls 
 
   If TypeName(ctl) = "TextBox"  then
      ctl.Locked = True  
      ctl.Enabled = False
   end if
 
Next ctl

si tu gardes les textbox...

A+

[@rkane]

bonjour User

désolé pour la boulette, je n'ai pas pensé que les étiquettes étaient prises en compte en tant que contrôles.

ton code n'opère pas mais tu m'as mis sur la voie et avec ce code ça fonctionne bien.

Code :

1
2
3
4
5
6
For Each ctl In Forms(ActiveFormName).Controls
   If ctl.ControlType = acTextBox Then
      ctl.Locked = True
      ctl.Enabled = False
   End If
Next ctl

Je n'ai plus qu'à broder autour de ça.

Mille mercis pour ce coup de pouce.

[@rkane]

bonjour User

désolé pour la boulette, je n'ai pas pensé que les étiquettes étaient prises en compte en tant que contrôles.

ton code n'opère pas mais tu m'as mis sur la voie et avec celui ci-dessous ça fonctionne bien. Je colle le code complet, si ça peut aider quelqu'un...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Verrou(DateEvenement, HeureEvenement)
 
Dim Verrouillage As Date
Dim ActiveFormName, ActiveControlName As String
Dim ctl As Control
 
ActiveFormName = Screen.ActiveForm.Name
ActiveControlName = Screen.ActiveControl.Name
Verrouillage = (Forms(ActiveFormName)!DateEvenement + Forms(ActiveFormName)!HeureEvenement) + #11:59:00 PM# + #12:01:00 AM#
 
If Now() > Verrouillage Then
For Each ctl In Forms(ActiveFormName).Controls
   If ctl.ControlType = acTextBox Then
      ctl.Locked = True
      ctl.Enabled = False
   End If
Next ctl
End If
End Sub

Je n'ai plus qu'à broder autour de ça.

Mille mercis pour ce coup de pouce.