Recherche:

Bonjour

En lisant ce forum j'ai été surprise de trouver beaucoup de discussions sur l'accès aux données Excel ou Access en VB.NET, et la conversion de code de VBA vers VB.NET.

Etant donné que...

Je ne vois rien d'anormal dans ta propriété. S'il y a un problème, c'est sans doute ailleurs: regarde le code où tu changes la valeur de lblsam (es-tu sûr que la valeur a vraiment changé?), celui où...

Bonjour

Je vais devoir creer une base de donnees Access 2003, bilingue anglais-russe. J'utilise la version anglaise d'Office. Filtrer les tables et requetes sur du texte cyrillique a l'air de...

Bonjour
Je ne connais pas assez l'export vers Word pour donner une solution concrète, mais j'ai eu à peu près le même problème pour exporter plusieurs tables vers un même fichier Excel.
Une piste...

As-tu essaye (a la ponctuation pres):


maVar = "Forms!monForm!monObjet"
MsgBox eval(maVar)

Tu peux essayer de mettre dans le code de ton bouton valider:

Private Sub cmdValider_Click()

If Me.MonSousFormulaire.Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Le sous-formulaire est...

Ca dépend pour quoi tu veux utiliser ta requête:

-pour lire/modifer son contenu dans VBA, utilise un recordset. Syntaxe ici :
http://access.developpez.com/faq/?page=SQL

-pour rafraichir ton...

En fait c'est sans doute plus simple de tout faire en VBA plutôt que de passer par une requête :

Sub NumeroterClients()

Dim rsClients As DAO.Recordset
Dim lettre As String, i As Long, chiffres...

La première étape serait de séparer les enregistrements en fonction de la première lettre du nom (ça encore c'est pas trop dur), puis de numéroter les enregistrements en fonction de leur ordre...

Dans le genre basique mais efficace, tu peux créer un formulaire pop-up sur lequel est écrit un truc du genre "veuillez patienter...": tu ouvres le formulaire au début de ton code et tu le fermes à...

Autre possibilité : mettre les propriétés AllowEdits et AllowAdditions du formulaire à False. Ca verrouille tous les champs mais ça ne désactive pas les boutons de commande.

Petite précision
Pour faire ça il te faut des zones de textes plutôt que des étiquettes.

Comme l'a dit Steph9, tu peux recalculer les champs que tu veux en mettant du code sur l'événement Après...

Je suppose que ta checkbox est liée à un champ Selectionné.
Je suis pas bien sûre du code pour imprimer l'état.


Private Sub CmdImprimer_Click()
Dim rsC As Recordset

Set rsC =...

A côté du bouton Résolu on devrait mettre un bouton "C'est de la merde votre truc!" :P

C'est normal, l'export vers Excel copie les valeurs mais pas leur format.

Fais un essai sous Excel pour mettre tes champs au bon format (avec le menu Format/Cells/Number). Quand tu as trouvé,...

Il y a un truc qui ne va pas dans ton code : tu oublies de passer à l'enregistrement suivant avant de remplir la ligne suivante dans Excel.
Il y a peut-être plus efficace, mais voici ce que je te...

J'ai l'impression que si la ligne "FrmJoueurs_SetBoutons_EnLecture" cause une erreur, ta gestion d'erreur lance une boucle infinie, ce qui explique le plantage. Voici ce qui risque de se passer :
...

Si j'ai bien compris la même personne peut-être recommandée par quelqu'un et aussi recommander d'autres personnes. Dans ce cas je mettrais tout dans une seule table, avec comme colonnes Nom (clé de...

Si ta requête contient plusieurs tables, es-tu sûr que tes 5 records correspondent bien à 5 records différents dans l'une des tables, et que ce n'est pas plutôt un seul record de la table 1...

Tu veux bien nous envoyer le texte SQL de la requete avec cnum?

Comment fais-tu exactement ?

Dim requete as string

requete="SELECT SITES.NODOSSIER, SITES.PROPRIETE, SITES.[DOMICILE PROPR], SITES.COMMUNE, SITES.VILLAGE," _
" SITES.LIEUDIT, SITES.FOLIO, SITES.PARCELLE, SITES.CLASSEMENT,...

Si tu veux qu'on te dise ce qui ne va pas faudrait peut-être que tu nous donnes le code de la requête qui ne marche pas...:)

Tu devrais plutôt mettre le nom de la requête entre crochets.


Veux-tu nous envoyer le code SQL de cette requête ?

Déjà tu peux essayer de dissocier ton code comme ça :


Dim n as long
n = DCount("*", SQLfrom, SQLwhere)
Me.lblStatResultats.Caption = n

pour voir laquelle des deux lignes provoque l'erreur:...