Archief - [VB.NET] Autonummering automatisch aanvullen

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
A

Aelyon

Legacy Member
Hallo

Ik ben atm bezig met een bibliotheekprogramma waarmee men boeken kan bekijken, verwijderen en toevoegen. Ik heb echter een klein probleempje met het toevoegen.

In Access is de primaire sleutel "Itemnr" en die is op autonummering ingesteld.
Nu zou ik willen dat als een gebruiker een boek wil toevoegen, dat het volgend itemnr automatisch wordt aangemaakt.

De invoer voor nieuwe boeken gebeurt via tekstvakken
Code: 
        Dim dtitemrow As DBStageBibZonderRelatiesDataSet.tblItemRow
        Dim dtitemnr As DBStageBibZonderRelatiesDataSet.qryItemnrRow



        dtitemrow = frmHoofd.dtsBibliotheek.tblItem.Rows.Add
        'tekstvakken vullen
        dtitemrow.Itemnr = bItemnr
        dtitemrow._Titel_Titel_artikel = txtTitel.Text
        dtitemrow.Type = txtType.Text
        dtitemrow._Auteur_Regisseur = txtAuteur.Text
        dtitemrow.Genre = txtGenre.Text
        dtitemrow.Uitgever = txtUitgever.Text
        dtitemrow.Jaar = txtJaar.Text
        dtitemrow._Pagina_s_Duur = txtPagina.Text
        dtitemrow.Beschrijving = txtBeschrijving.Text
        frmHoofd.odaItem.Update(dtitemrow)
En die bItemnr is gedeclareerd als een functie als:
Code: 
Public bItemnr As Byte

Echter als ik een boek dus wil toevoegen krijg ik dit scherm:
my.php


Alvast bedankt
A

Albireo

Legacy Member
laat die
Code: 
dtitemrow.Itemnr = bItemnr
weg, aangezien het een autonummeringsveld is wordt dat automatisch door Access ingevuld. (en Access gebruikt een 32-bit integer (in de versies die ik ken toch) voor z'n autonummeringsvelden, dus als je die waarde ooit wilt lezen zal je bItemnr als Int32 moeten declareren)
A

Aelyon

Legacy Member
Heb m'n code een beetje aangepast maar hij blijft nog steeds dezelfde foutmelding geven.

Code: 
        dtitemrow._Titel_Titel_artikel = txtTitel.Text
        dtitemrow.Type = txtType.Text
        dtitemrow._Auteur_Regisseur = txtAuteur.Text
        dtitemrow.Genre = txtGenre.Text
        dtitemrow.Uitgever = txtUitgever.Text
        dtitemrow.Jaar = txtJaar.Text
        dtitemrow._Pagina_s_Duur = txtPagina.Text
        dtitemrow.Beschrijving = txtBeschrijving.Text
        frmHoofd.odaItem.Update(dtitemrow)

        frmHoofd.odaqryItem.Fill(frmHoofd.DbStageBibZonderRelatiesDataSet.qryItemnr)
        dtitemnr = frmHoofd.DbStageBibZonderRelatiesDataSet.qryItemnr.Rows(0)
        bItemnr = dtitemnr.Itemnr
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan