Access VBA

Fermé

Utilisateur anonyme - 12 oct. 2007 à 11:27
blux Messages postés 26823 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 30 avril 2025 - 12 oct. 2007 à 13:12

Bonjour,
je voudrais savoir ce que fait ce "truc"..

Private Sub Bouton31_Click()
On Error GoTo Err_Bouton31_Click

DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20

Exit_Bouton31_Click:
Exit Sub

Err_Bouton31_Click:
MsgBox Error$
Resume Exit_Bouton31_Click

End Sub

Merci d'avance..

A voir également:

Access VBA
Access appdata - Guide
Excel compter cellule couleur sans vba - Guide
Acer quick access - Forum logiciel systeme
Find vba - Astuces et Solutions
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

Utilisateur anonyme
12 oct. 2007 à 13:03

Plz I need help :-(

Réponse 2 / 2

blux Messages postés 26823 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 30 avril 2025 3 335
12 oct. 2007 à 13:12

Salut,

tu es bien pressé, dis-donc... On ne peut plus aller manger ? :-)

D'après l'aide d'access, cela pourrait correspondre à 'sélectionner tous les enregistrements'

Tu as essayé ?

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

Désinstaller ACER QUICK ACCESS

Bonjour,
Ce Quick Access me pose des problèmes et j'aimerais le désinstaller. Malheureusement, en désinstallation de programme, je me trouve coincée à un moment par un message me disant que je n'ai pas les droits pour modifier certains services...
Je cherche donc un autre moyen (simple car je ne suis pas experte) pour désactiver ce truc qui ne me sert vraiment à rien et qui se révèle gênant. Merci de votre aide.

Configuration: Windows / Mozilla 11.0