mords aussgekräftig Deine Informationen!

welche Informationen braucht du noch

hier das eingebundene Makro

Bedingung Aktion Argumente
IstNull([Screen].[ActiveControl]) StoppMakro
FestlegenTempVar ReportToOpen; [Screen].[ActiveControl]
[CurrentProject].[IsTrusted] SetzenWert [Screen].[ActiveControl]; Null
ÖffnenBericht =[TempVar]![ReportToOpen]; Bericht; ; ; Normal
EntfernenTempVar ReportToOpen

Man hat nichtmal eine Ahnung mit welchem Programm Du arbeitest?

Lass mal den Code zeilenweise ablaufen, dann siehste doch in welcher Zeile die Fehlermeldung kommt..

Gruß Marie

Entschuldigung
ich arbeite mit accsess 2007

es handelt dich hier um kombinationtsfeld, in dem alle Berichte im dropdown menü aufgerufen werden. Die Fehlermeldung kommt, sobald ich auf einen der Berichte klicke

Dein Makro da verstehe ich nicht, konvertier das mal in VBA und schick dann den Code. Lass vorher mal schrittweise laufen, dann siehst Du genau in welcher Zeile von Deinem Code der Fehler auftaucht. Mit Makros kann ich nix anfangen.

Gruß marie

ich hoffe ich habe das richtig gemacht hir der code

Option Compare Database

Private Sub Befehl139_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

Private Sub Befehl27_Click()
On Error GoTo Err_Befehl27_Click


DoCmd.GoToRecord , , acFirst

Exit_Befehl27_Click:
Exit Sub

Err_Befehl27_Click:
MsgBox Err.Description
Resume Exit_Befehl27_Click

End Sub
Private Sub Befehl28_Click()
On Error GoTo Err_Befehl28_Click


DoCmd.GoToRecord , , acLast

Exit_Befehl28_Click:
Exit Sub

Err_Befehl28_Click:
MsgBox Err.Description
Resume Exit_Befehl28_Click

End Sub
Private Sub Befehl29_Click()
On Error GoTo Err_Befehl29_Click


DoCmd.GoToRecord , , acNext

Exit_Befehl29_Click:
Exit Sub

Err_Befehl29_Click:
MsgBox Err.Description
Resume Exit_Befehl29_Click

End Sub
Private Sub Befehl30_Click()
On Error GoTo Err_Befehl30_Click


DoCmd.GoToRecord , , acPrevious

Exit_Befehl30_Click:
Exit Sub

Err_Befehl30_Click:
MsgBox Err.Description
Resume Exit_Befehl30_Click

End Sub
Private Sub Befehl31_Click()
On Error GoTo Err_Befehl31_Click


DoCmd.GoToRecord , , acNewRec

Exit_Befehl31_Click:
Exit Sub

Err_Befehl31_Click:
MsgBox Err.Description
Resume Exit_Befehl31_Click

End Sub
Private Sub Befehl32_Click()
On Error GoTo Err_Befehl32_Click


DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord

Exit_Befehl32_Click:
Exit Sub

Err_Befehl32_Click:
MsgBox Err.Description
Resume Exit_Befehl32_Click

End Sub
Private Sub Befehl33_Click()
On Error GoTo Err_Befehl33_Click


DoCmd.RunCommand acCmdSaveRecord

Exit_Befehl33_Click:
Exit Sub

Err_Befehl33_Click:
MsgBox Err.Description
Resume Exit_Befehl33_Click

End Sub
Private Sub Befehl34_Click()
On Error GoTo Err_Befehl34_Click

Dim stDocName As String
Dim stLinkCriteria As String

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

Exit_Befehl34_Click:
Exit Sub

Err_Befehl34_Click:
MsgBox Err.Description
Resume Exit_Befehl34_Click

End Sub
Private Sub Befehl36_Click()
On Error GoTo Err_Befehl36_Click


If Me.Dirty Then Me.Dirty = False
DoCmd.Close

Exit_Befehl36_Click:
Exit Sub

Err_Befehl36_Click:
MsgBox Err.Description
Resume Exit_Befehl36_Click

End Sub
Private Sub Befehl47_Click()
On Error GoTo Err_Befehl47_Click


DoCmd.RunCommand acCmdSelectRecord
DoCmd.PrintOut acSelection

Exit_Befehl47_Click:
Exit Sub

Err_Befehl47_Click:
MsgBox Err.Description
Resume Exit_Befehl47_Click

End Sub
Private Sub Befehl48_Click()
On Error GoTo Err_Befehl48_Click


Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFind

Exit_Befehl48_Click:
Exit Sub

Err_Befehl48_Click:
MsgBox Err.Description
Resume Exit_Befehl48_Click

End Sub
Private Sub Befehl55_Click()
On Error GoTo Err_Befehl55_Click

Dim stDocName As String
Dim stLinkCriteria As String

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

Exit_Befehl55_Click:
Exit Sub

Err_Befehl55_Click:
MsgBox Err.Description
Resume Exit_Befehl55_Click

End Sub
Private Sub Befehl56_Click()
On Error GoTo Err_Befehl56_Click


DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste

Exit_Befehl56_Click:
Exit Sub

Err_Befehl56_Click:
MsgBox Err.Description
Resume Exit_Befehl56_Click

End Sub
Private Sub Befehl57_Click()
On Error GoTo Err_Befehl57_Click


DoCmd.RunCommand acCmdApplyFilterSort

Exit_Befehl57_Click:
Exit Sub

Err_Befehl57_Click:
MsgBox Err.Description
Resume Exit_Befehl57_Click

End Sub

Private Sub Kombinationsfeld182_AfterUpdate()

End Sub


es stoppt beim 4. schritt: öffen formular ..........................
dann kommt die meldund:
für den von ihnen eingegebenen ausdruck ist es erforderlich, dass sich das steuerlement im aktiven fenter befindet

Oh menno, welches ist der vierte Schritt. Was hast Du denn jetzt alles hier reinkopiert? Ich finde hier nix von einem Bericht.

Private Sub Kombinationsfeld182_AfterUpdate()

End Sub

das hier is der Code, der läuft, wenn Du in Deinem Kombifeld was anklickst, zu Deutsch da steht gar nix drin. Und Bericht heisst Report, wo steht was von einem bericht und welches ist der vierte Schritt???

Lösch mal alle subs, wo zwischen der ersten Zeile und End Sub nix drinsteht.

versuch mal herauszufinden in welcher sub Du nen fehler bekommst und schick dann nur die Codezeilen, alles andere kannste weglassen.

gruß marie

Wieder Entschldigung aber ich kenne mich in VBA nicht aus und habe das makro im einzelschritt ausgeführt und in der vierten zeile ist es stehn geblieben
was soll ich tun?

Mal schauen wie Dein Kombifeld heisst. Wenn es Kombinationsfeld182 heisst, dann tut sich hier gar nix.

Ich kann Dir nicht wirklich helfen, wenn Du nichtmal nachsehen kannst welcher Code jetzt wohingehört (indem Du Deine sämtlichen Buttons und Befehle mal anschaust welche Namen sie haben in der Entwurfsansicht in Ansicht Eigenschaften!!))

Ich kann mir nicht wirklich vorstellen, dass man sowas ohne Code machen kann, also Du solltest Dich schonmal damit befassen.

Private Sub Befehl55_Click()

End Sub

Was zwischen zwei solchen Zeilen steht bezieht sich auf das Teil, was den Namen Befehl55 hat, also suchste bitte mal nach dem Namen von Deinem Kombifeld und nach dem Code mit diesem Namen und postest den hier rein.

Wenn Du das nicht fertigbringst kann Dir niemand helfen.
Gruß Marie