Base de donnee liee a des textbox

Question

Salut &#224; tous je vous explique mon probleme.
J ai fait une base de donn&#233;e pour classer des elements dans 5 collections differentes.
   Pour cela j ai creer 5 tables dans access. Dans ces tables ce trouvent mes elements et leur caract&#233;ristiques.  Quand je click sur un element, les caract&#233;ristiques s affichent dans les controles text qui sont li&#233;s a ,par exemple, a la table manga quand la collection manga est selectionn&#233;e.
    Le probleme est que quand je change de collection et donc de table, je lie les controles &#224;  &#224; la table correspondante et lors de ce changement j obtient une erreur.
   Est ce que quelqu un pourrait m aider merci !!!

Voici l erreur 

" Field not updatable" et sa pour chaque controle text contenant du texte
Je crois qu il essaie de mettre a jour automatiquement ...

cs_ITALIA · Answer

Donnes la partie du code qui plante !! &#231;a pourait aider

It@li@

adess00 · Answer

Voila !

Dim nr As Integer


If Comboc.Text = "Ajouter ..." Then
addc.Show
Exit Sub
End If


List1.Clear
Data.rsCollections.MoveFirst


cn = "Nom" + "=" + "'" + Comboc.Text + "'"
Data.rsCollections.Find cn, , , 1
DoEvents
azrz = Data.rsCollections.AbsolutePosition


nr = Val(col.Text)
If col.Text = "" Then Exit Sub


tfilm.DataMember = Data.Commands(nr).Name
tfilm.DataField = "C1"


'remplie la liste
Do


If tfilm.Text = "" Then Exit Sub
List1.AddItem tfilm.Text


Data.Recordsets(nr).MoveNext


Loop Until Data.Recordsets(nr).EOF = True


Data.Recordsets(nr).MoveFirst
main.tot.Caption = "Total : " + CStr(main.List1.ListCount)



'change les sources de donnees des controles text
comboa.Clear


a = -1
b:
a = a + 1
On Error GoTo fin


Text(a).DataMember = Data.Commands(nr).Name
Text(a).DataField = "C" + CStr(a + 1)
Text(a).Refresh


label(a).DataMember = "Collections"
label(a).DataField = "C" + CStr(a + 1)


If label(a) <> "" Then comboa.AddItem label(a).Caption


GoTo b:


fin:
Data.Recordsets(nr).Sort = "C1"

Base de donnee liee a des textbox

2 réponses

Discussions similaires