J'ai un formulaire de demande qui a un bouton Soumettre. En cliquant sur Click, j'aimerais que l'accès pour vérifier la date de soumission pour voir si elle est supérieure à 15h00 aujourd'hui. Si oui, alors une boîte de message apparaît pour que vous puissiez modifier la date requise et resoubmit.
C'est ce que j'ai essayé, mais erreurs dehors. P>
Assister si possible P>
Dim mDate As Date
mDate = DateValue(Me.tblEntered)
IIf (mDate > "3:00 pm")
If MsgBox("You are submitting a request after the 3:00 PM cutoff time. " & Chr(13) & _
"You should change your request to the next day. Do you want to change your request date?", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then
DoCmd.Save
Else
MsgBox "Please make changes and resubmit"
End If
3 Réponses :
Il existe plusieurs erreurs avec votre code (extrémité "IIF", à l'aide de "iIF" au lieu de "si", flou de votre chèque de date oui / aucune réponse)
Je ne connais pas le format / contenu de Votre source: me.tblentered est-ce juste une date ou est-ce la date et l'heure? Si vous inclut le temps, puis modifiez ma "date + n ° 3: 00h00: 00 pm #"
Oui, la source est la date et l'heure, lorsque vous dites modifier, que dois-je modifier? Lorsque j'ajoute le code et exécuté, il ferme le formulaire.
Pour clarification, je suppose que vous ne vous souciez pas de l'heure du bouton Soumettre, vous ne vous souciez que de la valeur de date / heure située dans 'me.tblentred'? En ce qui concerne la forme étant fermée, nous n'avons aucune idée du code que vous n'avez pas inclus. Votre logique vérifie s'il est après 15h, et si oui, demande si vous souhaitez enregistrer. Si c'est avant 15h, que voulez-vous faire? Sauvez-le aussi? Si oui, ajoutez un "autre" et "docmd.save"
Vous devez utiliser datrodiff pour ceci:
Dans une requête Utilisez:
Dim mDate As Date
If format(mDate,"hh") >= 15 Then ' Today at 3PM
If MsgBox("You are submitting a request after the 3:00 PM cutoff time. " & Chr(13) & _
"You should change your request to the next day. Do you want to change your request date?", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then
DoCmd.Save
Else
MsgBox "Please make changes and resubmit"
End If
End If