Office: (Office 2010) Problem Laufzeitfehler 438

Helfe beim Thema Problem Laufzeitfehler 438 in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Ich erhalte beim Starten meiner Anwendung in Acc2010 einen Laufzeitfehler '438' die Verweise habe ich geprüft, sind auch da und regestriert. was kann... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Erich290607, 14. Oktober 2012.

Seite 1 von 2

ERICH290607

Erich290607

Problem Laufzeitfehler 438

Ich erhalte beim Starten meiner Anwendung in Acc2010 einen Laufzeitfehler '438'
die Verweise habe ich geprüft, sind auch da und regestriert.

was kann ich machen? in der Zeile Me!Gridliste.refrech bleibt er hängen

:)

Erich290607, 14. Oktober 2012

#1
SCOREFUN

Scorefun

um was für ein Steuerelement handelt es sich?

Der Fehler besagt, daß es diese Eigenschaft/Methode nicht gibt, und damit ist wohl "refresh" gemeint...

Scorefun, 16. Oktober 2012

#2
MAXEL

Maxel

Refresh ist anwendbar auf Formulare und Datensatzblätter, nicht auf Steuerelemente. Die Hilfe klärt auf.

Maxel, 16. Oktober 2012

#3
ERICH290607

Erich290607

Problem Laufzeitfehler 438

Danke für die Antwort,

es handelt sich um ein sevDataGrid2.sevGrid
mit Acc 2003 hat das funktioniert.
kann ich das refresh auskommentieren? oder Neu registrieren

Erich290607, 16. Oktober 2012

#4
UWEK

uwek

Du solltest das Grid auch als solches deklarieren,
dann hast auch Zugriff auf alle desen Eigenschaften.

Code:

Private mGrid As sevGrid
' oder mit Zugriff auf Ereignisse
Private WithEvents mGrid As sevGrid

Private Sub Form_Load()

Set mGrid = Me!Grid1.Object

Private Sub Form_Unload(Cancel As Integer)

Set mGrid = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

uwek, 16. Oktober 2012

#5
ERICH290607

Erich290607

Hallo Uwe,
Danke
habe es umgesetzt nein will er so auch nicht

Erich290607, 17. Oktober 2012

#6
ANNE BERG

Anne Berg

Hallo Erich,

zeig doch mal, wie dein Code jetzt aussieht.

Anne Berg, 17. Oktober 2012

#7
FRAESER

fraeser

Problem Laufzeitfehler 438

Probier mal

Code:

Me.ListeGrid.Refresh
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

fraeser, 17. Oktober 2012

#8
UWEK

uwek

Mit der von mir genannten Deklaration sollte es gehen.
Da du aber die Aktuallisierung nicht über die Daten sondern nur zur Darstellung aufrufst, sollte RefreshEx ausreichen.
Auszug aus der Hilfe (die du auch haben solltest)
Anmerkung:

Im Gegensatz zur Refresh-Methode wird bei Aufruf der RefreshEx-Methode der Inhalt neu gezeichnet, ohne das Recordset auf Änderungen zu prüfen! Dies ist bspw. immer dann sinnvoll, wenn die Größe des Controls verändert wurde und der Inhalt neu gezeichnet werden soll.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

uwek, 17. Oktober 2012

#9
ERICH290607

Erich290607

Hallo zusammen,

und Danke für eure Hilfe!

hier der Code:

Code:

Option Compare Database
Option Explicit
Private ssQL As String
Private sSqlOpt As String
Private nNode As Object
Private bButton As Boolean

Private iTime As Long
Private iTag As Long
Private strKunde As String

Private datMonatB As String
Private datMonatE As String
Private datJahrB As String
Private datJahrE As String
Private datBegin As String

Private bezBemA As String
Private bezAufgabenA As String
Private bezÜberschriftA As String

Private mGrid As sevGrid
' Wichtig! PopUp-Klasse mit Events deklarieren
Dim WithEvents oPopUp As sevPopUp.PopUp
' für die Formular-Timer-Steuerung
Dim nTimerAction As eTimerAction

Private Enum eTimerAction
PopUpShow = 0
End Enum

Private Sub cbStart_ButtonClick(ByVal nButton As Long, ByVal sKey As String, ByVal bValue As Boolean, Button As Integer, Shift As Integer)
Select Case sKey
Case "btnOptionen"
DoCmd.OpenForm "frmOptionen"
End Select
End Sub

Private Sub Form_Load()
'
Dim sD As String
Dim oRS As DAO.Recordset

' PopUp-Objekt instanzieren
On Error GoTo Form_Load_Error

SetColors Me

If Win_Restore(Me) = False Then
DoCmd.Maximize
End If

Set oPopUp = New sevPopUp.PopUp
Set mGrid = Me!GridListe.Object
With oPopUp
.Init ("B7D32B-BE8F69-22Y33E-YEA9DC")
End With

Set bbtnFrei0.ImageList = Me.imgButton
Set bbtnFrei1.ImageList = Me.imgButton
Set bbtnFrei2.ImageList = Me.imgButton
Set bbtnReq1.ImageList = Me.imgButton
Set bbtnReq2.ImageList = Me.imgButton
Set bbtnMiss1.ImageList = Me.imgButton

bezBemA = "Bemusterung "
bezAufgabenA = "Ausstehende Aufgaben "
bezÜberschriftA = "Übersicht"
bezÜberschrift = "Übersicht"

bbtnFrei0.Image = 1
bbtnFrei1.Image = 1
bbtnFrei2.Image = 1
bbtnReq1.Image = 1
bbtnReq2.Image = 1
bbtnMiss1.Image = 1

sFrei0.BackColorDisabled = PB_Red1
iFrei0.BackColorDisabled = PB_Red1
sFrei1.BackColorDisabled = PB_Red1
iFrei1.BackColorDisabled = PB_Red1
sFrei2.BackColorDisabled = PB_Red1
iFrei2.BackColorDisabled = PB_Red1
sReq1.BackColorDisabled = PB_Red1
iReq1.BackColorDisabled = PB_Red1
sReq2.BackColorDisabled = PB_Red1
iReq2.BackColorDisabled = PB_Red1
sMiss1.BackColorDisabled = PB_Green1
iMiss1.BackColorDisabled = PB_Green1

bEdit = False
strKunde = "'*'"
BuildSQL
bezBem = bezBemA & " *Alle*"
bezÜberschrift = bezÜberschrift & " *Alle*"

cboStand_Load
cboKunde_Load
cboSach_Load
cboSchlüssel_Load
cboStatus_Load

datJahrB = Year(Date)
datJahrE = datJahrB

With cbStunden.Buttons("mnuJahr")
.AddMenuButton "*Alle*", "btnJahrAlle"
.MenuButton("btnJahrAlle").Tag = "0"
.MenuButton("btnJahrAlle").Checked = True
sD = Date
Do While Year(sD) < Year(Date) + 3
.AddMenuButton Year(sD), CStr(Year(sD))
.MenuButton(CStr(Year(sD))).Tag = Year(sD)
sD = DateAdd("yyyy", 1, sD)
Loop
.Text = "Jahr"
.PictureDisabled = imgButton.ListImages("iCross").Picture
End With
With cbStunden.Buttons("mnuMonat")
.MenuButton("mAlle").Checked = True
.Text = "Monat"
.PictureDisabled = imgButton.ListImages("iCross").Picture
End With
With cbStunden
.Buttons("btnDatum").PictureDisabled = imgButton.ListImages("iCross").Picture
.Buttons("btnAlle").PictureDisabled = imgButton.ListImages("iCross").Picture
.Buttons("btnAlle").Checked = True
End With

datMonatB = "0"
datEnd = CStr(Date)
bezAufgaben = bezAufgabenA & " bis " & Format(CDate(datEnd), "dd.mmmm.yyyy")

ssQL = "SELECT KuID, KuText FROM tblKunde ORDER BY KuText"
Set oRS = db.OpenRecordset(ssQL)
With cbStunden.Buttons("mnuKunde")
.AddMenuButton "*Alle*", "btnKundeAlle"
.MenuButton("btnKundeAlle").Tag = "'*'"
.MenuButton("btnKundeAlle").Checked = True
Do Until oRS.EOF
.AddMenuButton oRS!KuText, "K" & CStr(oRS!KuID)
.MenuButton("K" & CStr(oRS!KuID)).Tag = oRS!KuID
oRS.MoveNext
Loop
oRS.Close
End With

btnAbbrechen.Visible = False
btnÜbernehmen.Visible = False

Call Bearbeiten(False)

Daten_Check

strGruppeNr = ""

Coolbar_Laden

tvArt_Laden

GridListe_Laden

Me.xxtUs_ID = l_UsID
Me.XStr105 = " Mitarbeiter: " & " > " & s_Sachb & " < " & Date
Me.Caption = s_Sachb & " " & s_Stand & " Heute ist der: " & Date & " © PB"

Debug.Print (GetTime - iTime)
On Error GoTo 0
Exit Sub

Form_Load_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Load of VBA Dokument Form_frmBem"

End Sub

Private Sub Form_Resize()

Dim lW As Long
Dim lH As Long
Dim lC As Long

lW = Me.InsideWidth - 20
lH = Me.InsideHeight - 50

Me!tvBem.Height = lH - Me!tvBem.Top
Me!tvArtikel.Height = Me!tvBem.Height
If lH > Me!GridListe.Top + 50 Then
Me!GridListe.Height = lH - Me!GridListe.Top
Me!GridListe.Width = lW - Me!GridListe.Left
Me!GridListe.RefreshEx 'hier bleibt er stehen auch mit RefreshEx
End If
If Me.InsideWidth > 15000 Then
bezAufgaben.Width = lW - bezAufgaben.Left - 20
cbAufgaben.Left = lW - cbAufgaben.Width - 20
lC = cbAufgaben.Left - 50
bezDatum.Width = lC - bezDatum.Left
iFrei0.Left = lC - iFrei0.Width
iFrei1.Left = iFrei0.Left
iFrei2.Left = iFrei0.Left
iReq1.Left = iFrei0.Left
iReq2.Left = iFrei0.Left
iMiss1.Left = iFrei0.Left
iDs.Left = iFrei0.Left

sFrei0.Width = iFrei0.Left - sFrei0.Left - 20
sFrei1.Width = sFrei0.Width
sFrei2.Width = sFrei0.Width
sReq1.Width = sFrei0.Width
sReq2.Width = sFrei0.Width
sMiss1.Width = sFrei0.Width
sDs.Width = sFrei0.Width

bezA.Width = lW - bezA.Left
End If

Me!cbEnde.Left = 0
Me!cbEnde.Width = lW

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

Erich290607, 17. Oktober 2012

#10
FRAESER

fraeser

Bist Du sicher, daß es genau so mit Acc2003 funktioniert hat?
Vergleiche evtl. mal alle Verweise - auch die Reihenfolge.
Hast Du evtl. zwischenzeitlich ein Update vom sevDataGrid installiert?
In dem Fall evtl. mal das Grid löschen, Verweis raus; aktuelle ocx neu registrieren; ActiveX-sevGrid wieder ins Formular...

fraeser, 17. Oktober 2012

#11
UWEK

uwek

Wenn du schon mGrid richtig referenzierst, dann solltest du es auch benutzen.
statt:
Me!GridListe.RefreshEx
mGrid.RefreshEx

uwek, 17. Oktober 2012

#12
ERICH290607

Erich290607

Problem Laufzeitfehler 438

Hallo Uwe,

puh, jetzt kommt Objektvariabel oder With-Blockvariable nicht festgelegt

und der Code steigt in dem Block aus! *eek.gif*

Code:

Private Sub Form_Resize()

Dim lW As Long
Dim lH As Long
Dim lC As Long

lW = Me.InsideWidth - 20
lH = Me.InsideHeight - 50

Me!tvBem.Height = lH - Me!tvBem.Top
Me!tvArtikel.Height = Me!tvBem.Height
If lH > Me!GridListe.Top + 50 Then
Me!GridListe.Height = lH - Me!GridListe.Top
Me!GridListe.Width = lW - Me!GridListe.Left
mGrid.RefreshEx
End If
If Me.InsideWidth > 15000 Then
bezAufgaben.Width = lW - bezAufgaben.Left - 20
cbAufgaben.Left = lW - cbAufgaben.Width - 20
lC = cbAufgaben.Left - 50
bezDatum.Width = lC - bezDatum.Left
iFrei0.Left = lC - iFrei0.Width
iFrei1.Left = iFrei0.Left
iFrei2.Left = iFrei0.Left
iReq1.Left = iFrei0.Left
iReq2.Left = iFrei0.Left
iMiss1.Left = iFrei0.Left
iDs.Left = iFrei0.Left

sFrei0.Width = iFrei0.Left - sFrei0.Left - 20
sFrei1.Width = sFrei0.Width
sFrei2.Width = sFrei0.Width
sReq1.Width = sFrei0.Width
sReq2.Width = sFrei0.Width
sMiss1.Width = sFrei0.Width
sDs.Width = sFrei0.Width

bezA.Width = lW - bezA.Left
End If

Me!cbEnde.Left = 0
Me!cbEnde.Width = lW

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

Erich290607, 18. Oktober 2012

#13
UWEK

uwek

Dann schmeiß mal die Fehlerbehandlung im Form_Load-Ereigniss raus,
ob mGrid auch ordentlich referenziert wird.
Ansonsten weiß ich dann auch nicht weiter, da es bei mir so funtioniert.

uwek, 18. Oktober 2012

#14
ANNE BERG

Anne Berg

Hallo,

ich denke, das Objekt sollte konsequenter eingesetzt werden... Code:

Me!GridListe.Height = lH - Me!GridListe.Top
Me!GridListe.Width = lW - Me!GridListe.Left
mGrid.RefreshEx
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder habe ich das falsch verstanden?

Anne Berg, 18. Oktober 2012

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Problem Laufzeitfehler 438

Die Seite wird geladen...

Problem Laufzeitfehler 438 - Similar Threads - Problem Laufzeitfehler 438
Outlook Problem
in Microsoft Outlook Hilfe
Outlook Problem: Hallo zusammen, ich brauche Hilfe bei folgendem Problem. Ich bekomme pro Woche ca. 44 Mails vom immer gleichen Absender, no-reply@deutschepost.de mit immer dem gleichen PDF-Anhang. Die...
Problem bei Fußnote
in Microsoft Word Hilfe
Problem bei Fußnote: Hallo zusammen, habe folgendes Problem. Sobald ich eine Fußnote einfüge, erscheint automatisch am Ende der Seite eine Art Überschrift mit der Zahl 1. Hier der Screenshot. Habe schon alles...
Excel found a problem with one or more formula references in this worksheet
in Microsoft Excel Hilfe
Excel found a problem with one or more formula references in this worksheet: Liebes Forum, ich habe ein Problem, das viel durch das Internet geistert, aber nirgendwo gibt es eine erfolgreiche Lösung für: "Excel found a problem with one or more formula references in this...
Zählenwenns Problem
in Microsoft Excel Hilfe
Zählenwenns Problem: Hallo. Ich möchte zählen wie oft der Name Person 2 vorkommt aber nur dann wenn darüber ein anderer Name steht. Also in C3 sollte 5 mal stehen aber in C4 nichts bzw. 0 Dann in C8 die 2 und in C9...
Problem mit Seitenzahlen/Seitenbeschriftung
in Microsoft Word Hilfe
Problem mit Seitenzahlen/Seitenbeschriftung: Hallo, ich schreibe gerade meine Masterarbeit und habe ein kurioses Problem, bei dem ich nicht weiterkomme. Ich habe eine "beidseitige" Vorlage für die Masterarbeit der Universität verwendet. Da...
Data Transform, Problem with delimiter
in Microsoft Excel Hilfe
Data Transform, Problem with delimiter: Hello Community, I encounter one problem with excel. When I export table from csv I have a delimiter semicolon, but it doesn't work. I found solution. If I would go to Power Query Editor - Split...
Makro Problem (Laufzeitfehler 1004)
in Microsoft Excel Hilfe
Makro Problem (Laufzeitfehler 1004): Hallo liebe Forengemeinde, ich habe mich hier angemeldet da ich seit einiger Zeit mit einem Problem kämpfe wofür ich einfach keine Lösung finde. Auf Arbeit benutze ich Excel 2010. Zum erzeugen...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden