Office: Doppelte Einträge verhindern ohne Primärschlüssel

Folgendes Problem:
habe ein Tabellenfeld (Zahl) ohne Primärschlüssel.
Wie kann ich doppelte Einträge verhindern, indem ich auswählen kann ob ja oder nein
(Doppelte Einträge sollen grundsätzlich möglich sein.

 

Hallo,
was spricht gegen einen unsichtbaren Autowert?
Ansonsten musst Du (z.B. mit VBA) prüfen, ob so ein Datensatz bereits besteht und die Eingabe verhindern.
...oder näher erklären, wie Du Dir das vorstellst
Gruß
Doming

 

Das wäre eigentlich meine Frage gewesen, wie man mit VBA diese Prüfung
einrichten müßte.

 

Hallo,
im Ereignis "vor Aktualisierung"

Code:

 Me.FindFirst ("[Feldname] = '" & Me.Formularsuchfeld & "'")
 If Me.NoMatch Then
    GoTo nichtda
 End If

Wenn Feld nummerisch sind die ' wegzulassen und bei Datumsfeldern müssen # verwendet werden.
Dazu gibt es reichlich Hilfe in den diversen Foren.

 

Leider komme ich weiterhin nicht zurecht !
Private Sub TopfNr_Exit(Cancel As Integer)
Me.FindFirst ("[TopfNr] = " & Me.TopfNr & "")
If Me.NoMatch Then
'GoTo nichtda
End If
End Sub

Fehlermeldung: "Fehler beim Kompilieren"
Methode oder Datenobjekt nicht gefunden !
Woran kann es liegen ?

 

Entschuldige. Die Findfirst-Methode ist eine Methode des Recordsets und nicht des Formulars.
Hier nochmal ein ausführlicheres Beispiel:
(Ich habe das Ereignis "vor Aktualisierung" gewählt, anstatt "beimVerlassen".
Es wird im "Parallelrecordset" des Formulars gesucht und dann im Formular das Lesezeichen gesetzt, wenn gefunden.

Code:

Private Sub TopfNr_BeforeUpdate(Cancel As Integer)
 
  Dim such As String
  Dim rs As Recordset
 
  Set rs = Me.Recordset.Clone
  such = "[TopfNr] = " &  Me.TopfNr
  rs.FindFirst (such)
  If rs.NoMatch Then
     MsgBox ("nichts gefunden")
     GoTo nichtda
  End If
  Me.Bookmark = rs.Bookmark
 
nichtda:
  Set rs = Nothing
 
End Sub

 

Danke für die Hilfe, hat jetzt alles geklappt

 

Noch eine ergänzende Frage: wie komme ich wieder zurück in das Feld TopfNr ?

 

Versuche mal:

Code:

Cancel = True

 

bis jetzt ist alles super gelaufen, nun habe ich aber einen schweren Laufzeitffehler, der
Access abstürzen läßt ...
ich gehe im Formular auf einen neuen Datensatz, fülle die Felder bis "TopfNr", wobei ich eine bereits vorhandene
TopfNr eintrage, richtigerweise bekomme ich als Ergebnis, dass diese bereits vorhanden ist.
Nun lösche ich die bisherigen Feldeintäge mit "Esc". Wenn ich nun wieder im nächsten (neuen) Datensatz den selben
Vorgang - wie vorhin beschrieben - ausführe, führt dies in der ausgeführten "vor Aktualisierung Anweisung" in der
Zeile "Set rs = Me.Recordset.Clone" zum Abbruch mit folgender Fehlermeldung:


Was kann die Ursache sein ?
Lieben Gruß, Horst

 

Schaue mal in diesen Thread, da sind ein paar Sachen beschrieben.
https://www.access-o-mania.de/forum/index.php?topic=15189.0
Hast Du oben option explicit drin? Das zwingt dazu alle Variablen explizit zu dimensionieren.
Dann mal von Hand kompilieren (unter Reiter Debug zu finden)
Wenn das fehlerfrei ist, versuche die DB über Optionen/Reparieren/Komprimieren zu komprimieren.
Vor der ganzen Aktion aber eine Sicherungskopie speichern.