Pb requête sous access Fermé

Question

Pardon ne tenait pas conte du message que j'ai précédement envoyer..je l'ai envoyé alor que je navai pa fini de tout expliker

donc j'ai un pb dans ma requete :

jai mis un bouton a coché é il dot meffacer des trucs
voici le code :

Private Sub Cocher30_Click()
Dim mysql As String
If (Me.Cocher30 = -1) Then

mysql = "delete * From T_Format Where CodeFormat = '" & [CodeFormat] & "'"

DoCmd.RunSQL mysql

End If
End Sub

aprés sa me marque erreur d'exécution 3464

type de donnée incompatible dans l'expression du critére

quelqu'un eut il mexpliké a koi sa signifie é comment le corriger ???
merci d'avance !!!!

blux · Answer

Bonjour,

codeformat est le nom d'un champ, mais il ne s'utilise pas tout seul...

Si tu veux en récupérer le contenu et le passer en paramètre de ta requête, il faut mettre :

mysql = "delete * From T_Format Where CodeFormat = '" & [CodeFormat].Value & "'"

vuko · Answer

Bin j'ai essayé ta solution mais sa me marque toujours la même chose :erreur d'exécution 3464 type de donnée incompatible dans l'expression du critére

blux · Answer

Quelle est le type de CodeFormat dans ta table ? numérique ?

Dans ce cas, il ne faut pas mettre de ', ils sont réservés aux chaines de caractères...

mysql = "delete * From T_Format Where CodeFormat = " & [CodeFormat].Value & ";"

caroline2911 · Answer

DoCmd.RunSQL strSql & strSql1 & strSql2 & strSql3

DoCmd.DeleteObject acTable, "essai1"
le programme continu ensuite mais l'erreur apparait sur cette dernière ligne pardon sur l'avant-dernière ligne

Si quelqu'un peut m'aider, ce serait vraiment cool, je bloque !
Merci beaucoup!

caroline2911 · Answer

Bonjour, 
Je gère une base de données sous access dont le principe est de récupérer des chiffres saisis dans un fichier excel et de calculer des moyennes à partir de critères temporels définis.
Tous marchait bien jusqu'à la dernière importation, et aujourd'hui, j'ai ce message d'erreur : erreur d'exécution 3464 
type de donnée incompatible dans l'expression du critére.
Il me semble n'avoir fait aucune manipulation hasardeuse sur la base depuis la dernière fois alors je pige pas trop ce qu'il se passe.

Voilà le code : 

Public Function Traitement_principal()

Dim BD As Database
Dim strTMP, strSql, strSql1, strSql2, strSql3, strSql4, strSql5, strMsg, dtmcpt As String
Dim rstTMP, rstTMP1 As Recordset
Dim intValid As Integer

Set BD = CurrentDb()
DoCmd.SetWarnings False
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IMPORTATION DU FICHIER EXCEL
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'importation de la feuille origine du fichier a_mettre_en_base

DoCmd.TransferSpreadsheet acImport, 0, "origine", "H:\Bases prix\Base_Rungis\a_mettre_en_base_Rungis.xls", True, ""

'mise à jour du libellé region RUNGIS
DoCmd.RunSQL "UPDATE origine SET origine.region = 'RUNGIS FLG'"


'mise en forme du fichier origine si il n'est pas vide
strSql = "SELECT origine.region, origine.date, origine.ref as reference, origine.min as prix_mini, origine.max as prix_maxi, origine.moy as prix_moyen"
strSql1 = " INTO essai1"
strSql2 = " FROM origine"
DoCmd.RunSQL strSql & strSql1 & strSql2

DoCmd.DeleteObject acTable, "origine"

'verification si le fichier importé ne contient pas deux jours identiques
strSql = "SELECT essai1.region, essai1.date, essai1.reference, Avg(essai1.prix_mini) AS prix_mini, Avg(essai1.prix_maxi) AS prix_maxi, Avg(essai1.prix_moyen) AS prix_moyen"
strSql1 = " INTO essai"
strSql2 = " FROM essai1"
strSql3 = " GROUP BY essai1.region, essai1.date, essai1.reference"
DoCmd.RunSQL strSql & strSql1 & strSql2 & strSql3
DoCmd.DeleteObject acTable, "essai1"
le programme continu ensuite mais l'erreur apparait sur la ligne soulignée

Si quelqu'un peut m'aider, ce serait vraiment cool, je bloque !
Merci beaucoup!

Pb requête sous access

5 réponses

Discussions similaires