Office: Abfrage per Batch starten UND Parameter übergeben???

Arne Dieckmann · 28. April 2004

Der Weg von 1- 3 stimmt wohl so schon.

Hilft das denn auch noch (für Schritt 3)?:

http://www.dbwiki.de/wiki.php?title=...ameter_starten

jmc · 28. April 2004

Hi Schwenni

Arne hat ja schon bestätigt, dass der Ablauf grundsätzlich richtig ist.

Das Makro mit dem Funktions-Aufruf wirst du wohl hinbekommen ...

Die Funktion könnte so aussehen:
Code:

Public Function fncCommandParams()
On Error GoTo HandleErr

Dim strParam() As String
Dim strMsg As String
If Len(Command) = 0 Then
strMsg = "Es wurden keine Parameter angegeben !"
GoTo QuitApp
End If

strParam = Split(Command)
Select Case strParam(0)
Case "Funktion1"
If UBound(strParam) < 3 Then
MsgBox "Für Funktion1 wurden zuwenig Parameter angegeben"
GoTo QuitApp
End If
strKriterium1 = strParam(1)
strKriterium1 = strParam(2)
MsgBox "Funktion 1 ausführen"
Case "Funktion2"
MsgBox "Funktion 2 ausführen"
Case Else
MsgBox "Falsche Funktion angegeben", vbCritical
GoTo QuitApp
End Select

ExitHere:
Exit Function

QuitApp:
MsgBox strMsg, vbCritical, "Start von Kommandozeile"
DoCmd.Quit

' Error handling block added by Error Handler Add-In. DO NOT EDIT this block of code.
' Automatic error handler last updated at 04-28-2004 17:19:25 'ErrorHandler:$$D=04-28-2004 'ErrorHandler:$$T=17:19:25
HandleErr:
Select Case Err.Number
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Module2.fncCommandParams" 'ErrorHandler:$$N=Module2.fncCommandParams
End Select
' End Error handling block.
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dabei werden die Parameter, wie schon früher angegeben, mit Leerstellen getrennt.
Um nun ein Kriterium in der Abfrage zu verwenden musst du eine Umstellung machen:
Anstelle dass du dich auf das Formular beziehst (dieses kann ja nicht geöffnet werden, denn es soll ja automatisch ablaufen) musst du den Wert mit einer Funktion zurückgeben, also z.B.
Code:

Public Function GetKriterium1() as String
GetKriterium1 = strKriterium1
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In der Abfrage dann einfach statt =Forms!.....
=GetKriterium1() schreiben.
Entsprechend musst du dann natürlich auch den Aufruf aus dem Formular anpassen: du musst die Kriterien zuerst in die Variable schreiben, damit dann die Get-Funktion diese in der Abfrage liefern kann.

Hoffe, dass du damit weiterkommst, sonst einfach nachfragen, aber bitte konkret dann, was du wissen musst ! (und auch mit konkreten Angaben ...)

Schwenni · 28. April 2004

hi, jmc!

vielen dank für deine hilfe!!! *Smilie
ich werd mich im laufe des tages da mal drüber hermachen und das ganze mal ausprobieren und dann bescheid geben, ob's funktioniert (oder halt noch a bisserl 'weiternerven')... *biggrin.gif*

gruss,
schwenni

ps: wie lauten denn eigtnlich die befehle zum aufrufen des berichtes???

CptChaos · 28. April 2004

\@Schwenni
Ging damals um einen etwas anderen Sachverhalt.
*.cmd-Datei aus Access starten und die Rückgabe in Access auswerten/zurückgeliefert bekommen.

Hier der Thread dazu:
Thread

jmc · 28. April 2004

\@schwenni

Du weisst nicht, wie ein Bericht aufgemacht wird ?
Hast du denn in deiner Oberfläche mit dem Formular keinen Button mit dem ein Bericht geöffnet wird ? Da könntest du nachschauen, aber ich bin mal nicht so:

DoCmd.OpenReport "deinBerichtsname", ...

Details dazu in der OL-Hilfe

Schwenni · 29. April 2004

\@jmc:

sorry, klar - hätt ich auch selbst drauf kommen können!!!

war mit meinen gedanken noch mit ganz anderen sachen beschäftigt und dann neigt man ja schnell dazu, sich alles vorkauen zu lassen - kommt nicht wieder vor.. hihi *biggrin.gif*

werd mich gleich mal an die geschichte ran machen...

Schwenni · 29. April 2004

\@jmc & alle anderen, die mir geholfen haben:

hab's hingekriegt; vielen dank für eure hilfe!!!

is ja wie mit dem autofahren: wenn man weiss, wie's geht, ist's echt einfach... *Smilie

gruss,
schwenni

ps: hab auch gerade erfahren, dass ich aus meiner warenwirtschaft auch direkt vb-code ausführen kann. damit geht das ganze doch bestimmt noch etwas eleganter, oder?!?
daran werd ich mich auf jeden fall als nächstes versuchen - ich 'warn' euch nur schonmal vor... *wink.gif*

_________________________________________________________
heute ist nicht alle tage - ich meld mich wieder, keine frage! *Smilie

Office: Abfrage per Batch starten UND Parameter übergeben???

Abfrage per Batch starten UND Parameter übergeben???

Abfrage per Batch starten UND Parameter übergeben???

Abfrage per Batch starten UND Parameter übergeben???

Abfrage per Batch starten UND Parameter übergeben??? - Similar Threads - Abfrage Batch starten

Ausführen einer Abfrage Forcieren

Abfrage Kriterien ist falsch

Abfrage: Anzahl von Kriterium >0

Teil des Zellinhaltes abfragen in VBA

Verliert irgendwann die Selektive Abfrage von UFO

automatische Abfrage URL via Artikelnummer

Vorkommen von Kunden in mehreren Tabellen per Abfrage filtern