nan ca marche po mais merci kan mm
Dark L@nfeust
-------------------------------
Réponse au message :
-------------------------------
> Essaye :
>
> Set rs = DB.OpenRecordset(DELETE FROM LISTE WHERE " & Langue & "1='" & DBList2.Text & "'")
>
>
David 
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > salut tt le monde
> > g un code pour changer un db a partir d'une dblist, par exemple comme ca:
> >
> > If DBList2.Text <> "" Then
> > Dim rs As Recordset
> > Set rs = DB.OpenRecordset("select * from liste where " & Langue & "1='" & DBList2.Text & "'")
> > rs.Delete
> > End If
> > nombre=dblist2.visiblecount
> > do until onombre<>dblist2.visiblecount
> > data2.refresh
> > dblist2.refresh
> > loop
> > mais apres la suppression , il faut plusieurs secondes pour que la dblist se mette a jour !
> > comment y remedier ?
>