Discussion :

[lucas-18]

Bonjour,

J'ai un sous-formulaire dans lequel j'ai plusieurs champs dont un champ Date avec comme valeur =Date()

Comment procéder pour que l'utilisateur ne puisse pas modifier l'enregistrement en cours à partir du jour qui suit ?

Merci de m'aider svp

[pier.antoine]

Bonjour.

Peut être une solution.

A l'ouverture, faire un test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If MonChampDate < DateduJour Then
me.AllowEdits 
end if

Voici un extrait de l'aide

"La propriété AllowEdits vous permet d'empêcher que des modifications soient apportées aux données existantes affichées par un formulaire. Pour que les données d'un contrôle spécifique ne soient pas modifiées, utilisez les propriétés Enabled ou Locked."


Pierre

[lucas-18]

Bonjour.
A l'ouverture, faire un test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If MonChampDate < DateduJour Then
me.AllowEdits 
end if

Pierre

Merci ; je savais qu'il fallait la propriété Allow Edits mais je ne savais pas comment l'utiliser. Voici mon code sur ouverture du sous-formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
If Begindate < Now Then
Me.AllowEdits
End If
End Sub

Cela ne marche pas, j'ai ce message dans VB :
Compile Error:
Invalid use of property

[rjamin]

Bonjour,

Ne faut-il pas mettre = False ou = True avec AllowEdits

[pier.antoine]

En effet, j'ai oublié un petit truc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If MonChampDate < DateduJour Then
me.AllowEdits = false
end if

Pierre
PS : en cas de souci, ne jamais oublié l'aide en ligne d'access. La recherche de AllowEdits aurait donné la solution

[lucas-18]

En effet, j'ai oublié un petit truc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If MonChampDate < DateduJour Then
me.AllowEdits = false
end if

Pierre
PS : en cas de souci, ne jamais oublié l'aide en ligne d'access. La recherche de AllowEdits aurait donné la solution

Cela ne marche pas ; je ne peux plus rien modifier même les enregistrements qui attraient à la date du jour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
If Datetoday < Date Then
Me.AllowEdits = False
End If
End Sub

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
If Datetoday < Date Then
Me.AllowEdits = False
End If
End Sub

Bonjour

Tu n'aurais pas oublié de finir ta condition par hasard?
Il faut poursuivre ton raisonnement.

[lucas-18]

Bonjour

Tu n'aurais pas oublié de finir ta condition par hasard?
Il faut poursuivre ton raisonnement.

Comme çà tu veux dire ?? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
If Datetoday < Date Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
End Sub

Ca ne marche pas ...

[pier.antoine]

Je pense que pour aller plus loin, il vous fait bien regarder ce que vous voulez faire, le raisonnement, les appels dans un sous formulaire....

Bref, creuse.

Pierre

Exemple :
Dans un premier temps votre code était

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Begindate < Now Then
Me.AllowEdits
End If

Maintenant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Datetoday < Date Then
Me.AllowEdits = False
End If

Que recouvrent : Begindate? Datetoday? Date?

[lucas-18]

J'ai un sous-formulaire avec 2 champs :
- Datetoday : valeur par défaut : =Date()
- Comment

Date dans le code est la date d'aujourd'hui

(begindate était le nom de mon champ auparavant, j'ai changé le nom et c devenu Datetoday c tout)

[Amani Roland]

Cela ne marche pas ; je ne peux plus rien modifier même les enregistrements qui attraient à la date du jour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
If Datetoday < Date Then
Me.AllowEdits = False
End If
End Sub

Bonjour,
Peut être qu'il faut placer ce code lors de l'évènement current pour ne pas geler tous les enregistrements du formulaire à l'ouverture!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Form_Current()
  If Datetoday < Date Then
  Me.AllowEdits = False
End If

End Sub

[etoileetoile]

Essaye ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
If Datetoday.value < Date Then
Datetoday.locked=True
Me.AllowEdits = False
End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Current()
 
Me.AllowEdits = Datetoday.locked
 
End Sub

[lucas-18]

J'ai mis le code sur Form_Current mais j'ia le même problème, impossible de modifier TOUS les enregistrements. J'ai essayé les 2 codes suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Current()
  If Datetoday < Date Then
  Me.AllowEdits = False
  Else
  Me.AllowEdits = True
End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Current()
  If Datetoday < Date Then
  Me.AllowEdits = False
End If
End Sub

Ne serait-ce pas au niveau de la formulation de la date du jour dans le code que cela bloque ? Est-ce bien < Date ?

[Amani Roland]

Est-ce bien < Date ?

C'est tout à fait correct!

Datetoday est un nom de champ je suppose!

Essaye de mettre Datetoday au format us avant de faire la comparaison

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function DateUS(ByVal Dt As Variant)
On Error Resume Next
    If IsNull(Dt) Then Exit Function
        DateUS = Month(Dt) & "/" & Day(Dt) & "/" & Year(Dt) 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Form_Current()
    Dim intDifference as integer
    Dim laDate as date
 
    laDate = DateUS(me.Datetoday)
    intDifference = laDate - Date
    Msgbox intDifference 'Juste pour voir la valeur
 
    If intDifference < 0 Then
        Me.AllowEdits = False
    Else
        Me.AllowEdits = True
    End If
End Sub

[lucas-18]

Il y a une erreur de compilation (en rouge dans le code) :

Method or data member not found

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Current()
    Dim intDifference As Integer
    Dim laDate As Date
 
    laDate = DateUS(Me.Datetoday)
    intDifference = laDate - Date
    MsgBox intDifference
 
    If intDifference < 0 Then
        Me.AllowEdits = False
    Else
        Me.AllowEdits = True
    End If
End Sub

[Amani Roland]

Dis nous un peu plus sur Datetoday. (Champ, Controle ou Variable?)

[lucas-18]

Dis nous un peu plus sur Datetoday. (Champ, Controle ou Variable?)

Dans ma table, c'est un champ de type Date/Time dont le format est Short Date
Dans mon sous-formulaire, c'est un champ dont le control source est le champ de ma table et il a comme valeur par défaut =Date()

[lucas-18]

MERCI Amani Roland, j'ai pris ton code mais uniquement sur Form_current et ca marche !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Current()
    Dim intDifference As Integer
    Dim laDate As Date
 
    laDate = Me.Datetoday
    intDifference = laDate - Date
 
    If intDifference < 0 Then
        Me.AllowEdits = False
    Else
        Me.AllowEdits = True
    End If
End Sub

[Tofalu]

Ce qui revient logiquement à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Current()
Me.AllowEdits = CDate(Me.datetoday) <= Date
End Sub