PDA

Vollständige Version anzeigen : ItemSelecteted Datentyp?


jpfliegner
20.01.2003, 15:49
hallo leute,

habe folgendes Problem:

Private Sub btnCopy_Click()
Dim sel As Recordset
Dim cnt As Control
Dim varSel As Variant
Set sel = CurrentDb.OpenRecordset("tblADRVersandliste", dbOpenDynaset)
Set cnt = Forms!frmVersandEdit!lstKat
If IsNull(Me!lstVer) = False Then
MsgBox "Bitte Wählen Sie eine Versandliste, oder legen eine neue Versandliste an!"
Else
For Each varSel In cnt.ItemsSelected

sel.AddNew
sel!lngADR_VLiAdressenREF = cnt.ItemData(varSel)
sel!lngADR_VLiVersandlisteREF = Me!cmbVer
sel!lngADR_VLiAnsprechpartnerREF = cnt.Column(varSel, 9)
sel.Update
Next varSel
sel.Close
Me!lstVer.Requery
End If
End Sub

das problem ist wohl in der zeile
sel!lngADR_VLiAnsprechpartnerREF = cnt.Column(varSel, 9)
ich möchte für jeden in der liste lstKat ausgewählten Eintrag den in spalte 10 eingatragenen wert auslesen und mit in die zieltabelle speichern. aber es funzt net. ohne die zeile funktionierts. mit der zeile meldet access datentypenunverträglichkeit. was hab ich da schon wieder vermurkst?

Steve1974
20.01.2003, 16:42
Hi !

Der erste Parameter bei cnt.Column ist die Spalte, und der zweite die Zeile. Also wenn Du die Spalte 10 haben willst musst Du

sel!lngADR_VLiAnsprechpartnerREF = cnt.Column(9, varSel )

nehmen. vielleicht wars das ?,

Gruß,

Steve.

jpfliegner
20.01.2003, 17:52
dein name sei meister.

das war es tatsächlich. herzlichen dank für schnelle hilfe.

jp :D