title image


Smiley Re: Acc2000: Tag-Eigenschaft zum Speicherübertrag in eine Tabelle nutzen ....
Eigentlich ist das ja ganz einfach - angenommen, der Feldname der Datenherkunft steht in der Tag-Eigenschaft drin:



Private Sub Speichern_Click()

Dim RS as DAO.Recordset, Ctl as Control, Changed as boolean

set RS = Currentdb.Openrecordset("SELECT * FROM DeineTabelle WHERE ID = " & NZ(Me!ID,-1), dbopendynaset)

if RS.EOF then

RS.Addnew

Changed = True

If NZ(Me!ID,-1) < 0 then Me!ID = NeuerID()

else

RS.Edit

Changed = False

end if

For each Ctl in Me.Controls

If Ctl.Tag "" then

If NZ(RS(Ctl.Tag)) NZ(Ctl.value) then

Changed = True

RS(Ctl.Tag) = Ctl.Value

End if

end if

Next Ctl

If Changed Then RS.update

rs.close

end sub



Man kann aber auch beispielsweise die Feldnamen aus dem Recordset durchlaufen (dabei mal angenommen, dass es zu jedem Feld im Recordset ein gleichnamiges Formularfeld gibt):



Private Sub Speichern_Click()

Dim RS as DAO.Recordset, Fld as DAO.Field, Changed as boolean

set RS = Currentdb.Openrecordset("SELECT * FROM DeineTabelle WHERE ID = " & NZ(Me!ID,-1), dbopendynaset)

if RS.EOF then

RS.Addnew

Changed = True

If NZ(Me!ID,-1) < 0 then Me!ID = NeuerID()

else

RS.Edit

Changed = False

end if

For each Fld in RS.Fields

If NZ(Me(Fld.name)) NZ(Fld.value) then

Changed = True

Fld.Value = Me(Fld.Name)

End if

Next Fld

If Changed Then RS.update

rs.close

end sub





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: