Access mir raucht der Kopf!!

coolbininet · 20.11.2002, 10:12

Hallo!

Habe eine Datenbank und eine Frage

Habe eine Tabelle mit zwei Spalten, der eine ein Autowert, der andere ein Textfeld.

Habe jetzt bei dem Autowert 1,2,3 stehen und danneben (der Autowert steht ja in Verbindung mit dem oder den anderen Felder). Dann habe ich beim Autowert-Feld 5,6,7 stehen aber keine 4, wie kann ich den vierer einfügen und die dazugehörigen anderen Zellen auch?

Ich gaube ich ich habe einen Datensatz gelöscht! Kann ich den nachträglich einfügen oder nicht?

In Erwartung auf eine Antwort verbleibe ich mit freundlichen Grüßen

Coolbininet

creibl · 20.11.2002, 10:55

Hatte das gleiche Problem unter mySQL auch. Passiert immer, wenn man nachträglich einen Datensatz löscht!

Lösung: Autowert neu aufbauen lassen (sprich löschen und neu einfügen!)

Sicherlich die kürzeste Variante!!!

mfg

chrisne · 20.11.2002, 11:11

die 4 sollte dir nur dann fehlen, wenn du einen datensatz gelöscht hast.

zu deiner frage: kannst du nicht wieder einfügen. das lässt der autowert nicht zu.

am besten den autowert nie verwenden, sondern die zahlen automatisch eintragen lassen (mit einen kleinen vb script). dann kann dir sowas ned passieren, auch wenn du einen datensatz gelöscht hast.

gruss
chris

chrisne · 20.11.2002, 11:15

ein kleines schnell geschriebenes programm.
kann man sicher besser machen, aber auf die schnelle:

----------------------------------
Dim db As Database
Dim rs As Recordset
Dim zähler As Long

Set db = CurrentDb

Set rs = DB.OpenRecordset("SELECT [Nummer] From [Tabelle1]")

On Error GoTo Sprung2
rs.MoveLast

If rs.EOF Then
Sprung2:

zähler = 1
Me![Nummer] = zähler
rs.Close
Set db = Nothing
GoTo sprung
End If

zähler = rs![Nummer] + 1
Me![Nummer] = zähler
rs.Close
Set db = Nothing

sprung:
--------------------------------------

gruss
chris

20.11.2002, 10:12	#1
coolbininet Hero Registriert seit: 19.09.2001 Alter: 46 Beiträge: 859	Access mir raucht der Kopf!! Hallo! Habe eine Datenbank und eine Frage Habe eine Tabelle mit zwei Spalten, der eine ein Autowert, der andere ein Textfeld. Habe jetzt bei dem Autowert 1,2,3 stehen und danneben (der Autowert steht ja in Verbindung mit dem oder den anderen Felder). Dann habe ich beim Autowert-Feld 5,6,7 stehen aber keine 4, wie kann ich den vierer einfügen und die dazugehörigen anderen Zellen auch? Ich gaube ich ich habe einen Datensatz gelöscht! Kann ich den nachträglich einfügen oder nicht? In Erwartung auf eine Antwort verbleibe ich mit freundlichen Grüßen Coolbininet ____________________________________ Wenn du eine helfende Hand brauchst, tust du gut wenn, du sie an den eigenen Armen suchst! Website RI Nur der Kleingeist hält Ordnung das Genie überblick das Chaos! Genie und Wahnsinn liegen dicht nebeneinander, sie können und sollen nicht getrennt werden. \|Marktorientierter Sozialist\|Menschenfreund\|Teamfähig\|Analytiker\|Logi ker\| If you want to see the Sky, fuck a Duck and learn to fly! Mein Glück ist nicht von dieser Welt, insbesondere im Umgang mit Microsoft Produkten! Möge die MACHT mit uns sein!

20.11.2002, 10:55	#2
creibl Veteran Registriert seit: 24.04.2002 Beiträge: 278	Hatte das gleiche Problem unter mySQL auch. Passiert immer, wenn man nachträglich einen Datensatz löscht! Lösung: Autowert neu aufbauen lassen (sprich löschen und neu einfügen!) Sicherlich die kürzeste Variante!!! mfg

20.11.2002, 11:11	#3
chrisne Gesperrt Registriert seit: 23.08.2000 Beiträge: 3.692	die 4 sollte dir nur dann fehlen, wenn du einen datensatz gelöscht hast. zu deiner frage: kannst du nicht wieder einfügen. das lässt der autowert nicht zu. am besten den autowert nie verwenden, sondern die zahlen automatisch eintragen lassen (mit einen kleinen vb script). dann kann dir sowas ned passieren, auch wenn du einen datensatz gelöscht hast. gruss chris

20.11.2002, 11:15	#4
chrisne Gesperrt Registriert seit: 23.08.2000 Beiträge: 3.692	ein kleines schnell geschriebenes programm. kann man sicher besser machen, aber auf die schnelle: ---------------------------------- Dim db As Database Dim rs As Recordset Dim zähler As Long Set db = CurrentDb Set rs = DB.OpenRecordset("SELECT [Nummer] From [Tabelle1]") On Error GoTo Sprung2 rs.MoveLast If rs.EOF Then Sprung2: zähler = 1 Me![Nummer] = zähler rs.Close Set db = Nothing GoTo sprung End If zähler = rs![Nummer] + 1 Me![Nummer] = zähler rs.Close Set db = Nothing sprung: -------------------------------------- gruss chris

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)