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

[VB60, Access]Autonummering en recordstoevoegen

Anoniem
Wiep Corbier
5 antwoorden
  • Ik wil een record toevoegen dmv. update. Ik heb zes velden in de tabel waarvan de eerste de autonummering bevat. Met de code die ik geschreven heb maakt hij geen nieuw record aan + de nieuwe autonummering (Sleutel in de tabel) maar schrijft hij over het huidige record heen (Laatst geselecteerde). Hoe pas ik het aan?

    Bijgaand mijn code:

    [code:1:87122a22ea]

    Private Sub cmdToevoegen_Click()
    If cmdToevoegen.Caption = "Toevoegen" Then
    For i = 0 To 6
    txtLeverancier(i) = ""
    Next i
    txtLeverancier(0).Locked = True
    txtLeverancier(0).Text = "Auto"
    cmdToevoegen.Caption = "Opslaan"
    Else
    cmdToevoegen.Caption = "toevoegen"
    If (IsNumeric(txtLeverancier(5))) Then
    For i = 1 To 6
    rsFietsen.Fields(i) = (txtLeverancier(i))
    Next i
    rsFietsen.AddNew
    MsgBox "Opgeslagen"
    Else
    MsgBox "u kunt alleen numerieke waarden invoeren!"
    End If
    End If
    End Sub

    [/code:1:87122a22ea]
  • toevoegen -> AddNew
  • Wat een vreemde constructie. Waarom in een loop een record toevoegen?
  • Ik wil een record toevoegen dmv. update. Ik heb zes velden in de tabel waarvan de eerste de autonummering bevat. Met de code die ik geschreven heb maakt hij geen nieuw record aan + de nieuwe autonummering (Sleutel in de tabel) maar schrijft hij over het huidige record heen (Laatst geselecteerde). Hoe pas ik het aan?

    Je hoeft geen autonummeringsveld te definieren, Dit doet access zelf al.
    Zo makkelijk dus.

    Gerton
  • Al opgelost, was .update vergeten en ik d8 dat het aan de autonummering lag…

    dit is de goede geworden:

    [code:1:61abe80048]

    rsFietsen.AddNew
    For i = 1 To 6
    rsFietsen.Fields(i) = (txtLeverancier(i))
    Next i
    rsFietsen.Update

    [/code:1:61abe80048]

    //Corbier

    Ik ben niet super in VB, nog maar net mee begonnen, doe ik iets tegen prgrammeer regels in?
    Hij naar mijn ged8en de 6 velden in de recordset zetten, en dit werkt goed.

Beantwoord deze vraag

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