vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Allgemeine Diskussionen
Datenbank 
Autor: Ralf
Datum: 19.10.01 09:32

Hallo,

ich habe in meinem Programm folgenden Code:

' Neue Adressnummer festlegen
If KdLi = 1 Then
ActiveTable ("Kunden") ' Öffnet Datenbank und entsprechende Tabelle
If Table.RecordCount > 0 And Not Table.EOF Then
Table.MoveLast
MsgBox Table("K_Nummer")
DatevWert = 10000
AdrNo = Table("K_Nummer") + DatevWert
End If
ElseIf KdLi = 2 Then
ActiveTable ("Lie")
If Table.RecordCount > 0 And Not Table.EOF Then
Table.MoveLast
DatevWert = 70000
AdrNo = Table("L_LiefNr")
End If
End If

If Table.RecordCount = 0 And Table.EOF Then
AdrNo = DatevWert
End If

Set Table = Nothing
DB.Close

frmAdrNeu.txtEingabe(1).Text = "Firma"
frmAdrNeu.txtEingabe(0).Text = AdrNo

Dies Funktioniert soweit ganz gut. Nur, in der Kundentabelle sind 709 einträge. Erstelle ich in meinem Programm einen neuen Datensatz, wird dieser auch gespeichert. Nur Als letzte Nummer wird aber immer die 709 ausgegeben. Obwohl in Tabelle schon 710... einträge vorhanden sind. Woran könnte das liegen?

Thx

Ralf
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datenbank76Ralf19.10.01 09:32
Re: Datenbank296ModeratorDieter19.10.01 10:36
Re: Datenbank62Ralf19.10.01 10:41
Sortierfolge?357ModeratorDieter19.10.01 10:56
Re: Sortierfolge?49Ralf19.10.01 11:14
Falsch verstanden.260ModeratorDieter19.10.01 11:26
Re: Falsch verstanden.54Ralf19.10.01 12:30

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-2025 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