Bonjour mes héros
quelqu'un pourrais me dire pourquoi mon click sur oui ou non de la msgbox ne
me déclenche les valeurs de résultats demandés (à prioir, il ne trouve pas
aprés mon click si c'est oui ou non mais il trouve vide!) Qu'est ce que je
fais de travers?
Private Sub remplirliasse_Click()
On Error GoTo Err_remplirliasse_Click
Me![valider liasse].Value = True
If Me![valider liasse].Value = False Then Me![valider liasse].Value = True
If Me!fermée.Value = True Then MsgBox "Liasse fermée, voulez vous rajouter
des enregistrements?", vbYesNo
If vb = yes Then
Me!fermée.Value = False
Dim stDocName As String
Dim stLinkCriteria As String
ElseIf vb = no Then
MsgBox "la liasse sera ouverte en lecture seule"
Dim stDocNam As String
Dim stLinkCriteri As String
stDocNam = "liasse"
stLinkCriteri = "[liasse]=" & "'" & Me![liasse] & "'"
DoCmd.OpenForm stDocNam, , stLinkCriteri, , acFormReadOnly
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Opium,
Je crois que ta question s'adressait au forum Access
Essaie ce cette manière... il est préférable de faire la déclaration des variables se fait en début de procédure.
If Me!fermée.Value = True Then If MsgBox("Liasse fermée, voulez vous rajouter " & _ "des enregistrements?", vbYesNo + vbInformation, _ "Attention") = vbYes Then
Le code si oui
End if Else
End if
"Opium" a écrit dans le message de groupe de discussion : Bonjour mes héros quelqu'un pourrais me dire pourquoi mon click sur oui ou non de la msgbox ne me déclenche les valeurs de résultats demandés (à prioir, il ne trouve pas aprés mon click si c'est oui ou non mais il trouve vide!) Qu'est ce que je fais de travers?
Private Sub remplirliasse_Click() On Error GoTo Err_remplirliasse_Click
Me![valider liasse].Value = True If Me![valider liasse].Value = False Then Me![valider liasse].Value = True
If Me!fermée.Value = True Then MsgBox "Liasse fermée, voulez vous rajouter des enregistrements?", vbYesNo If vb = yes Then Me!fermée.Value = False Dim stDocName As String Dim stLinkCriteria As String
ElseIf vb = no Then MsgBox "la liasse sera ouverte en lecture seule" Dim stDocNam As String Dim stLinkCriteri As String stDocNam = "liasse" stLinkCriteri = "[liasse]=" & "'" & Me![liasse] & "'" DoCmd.OpenForm stDocNam, , stLinkCriteri, , acFormReadOnly
Je crois que ta question s'adressait au forum Access
Essaie ce cette manière...
il est préférable de faire la déclaration des variables se fait en début de procédure.
If Me!fermée.Value = True Then
If MsgBox("Liasse fermée, voulez vous rajouter " & _
"des enregistrements?", vbYesNo + vbInformation, _
"Attention") = vbYes Then
Le code si oui
End if
Else
End if
"Opium" <Opium@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: 0C035E2A-8B59-4CE2-8AC8-7C855C6DCEE2@microsoft.com...
Bonjour mes héros
quelqu'un pourrais me dire pourquoi mon click sur oui ou non de la msgbox ne
me déclenche les valeurs de résultats demandés (à prioir, il ne trouve pas
aprés mon click si c'est oui ou non mais il trouve vide!) Qu'est ce que je
fais de travers?
Private Sub remplirliasse_Click()
On Error GoTo Err_remplirliasse_Click
Me![valider liasse].Value = True
If Me![valider liasse].Value = False Then Me![valider liasse].Value = True
If Me!fermée.Value = True Then MsgBox "Liasse fermée, voulez vous rajouter
des enregistrements?", vbYesNo
If vb = yes Then
Me!fermée.Value = False
Dim stDocName As String
Dim stLinkCriteria As String
ElseIf vb = no Then
MsgBox "la liasse sera ouverte en lecture seule"
Dim stDocNam As String
Dim stLinkCriteri As String
stDocNam = "liasse"
stLinkCriteri = "[liasse]=" & "'" & Me![liasse] & "'"
DoCmd.OpenForm stDocNam, , stLinkCriteri, , acFormReadOnly
Je crois que ta question s'adressait au forum Access
Essaie ce cette manière... il est préférable de faire la déclaration des variables se fait en début de procédure.
If Me!fermée.Value = True Then If MsgBox("Liasse fermée, voulez vous rajouter " & _ "des enregistrements?", vbYesNo + vbInformation, _ "Attention") = vbYes Then
Le code si oui
End if Else
End if
"Opium" a écrit dans le message de groupe de discussion : Bonjour mes héros quelqu'un pourrais me dire pourquoi mon click sur oui ou non de la msgbox ne me déclenche les valeurs de résultats demandés (à prioir, il ne trouve pas aprés mon click si c'est oui ou non mais il trouve vide!) Qu'est ce que je fais de travers?
Private Sub remplirliasse_Click() On Error GoTo Err_remplirliasse_Click
Me![valider liasse].Value = True If Me![valider liasse].Value = False Then Me![valider liasse].Value = True
If Me!fermée.Value = True Then MsgBox "Liasse fermée, voulez vous rajouter des enregistrements?", vbYesNo If vb = yes Then Me!fermée.Value = False Dim stDocName As String Dim stLinkCriteria As String
ElseIf vb = no Then MsgBox "la liasse sera ouverte en lecture seule" Dim stDocNam As String Dim stLinkCriteri As String stDocNam = "liasse" stLinkCriteri = "[liasse]=" & "'" & Me![liasse] & "'" DoCmd.OpenForm stDocNam, , stLinkCriteri, , acFormReadOnly
If Reponse Then Resultat = MsgBox("Liasse fermée, voulez vous rajouter des enregistrements?", vbYesNo) End If
If Resultat = vbYes Then MsgBox "Vrai" Else If Resultat = vbNo Then MsgBox "la liasse sera ouverte en lecture seule" End If End If
End Sub
mousnynao
"Opium" a écrit :
Bonjour mes héros quelqu'un pourrais me dire pourquoi mon click sur oui ou non de la msgbox ne me déclenche les valeurs de résultats demandés (à prioir, il ne trouve pas aprés mon click si c'est oui ou non mais il trouve vide!) Qu'est ce que je fais de travers?
Private Sub remplirliasse_Click() On Error GoTo Err_remplirliasse_Click
Me![valider liasse].Value = True If Me![valider liasse].Value = False Then Me![valider liasse].Value = True
If Me!fermée.Value = True Then MsgBox "Liasse fermée, voulez vous rajouter des enregistrements?", vbYesNo If vb = yes Then Me!fermée.Value = False Dim stDocName As String Dim stLinkCriteria As String
ElseIf vb = no Then MsgBox "la liasse sera ouverte en lecture seule" Dim stDocNam As String Dim stLinkCriteri As String stDocNam = "liasse" stLinkCriteri = "[liasse]=" & "'" & Me![liasse] & "'" DoCmd.OpenForm stDocNam, , stLinkCriteri, , acFormReadOnly
If Reponse Then
Resultat = MsgBox("Liasse fermée, voulez vous rajouter des
enregistrements?", vbYesNo)
End If
If Resultat = vbYes Then
MsgBox "Vrai"
Else
If Resultat = vbNo Then
MsgBox "la liasse sera ouverte en lecture seule"
End If
End If
End Sub
mousnynao
"Opium" a écrit :
Bonjour mes héros
quelqu'un pourrais me dire pourquoi mon click sur oui ou non de la msgbox ne
me déclenche les valeurs de résultats demandés (à prioir, il ne trouve pas
aprés mon click si c'est oui ou non mais il trouve vide!) Qu'est ce que je
fais de travers?
Private Sub remplirliasse_Click()
On Error GoTo Err_remplirliasse_Click
Me![valider liasse].Value = True
If Me![valider liasse].Value = False Then Me![valider liasse].Value = True
If Me!fermée.Value = True Then MsgBox "Liasse fermée, voulez vous rajouter
des enregistrements?", vbYesNo
If vb = yes Then
Me!fermée.Value = False
Dim stDocName As String
Dim stLinkCriteria As String
ElseIf vb = no Then
MsgBox "la liasse sera ouverte en lecture seule"
Dim stDocNam As String
Dim stLinkCriteri As String
stDocNam = "liasse"
stLinkCriteri = "[liasse]=" & "'" & Me![liasse] & "'"
DoCmd.OpenForm stDocNam, , stLinkCriteri, , acFormReadOnly
If Reponse Then Resultat = MsgBox("Liasse fermée, voulez vous rajouter des enregistrements?", vbYesNo) End If
If Resultat = vbYes Then MsgBox "Vrai" Else If Resultat = vbNo Then MsgBox "la liasse sera ouverte en lecture seule" End If End If
End Sub
mousnynao
"Opium" a écrit :
Bonjour mes héros quelqu'un pourrais me dire pourquoi mon click sur oui ou non de la msgbox ne me déclenche les valeurs de résultats demandés (à prioir, il ne trouve pas aprés mon click si c'est oui ou non mais il trouve vide!) Qu'est ce que je fais de travers?
Private Sub remplirliasse_Click() On Error GoTo Err_remplirliasse_Click
Me![valider liasse].Value = True If Me![valider liasse].Value = False Then Me![valider liasse].Value = True
If Me!fermée.Value = True Then MsgBox "Liasse fermée, voulez vous rajouter des enregistrements?", vbYesNo If vb = yes Then Me!fermée.Value = False Dim stDocName As String Dim stLinkCriteria As String
ElseIf vb = no Then MsgBox "la liasse sera ouverte en lecture seule" Dim stDocNam As String Dim stLinkCriteri As String stDocNam = "liasse" stLinkCriteri = "[liasse]=" & "'" & Me![liasse] & "'" DoCmd.OpenForm stDocNam, , stLinkCriteri, , acFormReadOnly