|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.06.2020 10:34:55 |
Sebastian |
|
|
|
12.06.2020 10:49:54 |
ralf_b |
|
|
 Access Datenbank VBA Editor ploppt auf |
12.06.2020 11:19:22 |
Gast18217 |
|
|
|
12.06.2020 11:23:03 |
Sebastian |
|
|
|
12.06.2020 18:44:51 |
ralf_b |
|
|
|
12.06.2020 17:45:39 |
Gast01233 |
|
|
|
15.06.2020 13:45:08 |
Sebastian |
|
|
|
15.06.2020 18:50:36 |
ralf_b |
|
|
Von:
Gast18217 |
Datum:
12.06.2020 11:19:22 |
Views:
578 |
Rating:
|
Antwort:
|
Thema:
Access Datenbank VBA Editor ploppt auf |
|
Private Sub NOTE_AfterUpdate()
Dim DB As Database, DB1 As Database
Dim T As Recordset, abfrage As QueryDef
Dim d As Recordset, D1 As Recordset
Dim Anzahl As Integer
Dim sqlalt As String, sqlneu As String, laenge As Integer
Dim ref_nr As Long, pos
On Error GoTo Fehler
Set DB1 = DBEngine(0)(0)
Set DB = DBEngine.Workspaces(0).OpenDatabase(g_Dname())
Set abfrage = DB1.QueryDefs("AB_Beurteilung")
sqlalt = abfrage.sql
laenge = Len(sqlalt)
pos = InStr(1, sqlalt, "P")
sqlneu = Left$(sqlalt, pos - 1) + REF + Right$(sqlalt, laenge - pos)
abfrage.sql = sqlneu
Set d = abfrage.OpenRecordset(dbOpenDynaset)
abfrage.sql = sqlalt
abfrage.Close
Set abfrage = DB1.CreateQueryDef("Zählen")
abfrage.sql = "SELECT COUNT(NR) AS ZAHL FROM beurteilung WHERE beurteilung.ref =" & REF
Set D1 = abfrage.OpenRecordset(dbOpenDynaset)
Anzahl = D1.zahl
abfrage.Close
DB1.QueryDefs.Delete "Zählen"
D1.Close
d.MoveLast
If Anzahl <= 3 And d![NOTE] = NOTE Then
MsgBox "Sie haben die gleiche Note noch einmal eingegeben!" & Chr(13) & Chr(10) & "Bitte einen Augenblick warten." & Chr(13) & Chr(10) & "Der Datensatz wird gelöscht."
DoCmd.Requery
d.Close
ref_nr = Abfrage_Beurteilung()
Set T = DB.OpenRecordset("beurteilung", dbOpenTable)
T.Index = "PrimaryKey"
T.Seek "=", ref_nr
T.Delete
T.Close
DoCmd.Requery
DoCmd.GoToRecord , , A_NEWREC
ElseIf Anzahl = 3 And d![NOTE] <> NOTE Then
MsgBox "Mit dieser Neueingabe wird der älteste" & Chr(13) & Chr(10) & "Datensatz gelöscht." & Chr(13) & Chr(10) & "Bitte einen Augenblick warten."
d.MoveFirst
d.Delete
DoCmd.Requery
DoCmd.GoToRecord , , A_NEWREC
End If
DB.Close
Fehler:
Exit Sub
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.06.2020 10:34:55 |
Sebastian |
|
|
|
12.06.2020 10:49:54 |
ralf_b |
|
|
Access Datenbank VBA Editor ploppt auf |
12.06.2020 11:19:22 |
Gast18217 |
|
|
|
12.06.2020 11:23:03 |
Sebastian |
|
|
|
12.06.2020 18:44:51 |
ralf_b |
|
|
|
12.06.2020 17:45:39 |
Gast01233 |
|
|
|
15.06.2020 13:45:08 |
Sebastian |
|
|
|
15.06.2020 18:50:36 |
ralf_b |
|
|