title image


Smiley Sprung zum letzten Datensatz beim Öffnen der Datenbank
Access 97



Hallo zusammen !



Ich möchte eigentlich, daß beim Öffnen meiner Datenbank zum letzen (mit Daten gefüllten) Datensatz gesprungen wird und mir das zugehörige Bild, wie es in dem jeweiligen Datensatz angegebenen Bild gesprungen wird.



Irgendwo scheint sich da aber ein Fehler in meinem Script eingeschlichen zu haben.

Kannst Du mir vielleicht helfen und mir das Script korrigieren ???



DANKE für Deine Hilfe im Voraus.

Jens



-----------------------------------------------------------------------------------





Option Compare Database

Option Explicit



Private Sub Befehl43_Click()

On Error Resume Next

Me![Bild42].Picture = Nz(Me![Link], " ")

End Sub



Private Sub Datensatz_suchen_Click()

On Error GoTo Err_Datensatz_suchen_Click





Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70



Exit_Datensatz_suchen_Click:

Exit Sub



Err_Datensatz_suchen_Click:

MsgBox Err.Description

Resume Exit_Datensatz_suchen_Click



End Sub



Private Sub Form_Open(Cancel As Integer)

On Error Resume Next

Me![Bild42].Picture = Nz(Me![Link], " ")

End Sub



Private Sub Nächster_Datensatz_Click()

On Error GoTo Err_Nächster_Datensatz_Click





DoCmd.GoToRecord , , acNext



On Error Resume Next

Me![Bild42].Picture = Nz(Me![Link], " ")



Exit_Nächster_Datensatz_Click:

Exit Sub



Err_Nächster_Datensatz_Click:

MsgBox Err.Description

Resume Exit_Nächster_Datensatz_Click



End Sub

Private Sub Vorheriger_Datensatz_Click()

On Error GoTo Err_Vorheriger_Datensatz_Click





DoCmd.GoToRecord , , acPrevious



On Error Resume Next

Me![Bild42].Picture = Nz(Me![Link], " ")



Exit_Vorheriger_Datensatz_Click:

Exit Sub



Err_Vorheriger_Datensatz_Click:

MsgBox Err.Description

Resume Exit_Vorheriger_Datensatz_Click



End Sub

Private Sub Datensatz_speichern_Click()

On Error GoTo Err_Datensatz_speichern_Click





DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70



Exit_Datensatz_speichern_Click:

Exit Sub



Err_Datensatz_speichern_Click:

MsgBox Err.Description

Resume Exit_Datensatz_speichern_Click



End Sub

Private Sub Datensatz_hinzufügen_Click()

On Error GoTo Err_Datensatz_hinzufügen_Click





DoCmd.GoToRecord , , acNewRec



On Error Resume Next

Me![Bild42].Picture = Nz(Me![Link], " ")



Exit_Datensatz_hinzufügen_Click:

Exit Sub



Err_Datensatz_hinzufügen_Click:

MsgBox Err.Description

Resume Exit_Datensatz_hinzufügen_Click



End Sub

Private Sub Anwendung_beenden_Click()

On Error GoTo Err_Anwendung_beenden_Click





DoCmd.Quit



Exit_Anwendung_beenden_Click:

Exit Sub



Err_Anwendung_beenden_Click:

MsgBox Err.Description

Resume Exit_Anwendung_beenden_Click



End Sub

Private Sub Berichtsvorschau_money_Click()

On Error GoTo Err_Berichtsvorschau_money_Click



Dim stDocName As String



stDocName = "rep_money"

DoCmd.OpenReport stDocName, acPreview



Exit_Berichtsvorschau_money_Click:

Exit Sub



Err_Berichtsvorschau_money_Click:

MsgBox Err.Description

Resume Exit_Berichtsvorschau_money_Click



End Sub

Private Sub Memo_schreibvorlagen_Click()

On Error GoTo Err_Memo_schreibvorlagen_Click



Dim stDocName As String

Dim stLinkCriteria As String



stDocName = "frm_schreibvorlagen"

DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_Memo_schreibvorlagen_Click:

Exit Sub



Err_Memo_schreibvorlagen_Click:

MsgBox Err.Description

Resume Exit_Memo_schreibvorlagen_Click



End Sub

Private Sub verkaeufe_Click()

On Error GoTo Err_verkaeufe_Click



Dim stDocName As String

Dim stLinkCriteria As String



stDocName = "frm_verkauft"

DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_verkaeufe_Click:

Exit Sub



Err_verkaeufe_Click:

MsgBox Err.Description

Resume Exit_verkaeufe_Click



End Sub

Private Sub BerichtBilder_Click()

On Error GoTo Err_BerichtBilder_Click



Dim stDocName As String



stDocName = "rep_Bilder"

DoCmd.OpenReport stDocName, acPreview



Exit_BerichtBilder_Click:

Exit Sub



Err_BerichtBilder_Click:

MsgBox Err.Description

Resume Exit_BerichtBilder_Click



End Sub

Private Sub Abos_Click()

On Error GoTo Err_Abos_Click



Dim stDocName As String

Dim stLinkCriteria As String



stDocName = "Abos"

DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_Abos_Click:

Exit Sub



Err_Abos_Click:

MsgBox Err.Description

Resume Exit_Abos_Click



End Sub

Private Sub Btn_KMS_Infos_Click()

On Error GoTo Err_Btn_KMS_Infos_Click



Dim stDocName As String

Dim stLinkCriteria As String



stDocName = "KMS-Angaben"

DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_Btn_KMS_Infos_Click:

Exit Sub



Err_Btn_KMS_Infos_Click:

MsgBox Err.Description

Resume Exit_Btn_KMS_Infos_Click



End Sub

Private Sub Befehl49_Click()

On Error GoTo Err_Befehl49_Click



Dim stDocName As String

Dim stLinkCriteria As String



stDocName = "Gedenkmuenzen10"

DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_Befehl49_Click:

Exit Sub



Err_Befehl49_Click:

MsgBox Err.Description

Resume Exit_Befehl49_Click



End Sub

Private Sub Befehl57_Click()

On Error GoTo Err_Befehl57_Click



Dim stDocName As String

Dim stLinkCriteria As String



stDocName = "Gedenkmuenzen2"

DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_Befehl57_Click:

Exit Sub



Err_Befehl57_Click:

MsgBox Err.Description

Resume Exit_Befehl57_Click



End Sub

Private Sub Befehl58_Click()

On Error GoTo Err_Befehl58_Click



Dim stDocName As String

Dim stLinkCriteria As String



stDocName = "Gedenkmuenzen2"

DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_Befehl58_Click:

Exit Sub



Err_Befehl58_Click:

MsgBox Err.Description

Resume Exit_Befehl58_Click



End Sub
"Wenn einem die Vögel von HINTEN an den Rücken klatschen, ist man definitiv zu langsam !" (Biker-Regel Nr.1) ;o)

geschrieben von

Anhang
Bild 10553 zu Artikel 508931

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: