Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 08/12/2011, 19h21   #1
Invité de passage
 
Femme
Développeur .NET
Inscription : décembre 2011
Messages : 8
Détails du profil
Informations personnelles :
Sexe : Femme
Localisation : Maroc

Informations professionnelles :
Activité : Développeur .NET
Secteur : Communication - Médias

Informations forums :
Inscription : décembre 2011
Messages : 8
Points : 1
Points : 1
Par défaut type de données incompatible dans l'expression du critère

Slt tout le monde
j'ai une application que je realise sous visual basic 2008
et une base de donnée sous access 2008
j'ai fait 2 formulaires de mise a jour et tout marche tres bien
le probleme se pose quand j'ai voulu faire un formulaire de consultation par code j'ai ecrit le code comme suit


Code :
1
2
3
4
5
6
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1.SelectedIndexChanged
        ds.Clear()
        Dim dd As New OleDbDataAdapter("select * from reglamation where code_de_agence=" & Me.C1.Text & "'", con)
        dd.Fill(ds, "1")
        DataGrid.DataSource = ds.Tables("1")
    End Sub
mais j'ai recu un message d'erreur:
type de données incompatible dans l'expression du critère


pouvez vous m'aider parceque je trouve pas un erreur dans la requete priere de m'aider dans le plus vite possible
merci
rachaexeptionnelle est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 09/12/2011, 09h19   #2
Expert Confirmé
 
Avatar de pc75
 
Inscription : septembre 2004
Messages : 2 805
Détails du profil
Informations personnelles :
Âge : 56
Localisation : France, Paris (Île de France)

Informations forums :
Inscription : septembre 2004
Messages : 2 805
Points : 3 003
Points : 3 003
Bonjour,

A priori, il te manque une quote.

Code :
1
2
Dim dd As New OleDbDataAdapter("select * from reglamation where code_de_agence='" & Me.C1.Text & "'", con)
__________________
Par principe, je ne réponds pas aux messages URGENT.
Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
pc75 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/12/2011, 16h58   #3
Invité de passage
 
Femme
Développeur .NET
Inscription : décembre 2011
Messages : 8
Détails du profil
Informations personnelles :
Sexe : Femme
Localisation : Maroc

Informations professionnelles :
Activité : Développeur .NET
Secteur : Communication - Médias

Informations forums :
Inscription : décembre 2011
Messages : 8
Points : 1
Points : 1
merci infiniment de m'avoir repondu mais j'ai déja trouvé la solution
merci comme meme
rachaexeptionnelle est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 01h07.


 
 
 
 
Partenaires

Hébergement Web