beim ausführen von makro flackert der Bildschirm
05.03.2019 22:15:09
makro
folgendes Problem.
Beim Ausführen der nachfolgenden Makros, flackert der Bildschirm. Das ist total nervig. Sonst funktionieren die Makros einwandfrei. Was kann man da machen?
Hoffentlich bin ich hier überhaupt diesmal richtig bei euch, da es keine Excelanwendung ist, sondern Access.
Könnt ihr mir helfen?
___________________________________________________________________________________
Code im Formular
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize 4536, 567, 14175, 11340
End Sub
Private Sub SchDatenSuchen_Click()
On Error GoTo Err_SchDatenSuchen_Click
DoCmd.OpenForm "frmSuchen", , , , , , Screen.ActiveForm.Name
Exit_SchDatenSuchen_Click:
Exit Sub
Err_SchDatenSuchen_Click:
MsgBox Err.Description
Resume Exit_SchDatenSuchen_Click
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.NewRecord = True Then
Me!ErfDat = Date
Else
Me!AendDat = Date
End If
Application.ScreenUpdating = True
End Sub
___________________________________________________________________________________
Code im Suchformular:
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize 4536, 567, 14175, 11340
End Sub
Private Sub Form_Load()
' um das Suchformular auch von anderen Formularen aus zu starten
Select Case OpenArgs
Case "Kontaktdetails"
lstSuchen.RowSource = "qrySuchen"
Label1.Caption = "Firma"
Label2.Caption = "Plz"
Label3.Caption = "Ort"
Label4.Caption = "Telefon"
'Case "irgendwas"
' lstSuchen.RowSource = "neue Datenquelle"
' Label1.Caption = "xxxxxx"
' Label2.Caption = "xxxxxx"
' Label3.Caption = "xxxxxx"
' Label4.Caption = "xxxxxx"
'Case Else
End Select
DSAnz = lstSuchen.ListCount
txtSuchen.SetFocus
End Sub
Private Sub Formularkopf_DblClick(Cancel As Integer)
Application.ScreenUpdating = False
Me.AllowEdits = Not Me.AllowEdits
Application.ScreenUpdating = True
End Sub
Private Sub lstSuchen_Click()
SchFinden.Enabled = True
SchGeheZu.Enabled = True
txtSuchen.SetFocus
End Sub
Private Sub SchAbbrechen_Click()
DoCmd.Close
End Sub
Private Sub SchFinden_Click()
Call SuchenFinden(False)
End Sub
Private Sub SchGeheZu_Click()
Call SuchenFinden(True)
End Sub
Private Sub SchSuchenLöschen_Click()
On Error Resume Next
txtSuchFilter = ""
txtSuchen = ""
Me!lstSuchen.Requery
DSAnz = lstSuchen.ListCount
If lstSuchen.ItemsSelected.Count = 0 Then
SchGeheZu.Enabled = False
SchFinden.Enabled = False
Else
SchGeheZu.Enabled = True
SchFinden.Enabled = True
End If
txtSuchen.SetFocus
End Sub
Private Sub txtSuchen_Change()
On Error GoTo proc_err
txtSuchen.SetFocus
txtSuchFilter = txtSuchen.Text
txtSuchFilter.Requery
Me!lstSuchen.Requery
DSAnz = lstSuchen.ListCount
If lstSuchen.ItemsSelected.Count = 0 Then
SchGeheZu.Enabled = False
SchFinden.Enabled = False
Else
SchGeheZu.Enabled = True
SchFinden.Enabled = True
End If
txtSuchen.SetFocus
proc_exit:
Exit Sub
proc_err:
SchSuchenLöschen_Click
End Sub
Private Sub txtSuchen_Enter()
txtSuchen.SelStart = txtSuchen.SelLength + 1
End Sub
Private Function SuchenFinden(flg As Boolean)
On Error GoTo proc_err
If OpenArgs = "" Then
txtSuchen.SetFocus
Exit Function
End If
Dim SuchID As Long, SuchCtl As String
SuchID = Me!lstSuchen.Column(0)
DoCmd.SelectObject acForm, OpenArgs
SuchCtl = "Adresslisten-Nr"
DoCmd.GoToControl SuchCtl
DoCmd.FindRecord SuchID, acEntire, , acSearchAll, , acCurrent
txtSuchen.SetFocus
If flg = True Then
DoCmd.Close acForm, "frmSuchen"
End If
proc_exit:
Exit Function
proc_err:
MsgBox Err.Description, vbInformation, "Fehler"
Resume proc_exit
End Function
Vielen Dank, an Euch schon jetzt!Gruß Jens