PROBLEME DE CODAGE D'UN BOUTONRésolu

Question

bonjour 

j'ai cr&#233;&#233; un formulaire via access, qui doit enregistrer des donn&#233;es, mais mon bouton " validation" ne fonctionne pas !  
voila comment je l'es cod&#233;: 

private Sub Valid_Click()


Dim curdb As Database
Dim rs As Recordset
Dim requete As String
Dim tb As Recordset
Set curdb = CurrentDb
Set tb = curdb.OpenRecordset("Appartenir")
Dim var As Integer
var = 1
 If MsgBox("Voulez-vous vraiment valider ?", vbYesNo, "Validation difinitive") = vbYes Then
     
        Set rs curdb.OpenRecordset("select * from Aippartenir where Appartenir.numper(select Saisie.TitulaireA from [Saisie])", dbOpenDynamic)
     rs.MoveFirst
       
       If ArticleTA <> ArticleSA Then
         tb.AddNew
         tb!liaison = var + 1
         var = var + 1
         tb.Update
         tb.MoveNext
       End If
    
    MsgBox "Donn&#233;es enregistr&#233;es"
 rs.Close
 End If


End Sub

mrdep1978 · Accepted Answer

C'est ta sous-requete qui est fausse.
Si tu &#233;cris ta requete ainsi, la partie "select Saisie.TitulaireA from [Saisie]" 
ne peut ramener qu'un seul enregistrement.

Si elle doit en ramener plusieurs il faut l'&#233;crire ainsi :
select * from Appartenir where Appartenir.numper IN (select Saisie.TitulaireA from [Saisie])

Ou mieux faire une jointure sur les 2 tables :

select Appartenir.* from Appartenir, Saisie where Appartenir.Numper = Saisie.TitulaireA

mrdep1978 · Answer

Je ne sais pas si &#231;a vient de l&#224; mais tu as une erreur dans ta requete SQLSet rs curdb.OpenRecordset("select * from A i ppartenir where Appartenir.numper (select Saisie.TitulaireA from [Saisie])", dbOpenDynamic)

cs_kimou75 · Answer

oui, effectivement, mais j'ai remarqu&#233; cette erreur juste apres avoir post&#233; le message, malgers ca, il y a toujours une erreur dans la requette, car il me dit que la requette ne peut retourner q'une seul donn&#233;e.

PROBLEME DE CODAGE D'UN BOUTON

3 réponses

Discussions similaires