[VBA] Boite a outils inactive

**zorba49** · 22/03/2007, 15h03

Bonjour,

J'ai ouvert un formulaire VB sous access que je souhaite modifier.
Je suis en mode création mais lorsque je veux ouvrir la boite à outils, celle-ci n'est pas active...

C'est plus qu'embetant car je peux rien faire...

Quelqu'un connaitrait la manip a effectuer pour rendre la boite active?

Merci bcp d'avance

**helios77** · 22/03/2007, 15h24

inactive ou invisible ?

Essaie ceci

Code :

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

1
2
 
Application.CommandBars("Control Toolbox").Protection = msoBarNoProtection

Ptetre ca fera sauter la protection

**zorba49** · 22/03/2007, 15h55

ok, merci je vais essayer

par contre, j'ai un autre soucis
je veux juste afficher dans une msgbox l'erreur actuelle en ouvrant ma fenetre
j'ai mis ce code dans le Form_load:

Code :

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

1
2
3
4
5
6
7
 Private Sub Form_Load()
Dim sDateDay
 
    sDateDay = Date
 
MsgBox (sDateDay)
End Sub

mais j'obtiens le msg d'erreur suivant :

Erreur de compilation
Projet ou bibliothèque introuvable

Quelle manip j'ai oublié de faire?

Merci encore

**helios77** · 22/03/2007, 15h58

ptetre ca

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_Load()
Dim sDateDay as Date
 
    sDateDay = Now()
 
MsgBox (sDateDay)
End Sub

**ouskel'n'or** · 22/03/2007, 16h01

Quand tu mets des parenthèses à msgbox, c'est que tu attends une réponse

Code :

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

Result = Msgbox("Quoi encore ? ", "Titre", vbyesno)

Bref, essaie en supprimant les parenthèses

Code :

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

MsgBox sDateDay

**zorba49** · 22/03/2007, 16h07

merci bcp

**zorba49** · 22/03/2007, 16h20

Me revoili...

j'ai voulu compliquer un peu la chose et faire afficher le n° de la semaine en cours
j'ai cherché sur le forum et j'ai trouvé un code le permettant mais je me retrouve avec le même msg d'erreur que tout a l'heure

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
Dim sDateDay As Date
Dim strDate1 As String
 
sDateDay = Now()
strDate1 = "[Sem " & Format(Format(sDateDay, "ww", vbMonday, vbFirstFourDays), "00") & "]"
 
MsgBox strDate1
End Sub

pourtant il y a bien Now() et j'ai enlevé les () du msgbox
cela marchait bien tout a l'heure

je suis dsl mais j'y connais pas gd chose en vb

**zorba49** · 22/03/2007, 17h24

en fait je veux modifier une petite appli vb faite sous access2000 avec access2003
et je rencontre bcp de probleme dont la boite a outils inactive et pleins d'objets non reconnus
je pense que c de la que vient tous mes probs
mais je ne sais pas comment faire pour débloquer et pouvoir apporter des modifs sous access2003 a une appli faite sous access2000

si qq un a une idée ca me debloquerait...

merci!!!

**helios77** · 22/03/2007, 17h42

Pourrais tu juste excétuer ceci

Code :

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

1
2
3
4
 
sub test()
MsgBox Calendar
End sub

Juste pour vérifier si tu n'as pas un problèmle de paramétrage du calendrier
Il devrait s'affciher 0 normalement

**zorba49** · 22/03/2007, 17h59

oui, cela affiche bien 0

le probleme c'est que sur mes formulaires j'ai des zones de texte et des zones de liste
Mes Textbox sont bien reconnus mais pas mes ListBox

par exemple si je fais

Texte0.
cela me propose bien les differentes possibilités pour Texte0
mais
Liste0.
rien

Quand je fais

Code :

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

Texte0.Value=Liste0.Column(0,1)

j'ai

Erreur de compilation
Projet ou bibliothèque introuvable

pour Liste0 qui est bien présent dans mon formulaire

en plus, ce qui est bizarre c'est qd passant par cliq droit, Propriétés, si je connecte direct la Liste0 a ma requete j'ai bien les resultats qui s'affichent!!

je comprend pas bien ce msg d'erreur

**helios77** · 22/03/2007, 18h03

ListeBox ou ComboBox ?
C'est 2 choses différentes

Si c'est une combobox, tu peux faire des trucs genre combobox.value alors que si c'est une listes, tu dois boucler sur les élements et si jamais il est sélectionné, faire un listbox.List(indexSelection) pour en récupérer al valeur

**zorba49** · 22/03/2007, 18h13

c'est une zone de liste
j'ai juste fait un copier/coller d'une zone de liste et d'une zone de texte que j'avais sur un autre formulaire

dans la zone de liste, j'enregistrais mes données issues de ma requete et j'affichais a l'ecran ces données dans des zone de texte
cela marchait nickel!!!

et la (avec access2003?) la zone de liste semble ne pas être reconnue

sur mon ancien formulaire je faisait:

Code :

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

1
2
3
4
5
6
7
Public Sub remplissage()
 
Liste870.RowSource = "SELECT Date_evaluation FROM Aptitude WHERE Nom = (SELECT First(Nom) FROM Identité WHERE ..."
 
Texte860.Value = Liste870.Column(0, 1)
Texte870.Value = Liste870.Column(0, 2)
End Sub

nickel!!

la je veux juste faire

Code :

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

1
2
3
4
5
6
Public Sub remplissage()
 
Liste1.RowSource = "SELECT Nom FROM Employe"
 
Texte1.Value = Liste1.Column(0, 0)
End Sub

et j'ai le msg d'erreur

la je seche...

**AlainTech** · 22/03/2007, 23h50

Erreur de compilation
Projet ou bibliothèque introuvable

indique une Référence manquante.

**zorba49** · 23/03/2007, 11h43

MERCI
et comment faire pour qu'elle ne soit plus manquante cette référence?

**helios77** · 23/03/2007, 11h47

deja va falloir parcourir ton code pas à pas pour voir quel méthode ne marche pas
Ensuite, aller sur un moteur de recherche pour rechercher la librairie où est censé se trouver cette méthode....

**AlainTech** · 23/03/2007, 16h16

Commencer par aller dans les Références et regarder s'il n'y en a pas une marquée Manquante.
Si oui, la décocher.

Après, il faudra voir si cette référence était nécessaire.

[VBA] Boite a outils inactive

VBA Access

Discussions similaires

Partager

Partager