Problème de code vba ligne if surligné en jaune

Version imprimable

Voir 40 message(s) de cette discussion en une page

05/08/2009, 09h48
Domi2
Bonjour,

En mode création de ton formulaire, dans les propriétés, tu cliques dans l'événement Avant MAJ, puis sur les ... à droite et tu cliques sur générateur de code.

Cela te génère du code dans l'éditeur :
Code:

1 2 3 Private Sub Form_BeforeUpdate(Cancel As Integer) End Sub
Tu colles le code donné plus haut entre ce deux lignes.

Et si tu as des erreurs, merci de poster le code en entier en indiquant quelle ligne est surlignée en jaune.

Domi2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Date_BeforeUpdate(Cancel As Integer)
'Teste la présence d'enregistrement
Me.RecordsetClone.MoveLast
 
If Me.RecordsetClone.RecordCount > 0 Then
 
    'Teste la présence d'un éventuel doublon s'il s'agit d'un nouvel enregistrement ou en cas de modification du champ strDatectc
    If Not Me.NewRecord And Me.strDatectcm.Value = Me.strDatectc.OldValue Then Exit Sub
 
    With Me.RecordsetClone
 
        .rst.FindFirst "Datectc = #" & Format(Me.strDatectc.Value, "mm\/dd\/yyyy") & "#"
 
        If Not .NoMatch Then
 
            'Message d 'erreur
            msgbox "la date saisie existe déjà dans la base de donnée"
 
            Me.strDatectc.SetFocus
 
            Cancel = True
 
            Exit Sub
 
        End If
 
    End With
 
End If
End Sub

Ligne surligné en jaune :

Code:

Private Sub Date_BeforeUpdate(Cancel As Integer)

et aussi dans la ligne :

Code:

If Not Me.NewRecord And Me.strDatectcm.Value = Me.strDatectc.OldValue Then Exit Sub

j'ai

Code:

.strDatectcm

qui est selectionné (comme si j'avais cliqué dessus avec ma souris) et il y a un msg d'erreur

Citation:

membre de méthode ou de donnée introuvable

06/08/2009, 09h18
Domi2
Bonjour,

Citation:

Ligne surligné en jaune :

Code:

Private Sub Date_BeforeUpdate(Cancel As Integer)

C'est que tu n'as sans doute pas de champ dont le "Nom" est "Date". De toute façon, c'est mieux ainsi, il faut absolument éviter d'utiliser des termes réservés.

Ceci étant, comme je l'ai indiqué plus haut, utilise plutôt l'événement Avant MAJ du formulaire, (voir discussion du 05.08.2009 à 09h48).
Code:

1 2 3 Private Sub Date_BeforeUpdate(Cancel As Integer) End sub
Citation:

j'ai

.strDatectcm qui est selectionné (comme si j'avais cliqué dessus avec ma souris) et il y a un msg d'erreur

Relire mon message du 04.08.2009 à 20h23.

Tu as "Datectcm" comme "Nom" du champ dans ta table et comme "Nom" du contrôle qui affiche cette info dans ton formulaire. Le genre de confusion qu'Access n'apprécie pas beaucoup.

Tu dois donc renommer le champ du formulaire qui affiche ta date en "strDatectc". Tu peux lui donner un autre nom (sauf "Datectc" et encore moins "Date"). Dans ce cas, il te faudra adapter ton code en conséquence.

Domi2
06/08/2009, 14h05
Piccou

ok j'ai essayer ce code, rien ne beug mais...

On touche au but je pense c'est à dire que le code ne marche pas pour unz bonne raison, mais avant je doit peut être faire une mise au point sur la procédure de saisie:

J'ai une table DATE SCTC qui est utilisé dans le formulaire (lorsqu'on tape dans la zone de texte c'est dans cette table qu'est enregistré la date), Une table Date ctc qui contient toute les dates rentré dans DATE SCTC. Puis ma table HISTO SCTC qui contient mes dates avec mes indices et mes valeurs.

L'action se déroule ainsi. J'ai créer un sous formulaire datectc à partir du champs "strDatectc" de la table DATE SCTC, et un sous formulaire Valeurs SCTC à partir d'une table VALEURS SCTC. C'est deux sous formulaires forment un formulaire de saisie SCTC. Lorsque que le formulaire est complété les choses se déroulent comme ça: (le tout dans une macro associé au bouton enregistrer)
avec une requête "déverser date" la date saisie et envoyer dans ma table Date ctc pour y être conserver
Ensuite avec une requête "déverser" les valeurs et la date saisie sont envoyer dans ma table HISTO SCTC pour y être historisé.
Tout ça parce que après je dois faire une interpolation linéaire sur les indices.
De plus, lorsque la personne ouvre le formulaire à partir du formulaire d'accueil, il clique sur un bouton associé à une macro qui éxécute ceci:
Avec une requête elle fait une MAJ des valeurs de ma table VALEURS SCTC pour, et une autre requête fait une MAJ des valeurs de ma table DATE SCTC pour que mon formulaire de saisie soit vierge de ces valeurs pour l'utilisateurs.

Après cette parenthèse venons en au fait:

Code:

Private Sub strDatectc_BeforeUpdate(Cancel As Integer)

représente le champs de ma zone de texte ou est saisie la date :

mais voilà c'est pas dans la table associé à se formulaire qu'il faut chercher la une date éxistante puisqu'elle sera forcément mise à jours, il faut chercher dans la table Date ctc et le champs Datectc.
c'est pourquoi domi ton code marche je pense, enfin ça plante pas, mais il ne trouve rien puisque cette table est vide au moment ou il s'exécute

La me vient une autre pensée. Je ne pourrai pas faire plus simple avec un formulaire à base d'une table HISTO SCTCet Date ctc (ou je mettrai indéxé sans doublon, ce qui vérifira ma date), qui serait vierge à chaque fois, sans requête de MAJ?. Enfin un vrai masque de saisie quoi

Cordialement

ps: est ce qu'il y a sur ce forum un moteur de recherche de topic?
06/08/2009, 14h45
Tyria

J'ai arrété de suivre depuis que Domi a reprise la relève mais voici la page de recherche :http://www.developpez.net/forums/search.php
07/08/2009, 03h56
petitbison

bonjour,
eh les mecs,
j'ai lu, en diagonale, le problème alors pourquoi ne pas utiliser simplement une modifiable,de mettre sa LimitToList à true puisque les dates proviennent d'une table déjà existante ( et donc date valide, enfin sans intervalle) et d'exploiter l'événement NotInList(.............................).

A+
07/08/2009, 09h19
Piccou

Tu peux m'expliquer en quoi ça consiste?

Moi je pense que je me suis compliqué la vie, le plus simple aurait été d'avoir une table date une table valeur qui se véverserai dans histo. J'aurai mis indexer sans doublon pour la table date et le pb aurait été réglé.
Mais voila quand je crée mon masque de saisie avec l'assistant formulaire, je me retrouve avec tout les enregistrement précédent.
Il n'y à pas moyen de faire en sorte que les données existante dans la table n'apparaisse pas dans mon masque de saisie
Moyen autre que le mien expliquer deux post plus haut

Voir 40 message(s) de cette discussion en une page