{Access} problème de requêteRésolu/Fermé

Question

Bonjour,

voici mon code :

INSERT INTO Devis ([N° Devis], N°lancement)
SELECT tCréationlancement.N°lancement, tCréationlancement.[N° Devis]
FROM tCréationlancement;

et mon problème c'est que j'ai un  message qui me dit : "l'instruction INSERT INTO contient le nom de champ inconnu suivant : 'N°lancement'. Assurez-vous que vous avez correctement saisi le nom, puis recommencez l'opération".

j'ai regardé et j'ai bien saisi le nom et il m'affiche toujours ce même message.
pouvez-vous m'aider svp ?

Utilisateur anonyme · Answer

Salut,

Met tes champs entre quotes ( " " )

de plus je comprends pas ta requête, car tu fais un select dans Insert 

et INSERT INTO va avec VALUES (....) que tu n'as pas...

Tu veux faire une requête imbriquée???

nikos le grec · Answer

je pense qu'elle s'appelle comme cela
mais laisse tomber c problème n'est pas urgent j'en ai un autre

Utilisateur anonyme · Answer

lequel??

nikos le grec · Answer

If tCréationlancement.[N°DAS] = ([Form_fNouveaudas].NUMDAS) Then
    MsgBox "N° DAS déjà pris, veuillez en saisir un nouveau", vbCritical, "Attention..."
    Else
        MsgBox "N° DAS disponible, allezzzzzzzz y"
End If

Voilà mon code et cela me marque erreur d'éxécution 424, Objet requis
et comme je suis pas très bon je ne sais pas comment y résoudre et c'est, certes, un petit détail mais c'es très important pour moi.

Utilisateur anonyme · Answer

Attends tu travaille en VBA??

Si oui, tu veux comparer la valeur d'une zone de texte pour voir si elle existe dans ta base c'est sa???

nikos le grec · Answer

oui c'est bien sa.
est-ce possible ?

Utilisateur anonyme · Answer

Oui...

Tu utilise un jeu d'enregistrements pour créer une connexion

après tu fais un requête de selection style

Set rst =TaBase.OpenRecordset("SELECT * FROM NomDeTaTable")


après tu fais une boucle ou tu compare la valeur de ta zone de texte pour voir si elle correspond a ceux de la base.

if not RST.EOF Then

       Rst.MoveFirst

       Do
 
            If zonedetexte = rst.Fields("ChampDelaBase") Then
                  tu fais un traitement
            Else
                  Rst.MoveNext    // tu vas sur l'enregistrement suivant
            End If

       Loop zonedetexte = = rst.Fields("ChampDelaBase") 

End if


J'espère avoir été explicite...

nikos le grec · Answer

j'essaye et puis je te dis si cela marche

nikos le grec · Answer

mais je veux juste comparer j'ai vraiment besoin de faire set rst = etc ?

nikos le grec · Answer

et c'est quoi ce jeu d'enregistrement pour faire la connexion ?

Utilisateur anonyme · Answer

oui tu es obligé...

sinon comment comptes - tu comparer t'es valeur et avec quoi??

il faut que tu lui définisse l'environnement sur lequel ton code va travailler

et tu le fais avec le Set rst = etc....

nikos le grec · Answer

j'ai pas besoin de faire qqch avant le set rst = tec ?

Utilisateur anonyme · Answer

Si tu dois créer un jeu d'enregistrements 

exemple

Dim Base As Database
Dim rst As Recordset

Set Base As CurrentDb <== si tu travaille sur la base en cours, sinon tu met l'emplacement de ta base.

et après tu fais 

Set rst = Base.OpenRecordset("....

nikos le grec · Answer

c'est pas plutôt set rst = currentDb ?

nikos le grec · Answer

ou 
dim bdd as database
dim rst as openrecordset

set bdd=currentdb
set rst = etc.

nikos le grec · Answer

j'ai une autre erreur c'est que le message me marque aucun enregistrement en cours, sais-tu ce que cela veut dire ?

et le déboggeur me met sur cette ligne :"Loop Until ([Form_fNouveaudas].NUMDAS) = Rst.Fields("N°DAS")"

Utilisateur anonyme · Answer

juste avant de répondre : quel est le nom exact de ta textbox???

nikos le grec · Answer

celle qui est à vérifier s'appelle NUMDAS qui vient du formulaire fNouveaudas et le champ dans ma base suivicommercial, il est dans la table DAS et il se nomme N°DAS

Utilisateur anonyme · Answer

Ok dans le loop met 

Loop Until NUMDAS.Value = Rst.Fields("N°DAS")

et dis moi ce que tu as...

Faut pas t'en faire car le mot que tu vois "Aucun enregistrement" est normal... 

je vais t'expliquer après comment le traiter

nikos le grec · Answer

le message que j'ai est "l'expression sur clic entrée comme paramètre etc"

nikos le grec · Answer

tu vois ou pas ?

Utilisateur anonyme · Answer

Euh attends qu'est ce qui génère la vérification c'est un bouton???

nikos le grec · Answer

oui c'est un bouton

nikos le grec · Answer

pourquoi cela change quelque chose ?

nikos le grec · Answer

?
une autre question le signe différent en vb sous access c'est quoi ?

nikos le grec · Answer

tu as la réponse ou pas ?

Utilisateur anonyme · Answer

SAlut,

le signe différent de en ACCESS c'est sa ===>  <>

et est-ce que tu peux me mettre le code de ton bouton car je suis perdu sans matière...Merci

nikos le grec · Answer

Private Sub btnVerification_Click()

Dim bdd As Database
Dim Rst As Recordset

Set bdd = CurrentDb
Set Rst = bdd.OpenRecordset("SELECT DAS.* FROM DAS")

If Not Rst.EOF Then

Rst.MoveFirst

Do

If ([Form_fNouveaudas].NUMDAS) = Rst.Fields("N°DAS") Then
    MsgBox "tout compris mec ..."
Else
Rst.MoveNext
End If

Loop Until (NUMDAS.Value = Rst.Fields("N°DAS")

End If

End Sub

Utilisateur anonyme · Answer

Jten ai fait un qui fonctionne adapte le a ton code et dit moi après ... attention au quotes et tout sa

Private Sub verif_Click()

Dim bdd As DAO.Database
Dim Rst As DAO.Recordset

Set bdd = CurrentDb


If IsNull(NUMDAS) Then
    MsgBox "Rentre un nombre", vbCritical
    Else
    If IsNumeric(NUMDAS) = False Then
    MsgBox "Ceci n'est pas un nombre", vbCritical
    Else
       
        Set Rst = bdd.OpenRecordset("SELECT N°DAS FROM DAS WHERE N°DAS = " & NUMDAS.Value & " ")

        If Not Rst.EOF Then

            MsgBox "tout compris mec ..."
        Else
            MsgBox "rien compris mec ..."
            
        End If

    End If
End If
End Sub

{Access} problème de requête

29 réponses

Discussions similaires

Newsletters