Probleem met records kopieeren

[gebo51]

Hallo

Als ik in een gegevensbladformulier met een keuzelijstveld een recordrij wil kopieren wordt bij het plakken de eerste waarde van de keuzelijst (de productnaam) van de betreffende categorie geplakt ipv de werkelijke (gekopieerde) productnaamwaarde.

De keuzelijst heeft een kolom 'productnaam' en een kolom ' categorienaam' en wordt gesorteerd op de categorienaam

Heeft iemand enig idee hoe ik dit kan verhelpen

Thanks

 

[Bartuls]

Als je alleen de naam van de combobox (keuzelijst met invoervak) gebruikt dan krijg je inderdaad alleen de inhoud van de eerste kolom.
De overige kolommen kun je ook uitlezen als je gebruik maakt van de Column property.

Voorbeeld uit de access help functie:
Public Sub Read_ListBox()

Dim intNumColumns As Integer
Dim intI As Integer
Dim frmCust As Form

Set frmCust = Forms!frmCustomers
If frmCust!lstCustomerNames.ItemsSelected.Count > 0 Then

' Any selection?
intNumColumns = frmCust!lstCustomerNames.ColumnCount
Debug.Print "The list box contains "; intNumColumns; _
IIf(intNumColumns = 1, " column", " columns"); _
" of data."

Debug.Print "The current selection contains:"
For intI = 0 To intNumColumns - 1
' Print column data.
Debug.Print frmCust!lstCustomerNames.Column(intI)
Next intI
Else
Debug.Print "You haven't selected an entry in the " _
& "list box."
End If

Set frmCust = Nothing

End Sub

 

[gebo51]

Beste Bartuls,
Bedankt voor je reactie.
Ik heb nog wat vragen:

vraag 1:
Als mijn formuliernaam is 'subfrm acq' en als mijn combobox is genaamd 'kl1'
is de vba hieronder dan correct aangepast?
vraag 2:
Waar plaats ik het vba?? Ik neem aan bij 'gebeurtenis' maar bij welke??

Alvast weer bedank.


Public Sub Read_ListBox()

Dim intNumColumns As Integer
Dim intI As Integer
Dim frmCust As Form

Set frmCust = Forms!frmsubfrm acq
If frmCust!lstCustomerNames.ItemsSelected.Count > 0 Then

' Any selection?
intNumColumns = frmCust!lstCustomerNames.ColumnCount
Debug.Print "The list box contains "; intNumColumns; _
IIf(intNumColumns = 1, " column", " columns"); _
" of data."

Debug.Print "The current selection contains:"
For intI = 0 To intNumColumns - 1
' Print column data.
Debug.Print frmCust!lstCustomerNames.Column(intI)
Next intI
Else
Debug.Print "You haven't selected an entry in the " _
& "list box."
End If

Set frmCust = Nothing

End Sub

 

[Bartuls]

Vraag 1.
Gebruik geen spaties in de namen van formulieren, tabellen, rapporten, queries etc.
Dat geeft alleen maar problemen.

Vraag 2.
Daarvoor zul je moeten vertellen wat je precies waar en wanneer wilt doen in je toepassing.
Dat bepaald waar je de code moet plakken. De code zul je dan nog moeten aanpassen om precies te doen wat jij wilt.


Public Sub Read_ListBox()

Dim intNumColumns As Integer
Dim intI As Integer
Dim frmCust As Form

Set frmCust = Forms![frmsubfrm acq]
If frmCust![kl1].ItemsSelected.Count > 0 Then

' Any selection?
intNumColumns = frmCust![kl1].ColumnCount
Debug.Print "The list box contains "; intNumColumns; _
IIf(intNumColumns = 1, " column", " columns"); _
" of data."

Debug.Print "The current selection contains:"
For intI = 0 To intNumColumns - 1
' Print column data.
Debug.Print frmCust![kl1].Column(intI)
Next intI
Else
Debug.Print "You haven't selected an entry in the " _
& "list box."
End If

Set frmCust = Nothing

End Sub