vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Access Autowert 
Autor: guenni255
Datum: 18.06.16 16:45

Hallo Forum

Ich habe ein Problem mit einer Access Datenbank Tabelle in die ich Daten per VB eingebe.

Ich habe folgenden Code zur Speicherung von Daten aus x-beliebigen Formularen in einer Datenbank Tabelle geschrieben.
Public Sub Forminhaltspeichern()
 
strDSQ = "SELECT * FROM " & WTA 'WTA = Tabellenname in Access
Set rsDat = DB.OpenRecordset(strDSQ, dbOpenDynaset)
 
With rsDat
    .AddNew
    For Each Halter In Screen.ActiveForm
 
        If TypeOf Halter Is TextBox Then
            If Halter.Text = "" Then Halter.Text = Halter.ToolTipText
            If .Fields(Halter.Index).Type = 10 Or .Fields(Halter.Index).Type = _
              12 Then .Fields(Halter.Index) = Halter.Text
            If .Fields(Halter.Index).Type = 8 Then
                If Halter.Text <> Halter.ToolTipText Then
                    .Fields(Halter.Index) = CDate(Halter.Text)
                Else
                    .Fields(Halter.Index) = CDate("0")
                End If
            End If
 
            If .Fields(Halter.Index).Type = 5 Then
                If Halter.Text <> Halter.ToolTipText Then
                    .Fields(Halter.Index) = CCur(Halter.Text)
                Else
                    .Fields(Halter.Index) = CCur("0")
                End If
            End If
 
        End If
        If TypeOf Halter Is CheckBox Then
            If Halter.Value = 1 Then .Fields(Halter.Index) = True Else .Fields( _
              Halter.Index) = False
        End If
 
    Next
    .Update
    .Close
End With
Set rsDat = Nothing
End Sub
Das klappt auch soweit ganz gut
Nur jetzt hab ich das Problem das bei einer neuen Tabelle der Autowert des Datensatzzählers bei 0 und nicht bei 1 beginnt.
dadurch kommt es zu der Fehlermeldung das das eintragen nicht möglich ist da sonst doppelter Datensatz.
Ich verstehe nicht warum.
bei anderen Tabellen der gleichen DB klappt alle wunderbar.
liegt der Fehler nun in meinem Code oder in Access ? Kann man da den Startwert eines autowertes einstellen??

Kann mir bitte jemand helfen??

Vielen Dank im Voraus

Günni
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Access Autowert1.723guenni25518.06.16 16:45
Re: Access Autowert989Blackbox19.06.16 18:16
Re: Access Autowert920Franki20.06.16 03:19
Re: Access Autowert955Franki20.06.16 03:15
Re: Access Autowert897guenni25520.06.16 07:22
Re: Access Autowert963Franki21.06.16 02:00
Re: Access Autowert880guenni25521.06.16 19:00
Re: Access Autowert897Franki22.06.16 00:46
Re: Access Autowert866guenni25522.06.16 09:16

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel