ADO vb6

touta88 Messages postés 5 Date d'inscription jeudi 17 mai 2012 Statut Membre Dernière intervention 4 juin 2012 - 17 mai 2012 à 13:31
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 17 mai 2012 à 14:48
je suis actuellement en train de développer une application VBA sous excel 2007 . Mon outil communique avec une base de donnée ACCESS via l'objet ADO pour afficher les donnés nécessaires a chaque étape (passage de ID 1 à2 de tableau Access par exemple) je fais une fonction d'optimisation programmer mais lorsque je clique sur cette bouton d'optimisation les valeurs tirer par l'ADO sont remise a zéros et lorsque j'affiche le valeur suivant l'optimisation ne fonctionne pas je vous donne le programmation de bouton optimiser Dim X As Integer
Text2.Text = X
If Text2.Text = 2 Then
Check1.Value = 0
Check2.Value = 1
Check3.Value = 1
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Label7.Caption = "Vérification du plan de fréquence -Downtilt des sources interférentes-Réduction de la puissance d'émission de la BTS"
Label5.Caption = "Interférence moyenne"
Else

Check1.Value = 0
Check2.Value = 1
Check3.Value = 0
Check4.Value = 1
Check5.Value = 1
Check6.Value = 0
Label7.Caption = "Vérification du plan de fréquence -Downtilt des sources interférentes-Réduction de la puissance d'émission de la BTS"
Label5.Caption = "Trop d'interférence"
End If
End If
End If
avec Text2.text est le contenu de case que ces valeurs sont tirer par ADO

1 réponse

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
17 mai 2012 à 14:48
Bonjour,

VBA sous excel 2007
VB.NET et VB 2005 > Base de données > Access > ADO vb6

Je déplace donc dans VBA.

Concernant le code, lis le point 2 de ma signature.

Sinon, j'ai du mal à comprendre le problème, tu peux reformuler ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
0
Rejoignez-nous