[VBA Access]

Résolu/Fermé

JEROMAX Messages postés 274 Date d'inscription jeudi 22 février 2001 Statut Membre Dernière intervention 7 octobre 2013 - 20 juil. 2006 à 16:26
JEROMAX Messages postés 274 Date d'inscription jeudi 22 février 2001 Statut Membre Dernière intervention 7 octobre 2013 - 20 juil. 2006 à 16:31

Salut
J'ai un formulaire qui contient uniquement un champ texte.
je cherche à redimensionner ce champ texte lorsque l'utilisateur agrandit ou réduit le formulaire.
Voila mon code qui ne marche pas: l'heure se rafraichit bien dans le champ quand je redimensionne le formulaire mais la taille de txtInfos ne change pas...

Private Sub Form_Resize()
    txtInfos.Value = Format(Now(), "hh:mm:ss") 
    txtInfos.Width = Me.Width - 20
    txtInfos.Top = 10
    txtInfos.Left = 10
End Sub

Je suis par ailleurs étonné de ne pas voir de propriété height pour la form????

Question subsidiaire: pourquoi, lorsque j'affiche l'objet et que je clic droit dessus puis "propriété", j'ai une liste déroulante avec mon champ texte, le nom de mon formulaire et un autre formulaire dont le nom est "formulaire" ?
Quelle est la différence entre les 2 formulaires?

A voir également:

[VBA Access]
Access appdata - Guide
Excel compter cellule couleur sans vba - Guide
Find vba - Astuces et Solutions
Acer quick access - Forum logiciel systeme
Désinstaller ACER QUICK ACCESS - Forum Logiciels

1 réponse

Réponse 1 / 1

JEROMAX Messages postés 274 Date d'inscription jeudi 22 février 2001 Statut Membre Dernière intervention 7 octobre 2013 10
20 juil. 2006 à 16:31

ok j'ai trouvé... :-)
en fait, pour info, c'est insideHeight et insideWidth

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

C'est quoi le runtime Access ?

Bonjour,

il y a des questions que je me pose sur Access : Qu'est ce que le runtime d'Access par rapport à Access en lui-même ? Est ce que ça nécéssite une installation particulière comme Access ? Est ce que ça peut faire tourner des macros ?

Merci de vos réponses !

Configuration: Windows XP / Internet Explorer 7.0

Acer quick access

Bonjour,

Quand j'ouvre ma session, j'ai Acer quick access qui s'ouvre a droite de mon écran mais la fenêtre charge et reste noire tout le temps. Quand je veux la fermer on me dit que le programme ne répond pas.
A quoi sert cette application et est-il possible de la supprimer?
Merci d'avance.

Configuration: Windows / Chrome 54.0.2840.99

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci