Code vba access
HelpMe
-
HelpMe -
HelpMe -
Salut,
j'ai probléme dans mon code vba je ne sait pas d'ou ça viens, dés que je lance mon application, je rempli le champ et çe m'ouvre une fenetre avec écrit ' erreur d'execution 438
propriété ou méthode non gérer par cette objet'.
Voici le code correspondant:
Private Sub Nbr_jour_ouv_AfterUpdate()
nummois = Forms![F MAJ des informations]![Choix_mois]
var_hôtel = Forms![F MAJ des informations]![Liaison15].Formulaire![clé_hôtel]
var_année = Forms![F MAJ des informations]![Liaison15].Formulaire![Clé_année]
If IsNull(Forms![F MAJ des informations]![Liaison15].Formulaire![Nbr_jour_ouv]) = -1 Then
Forms![F MAJ des informations]![Liaison15].Formulaire![Taux_occup_rectif] = Null
Exit Sub
End If
date1 = CVDate("01 " & Str(nummois) & " " & Str(var_année))
date2 = DateAdd("m", 1, date1)
nbrjour = DateDiff("d", date1, date2)
If Forms![F MAJ des informations]![Liaison15].Formulaire![Nbr_jour_ouv] < 1 Or Forms![F MAJ des informations]![Liaison15].Formulaire![Nbr_jour_ouv] > nbrjour Then
MsgBox "Valeur incorrecte !!!", 16, "Attention"
SendKeys "{ESC}", False
End If
End Sub
j'ai probléme dans mon code vba je ne sait pas d'ou ça viens, dés que je lance mon application, je rempli le champ et çe m'ouvre une fenetre avec écrit ' erreur d'execution 438
propriété ou méthode non gérer par cette objet'.
Voici le code correspondant:
Private Sub Nbr_jour_ouv_AfterUpdate()
nummois = Forms![F MAJ des informations]![Choix_mois]
var_hôtel = Forms![F MAJ des informations]![Liaison15].Formulaire![clé_hôtel]
var_année = Forms![F MAJ des informations]![Liaison15].Formulaire![Clé_année]
If IsNull(Forms![F MAJ des informations]![Liaison15].Formulaire![Nbr_jour_ouv]) = -1 Then
Forms![F MAJ des informations]![Liaison15].Formulaire![Taux_occup_rectif] = Null
Exit Sub
End If
date1 = CVDate("01 " & Str(nummois) & " " & Str(var_année))
date2 = DateAdd("m", 1, date1)
nbrjour = DateDiff("d", date1, date2)
If Forms![F MAJ des informations]![Liaison15].Formulaire![Nbr_jour_ouv] < 1 Or Forms![F MAJ des informations]![Liaison15].Formulaire![Nbr_jour_ouv] > nbrjour Then
MsgBox "Valeur incorrecte !!!", 16, "Attention"
SendKeys "{ESC}", False
End If
End Sub
A voir également:
- Code vba access
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
var_hôtel = Forms![F MAJ des informations]![Liaison15].Formulaire![clé_hôtel]
clé hotel c'est le lien entre le formulaire est sous fromulaire.
Peut être que c'est "F MAJ des informations" qui pose problème à cause des espaces.
cette application tourné sous access2 sous le c:\ d'un pc je l'ai copié est passer sous access 2003 je comprend pas pourquoi le code ne fonctionne pas.