Office: (Office 2003) Macro hängt Anwendung

Erich290607 · 6. Dezember 2009

ja da bin ich gerade dran, die Anmeldung macht nur z.Z. Probleme
ich brauche ja den User vom jeweiligen Standort

damit er seine Daten erhält!

z.Z. meldet sich der User über ein Form an

Code:

Option Compare Database
Option Explicit

'################################################
'# Programm : Beanst.Archiv -----------#
'# Author : Brunken, Erich -----------#
'# Start : 12.08.2009 -----------#
'# Thema : Beanstandungen QS -----------#
'################################################

Private Sub neuButton_Click()
Dim dbx As DAO.Database
Dim tb As DAO.TableDef
Dim sBEpfad As String

sBEpfad = DateiOeffnen(Application.CurrentProject.path, "BackEnd Datenbank öffnen")
If sBEpfad "" And Right(sBEpfad, 4) = ".mdb" Then
Set dbx = DBEngine.Workspaces(0).OpenDatabase(sBEpfad)
db_aendern (sBEpfad)
For Each tb In dbx.TableDefs()
If InStr(1, tb.Name, "MSys") = 0 Then tabcheck tb.Name, sBEpfad
Next
End If

End Sub

Private Sub btnAnmelden_Click()

Dim oRs As DAO.Recordset
Dim sSQL As String

If txtPasswort "" Then
If txtPass = txtPasswort Then
Set oRs = CurrentDb.OpenRecordset("tblActUs")
If Not oRs.EOF Then
oRs.Delete
End If
oRs.AddNew
oRs!US_ID = cboUser
If txtStandID = 0 Then
oRs!USStand_ID = "*"
Else
oRs!USStand_ID = txtStandID
End If
oRs.Update
oRs.Close
DoCmd.OpenForm "frmBem"
DoCmd.Close acForm, Me.Name
Else
MsgBox "Falsches Passwort"
txtPass = ""
txtPass.SetFocus
End If
End If

End Sub

Private Sub cboUser_AfterUpdate()
s_Sachb = Me.cboUser.Column(1)
l_UsID = Me.cboUser.Column(0)
End Sub

Private Sub cboUser_Click()

Dim oRs As DAO.Recordset
Dim sSQL As String

sSQL = "SELECT UserPass, UserStand_ID, Standort " & _
"FROM tblUser LEFT JOIN tblStandort ON tblUser.UserStand_ID=tblStandort.StandID " & _
"WHERE UserID=" & cboUser

Set oRs = CurrentDb.OpenRecordset(sSQL)
txtPasswort = oRs!UserPass
txtStandID = oRs!UserStand_ID
txtStand = oRs!Standort

txtPass = ""
txtPass.SetFocus

If oRs!UserPass "hero" Then
Me.cmd_Standort.Visible = False
End If

End Sub

Private Sub cboUser_GotFocus()
cboUser.Requery
End Sub

Private Sub Form_Open(Cancel As Integer)

DoCmd.RunCommand acCmdAppMinimize
'init

Me.cboUser.SetFocus
Me.cmd_Standort.Visible = False

End Sub

Private Sub cmd_Anwendung_beenden_Click()
On Error GoTo Err_cmd_Anwendung_beenden_Click

DoCmd.Quit acQuitSaveAll

Exit_cmd_Anwendung_beenden_Click:
Exit Sub

Err_cmd_Anwendung_beenden_Click:
MsgBox Err.Description
Resume Exit_cmd_Anwendung_beenden_Click

End Sub

Private Sub cmd_Standort_Click()

On Error GoTo Err_cmd_Standort_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmStandortverwaltung"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmd_Standort_Click:
Exit Sub

Err_cmd_Standort_Click:
MsgBox Err.Description
Resume Exit_cmd_Standort_Click

End Sub

Private Sub Form_Unload(Cancel As Integer)
DoCmd.RunCommand acCmdAppMaximize
Me.cmd_Standort.Visible = False
End Sub

Private Sub cmdPassändern_Click()
Dim oRs As DAO.Recordset
Dim sSQL As String

'# Passwortlänge abfragen 6 Zeichen Abbruch
If IsNull(Me!txtNeu) Or Len(Me!txtNeu)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607 · 6. Dezember 2009

hatte mir mein Laptop vom Betrieb mitgenommen, auf dem es auch nicht funktionieren "starten" wollte.

habe eine neue Start Routine geschrieben, dabei fiel mir auf das diese im wesentlichen der alten entsprach, bis auf diesen Code:

Code:

Private Sub neuButton_Click()
Dim dbx As DAO.Database
Dim tb As DAO.TableDef
Dim sBEpfad As String

sBEpfad = DateiOeffnen(Application.CurrentProject.path, "BackEnd Datenbank öffnen")
If sBEpfad "" And Right(sBEpfad, 4) = ".mdb" Then
Set dbx = DBEngine.Workspaces(0).OpenDatabase(sBEpfad)
db_aendern (sBEpfad)
For Each tb In dbx.TableDefs()
If InStr(1, tb.Name, "MSys") = 0 Then tabcheck tb.Name, sBEpfad
Next
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

den habe ich dann in der nicht behandelten Urspungsversion rausgeworfen, und es geschehen noch Wunder DB konnte gestartet werden mit GetColor()
und allem drum und dran. Das muss im Anmeldeform frmUser zum Problem geführt haben,jetzt läuft die Version wieder!

jetzt wäre es für mich wichtig, warum dies zum Problem geführt hat ohne Meldung?

Wenn auch auf den restlichen FE Rechnern das wieder läuft, stelle ich das Thema hier als erledigt ein

Micha_DU · 6. Dezember 2009

schön zu lesen dass ich das Problem gelöst hat. Warum keine Fehlermeldung kam... ich könnte nur spekulieren.

schönen Start in die neue Woche!

CptChaos · 6. Dezember 2009

Du verwendest in der o.g. Prozedur DAO als Zugriff.
Unter Access 2002/2003 ist ADO der Standardzugriff und der Verweis auf die entsprechende DAO-Bibliothek muss manuell in den Datenbanken und möglicherweise auf den Rechnern gesetzt werden.

Das hatten wir ziemlich am Anfang schonmal angesprochen und ich hoffe Du hast das auch geprüft.

Es sollte/muss auf den Clients dann auch die selbe DAO-Version verwendet werden.

Erich290607 · 7. Dezember 2009

z.Z. sieht es doch so aus:

Access 97 benötigt DAO 3.5x
Access 2000 - 2003: DAO 3.6 das ist meine derzeitig, aktuelle Version
wenn man auf 2007 umsteigt, habe ich ein neues Problem ?
Access 2007 - .. : ACEDAO 12.0

CptChaos · 7. Dezember 2009

Dass Access 2000 - 2003 DAO an sich verwenden kann, ist korrekt.
Aber nochmal: Es muss explizit der Verweis auf die entsprechende Bibliothek gesetzt werden.
Wenn das nicht gemacht/geprüft wurde, wirst Du definitiv in min. einen Fehler laufen.

Office: (Office 2003) Macro hängt Anwendung

Macro hängt Anwendung

Macro hängt Anwendung

Macro hängt Anwendung

Macro hängt Anwendung - Similar Threads - Macro hängt Anwendung

Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Macro Fehler Subscript out of Range

SICHERHEITSRISIKO Microsoft hat die Ausführung von Macros blockiert, ...

Macro zum spreichern

Excel Macro durch Sheets springen und informationen sammeln?

Excel Macro automatischen Suchen in Zeilen und TextBox

Excel Macro