Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Acces: edit wordt niet opgeslagen

Anoniem
A Marquart
2 antwoorden
  • In een dialog staat een Listbox met een lijst pipetnamen. Er kunnen verschillende pipetnamen gekozen worden die dan aan een opgegeven eigenaar gekoppeld worden. De lijst pipetten in de listbox is afkomstig van dezelfde tabel als welke hieronder geopend wordt.
    Het probleem is dat veranderingen in deze tabel niet opgeslagen worden.
    Weet iemand wat ik fout doe ?


    [code:1:20366463c9]'open database
    Dim dbs As Database
    Dim rst As DAO.Recordset

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("Pipetten", dbOpenDynaset)

    'loop door de aangeklikte lijst
    Dim vItem As Variant
    Dim Criterium1 As String
    Dim Criterium2 As String
    Dim FString As String

    'for each pipet
    FString = ""
    For Each vItem In Me!lstPipetten.ItemsSelected
    Criterium1 = Me!lstPipetten.ItemData(vItem)
    Criterium2 = Me!txtGebruiker
    FString = FString & " pipAuto =" & Criterium1 & " AND refEigenaar= " & Criterium2

    'kijk of de koppeling al bestaat
    rst.FindFirst FString
    If rst.NoMatch Then

    'assign new owner to pipet
    rst.Edit
    rst!refEigenaar = Criterium2 'wordt niet opgeslagen ?
    rst.Update

    End If

    Next vItem
    'end for each

    'close recordset
    rst.Close
    dbs.Close[/code:1:20366463c9]
  • Heb het zelf niet kunnen uitproberen maar als ik je code zo gauw even bekijk heb ik het vermoeden dat na de FindFirst je recordset niet meer juist gepositioneerd staat.

    Als dit juist is zou je kunnen proberen de findfirst op een clone van de recordset te doen en afhankelijk van het resultaat het record van de originele recordset te updaten.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.