So funktioniert JustAnswer:

  • Fragen Sie einen Experten
    Tausende Experten in über 200 Kategorien.
  • Erhalten Sie eine professionelle Antwort
    Per E-Mail oder sofortiger Benachrichtigung, während Sie auf unserer Website warten.
    Stellen Sie ggf. weitere Anschlussfragen.
  • 100%ige Zufriedenheit garantiert
    Bewerten Sie die erhaltene Antwort.

Stellen Sie Ihre Frage an IT-Fachinformat...

IT-Fachinformatiker
IT-Fachinformatiker, Systemadministrator
Kategorie: Computer
Zufriedene Kunden: 6838
Erfahrung:  Software Entwicklung, Projekt Erfahrung, Windows-Netzwerke, Linux-Netzwerke, Windows/Linux-Server
32504664
Geben Sie Ihre Frage in der Kategorie Computer hier ein
IT-Fachinformatiker ist jetzt online.

Ich habe ein Problem in Microsoft Access

Kundenfrage

Ich habe ein Problem in Microsoft Access
Gepostet: vor 3 Monaten.
Kategorie: Computer
Experte:  Lorenz Vauck hat geantwortet vor 3 Monaten.

Sehr geehrter Kunde,

vielen Dank für Ihre Frage. Mein Name ist Lorenz Vauck und ich versuche Ihnen gerne schnellstmöglich weiterzuhelfen.

Können Sie mir Ihr Problem mit den Filtern in Microsoft Access bitte etwas genauer beschreiben damit ich Ihnen effektiv weiterhelfen kann?

Vielen Dank für Ihre Geduld und mit freundlichen Grüßen,

Lorenz Vauck

Kunde: hat geantwortet vor 3 Monaten.
Hallo Herr Vauck
Ich möchte gerne einen Bericht öffnen unter Berücksichtigung eines Datum und Zeit-Filters.
Das mit dem Datum habe ich hingekriegt resp. folgender Code funktioniert:
Private Sub BezLieferscheineinzeln_Click()
'*======================================================================
'* Beschreibung der Funktion:
'* Lieferschein einzeln drucken
'*======================================================================Dim Filter As StringOn Error Resume Next
Filter = _
"Betreiber = """ & Me!Betreiber & """ AND " & _
"LagerOrt = """ & Me!LagerArt & """ AND " & _
"LieferDatum Between " & Format(Me!DatumVon, "\#mm-dd-yyyy\#") & _
" And " & Format(Me!DatumBis, "\#mm-dd-yyyy\#")If Not IsNull(Me!LagerArt) _
Then
DoCmd.OpenReport "Lieferschein", acViewPreview, , Filter
Else
MsgBox "Bitte das Datum eingeben."
End IfEnd SubDann habe ich den Zeitfilter hinzugefügt und es geht nichts mehr:
Was ist hier falsch?? Können Sie mir einen Tipp geben??:Private Sub BezLieferscheineinzeln_Click()
'*======================================================================
'* Beschreibung der Funktion:
'* Lieferschein einzeln drucken
'*======================================================================Dim Filter As StringOn Error Resume Next
Filter = _
"Betreiber = """ & Me!Betreiber & """ AND " & _
"LagerOrt = """ & Me!LagerArt & """ AND " & _
"LieferDatum Between " & Format(Me!DatumVon, "\#mm-dd-yyyy\#") & _
" And " & Format(Me!DatumBis, "\#mm-dd-yyyy\#") & _
"LieferZeit" & Format(Me!Zeitgleich, "\#hh:nn:ss\#") & """"If Not IsNull(Me!LagerArt) _
Then
DoCmd.OpenReport "Lieferschein", acViewPreview, , Filter
Else
MsgBox "Bitte das Datum und Zeit eingeben."
End IfEnd Sub
Kunde: hat geantwortet vor 3 Monaten.
Es ist leider sehr dringend... Können Sie mir heute noch eine Antwort geben?
Experte:  Lorenz Vauck hat geantwortet vor 3 Monaten.

Ich schaue gerade über den Code und versuche mich zu beeilen. Ich kann Ihre Frage sonst auch für andere Experten freigeben, nur sind gerade keine mehr online. Geben Sie mir noch ein paar Minuten, vielleicht finde ich das Problem.

Kunde: hat geantwortet vor 3 Monaten.
Ok. alles klar! Vielen Dank für Ihre Bemühungen...
Experte:  Lorenz Vauck hat geantwortet vor 3 Monaten.

Lieber Kunde,

vielen Dank für Ihre Geduld, ich muss hier leider passen, ich finde keinen Fehler in Ihrem Code. Vielleicht kann hier ein anderer Experte noch weiterhelfen. Ich gebe die Frage von daher frei (dies kostet Sie nichts extra) und hoffe Ihnen wird schnell geholfen.

Vielen Dank ***** ***** schönen Abend noch,

Lorenz Vauck

Kunde: hat geantwortet vor 3 Monaten.
Ist sonst keiner mehr online?
Experte:  Lorenz Vauck hat geantwortet vor 3 Monaten.

Das ist um Mitternacht eher selten, ab 9 Uhr sollten wieder mehr Experten verfügbar sein. Ihre Frage steht wieder auf der "Offenen Liste" und jeder Experte der möchte kann die Frage dann annehmen. Ich drücke Ihnen die Daumen und bedauere den Fehler nicht gefunden zu haben. Ich hoffe ein Kollege ist erfolgreicher für Sie.

Experte:  IT-Fachinformatiker hat geantwortet vor 3 Monaten.

Hallo,

es gibt zwei Lösungen:

Sie erstellen eine Abfrage (SELECT) und ändern diese vorher per VBA:

dim db as current database

dim qdf as db.QueryDefs

for each qdf in db.QueryDefs

if qdf.name="der Name" then

qdf.sql ="SELECT * FROM a WHERE datum = 'das was nun folgen soll' "

end if

next

danach mit DoCmd den Report öffnen und dieser muss natürlich auf die o.a. Abfrage basieren. Das funktioniert auch recht gut und sollte auch bei Ihnen klappen. Der zweite Ansatz: Jeder Report hat eine Where Eigenschaft die Sie mit DoCmd.OpenReport "name des reports" ,, WhereCondition "" ich würde aber eine Abfrage vorschlagen auf der der Report basiert.

Gruß Günter

Kunde: hat geantwortet vor 3 Monaten.
Hallo
Habe den Code noch anpgasst und sie funktioniert auch bis und mit Datum. Aber so bald ich das mit der Lieferzeit reinnehme funktioniet es nicht mehr...
Ich möchte keine zusätzliche Abfrage und das mit dem ,, WhereCondition "" funktioniert auch nicht.
Irgend was in diesem Code ist falsch und ich finde es leider nicht raus...:Private Sub BezLieferscheineinzeln_Click()
'*======================================================================
'* Beschreibung der Funktion:
'* Lieferschein einzeln drucken
'*======================================================================Dim Filter As StringOn Error Resume Next
Filter = _
"Betreiber = """ & Me!Betreiber & """ AND " & _
"LagerOrt = """ & Me!LagerArt & """ AND " & _
"LieferDatum Between " & Format(Me!DatumVon, "\#mm-dd-yyyy\#") & _
" And " & Format(Me!DatumBis, "\#mm-dd-yyyy\#") & " AND " & _
"LieferZeit Between " & Format(Me!ZeitVon, "\#hh:mm\#") & _
" And " & Format(Me!ZeitBis, "\#hh:mm\#") & """"If Not IsNull(Me!LagerArt) _
And Not IsNull(Me!DatumVon) _
And Not IsNull(Me!DatumBis) _
Then
DoCmd.OpenReport "Lieferschein", acViewPreview, , Filter
Else
MsgBox "Bitte das Datum und Zeit eingeben oder Sortiment wählen."
End IfEnd Sub
Experte:  IT-Fachinformatiker hat geantwortet vor 3 Monaten.

Hallo ich würde an Ihrer Stelle wie gesagt eine Abfrage erstellen in der SQL-Ansicht, welche dann als Datenherkunft für den Report dient damit kommen Sie sehr viel schneller ans Ziel. Sie müssen das folgende machen in Ihrer Sub:

Am Anfang:

On Error Goto Error_Handler:

dann am Ende:

Error_Handler:

Select Case Err

Case Else: MsgBox Err.Description

End Case

erst dann erfahren Sie genau, was los ist außerdem einmal per F9 einen Haltepunkt am Anfang setzen und dann den Code per F9 / F5 Step by Step abfahren und die Werte der Variablen prüfen erst dann kann man sehen, was genau nicht klappt und dann kann man den Code auch korrigieren.

Gruß Günter

Experte:  IT-Fachinformatiker hat geantwortet vor 3 Monaten.

Sehr geehrter Kunde!

leider erhalte ich nach wie vor keinerlei Rückmeldung. Ich bitte Sie daher meine Antwort zu bewerten. Klicken Sie, wenn ich helfen konnte bitte auf die "******" unter meiner Antwort. Senden Sie mir bitte ein Feedback, wenn Sie noch Fragen haben ansonsten ist ein weiterer Support nicht möglich. Vielen Dank!

Mit freundlichen Grüßen

Günter

Bekannt aus:

 
 
 
„[...]mehr als Zehntausend Experten weltweit; 1500 davon in Deutschland. Acht Jahre nach dem Start ist das [...] Online-Unternehmen mit seinen 90 Mitarbeitern die größte Web-Seite für das Vermitteln von Experten von Anwälten über Ärzte bis hin zu Universitätsprofessoren.“
„Wer eine fachmänische Lösung für ein medizinisches, rechtliches oder technisches Problem sucht, kann das jetzt auch im Internet tun. Lebenshilfe auf die schnelle, unkomplizierte und vor allem erschwingliche Art bietet die Seite www.justanswer.de. Etwa 1500 Experten stehen per Mail für Fragen zu ca. 200 Fachgebieten rund um die Uhr zur Verfügung."
„Rat gewünscht? Rechtliche, medizinische oder allgemeine Fragen beantworten Experten unter www.justanswer.de."
„JustAnswer, die weltweit führende Online-Plattform für Expertenfragen und -antworten, bietet ab sofort noch mehr Sicherheit und Qualität für Verbraucher."
„Ob Vorbereitung, Notfall oder Reklamation nach dem Urlaub - JustAnswer bietet jederzeit schnelle, kompetente Antworten"
„Die Online-Plattform JustAnswer bringt Ratsuchende und Experten in über 200 Fachgebieten zusammen."
 
 
 

Was unsere Besucher über uns sagen:

 
 
 
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
< Zurück | Weiter >
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
  • Endlich ein Experte, der mir wirklich weiterhelfen konnte! DANKE! JustAnswer Kunde Taunusstein
  • Ihre Antwort hat mir sehr geholfen, die richtigen Entscheidungen zu treffen. Dass Sie mir darüber hinaus noch 2 Empfehlungen gegeben haben fand ich super. Vielen Dank! JustAnswer Kunde Freiburg
  • Die ausgearbeiteten Hilfen waren gut strukturiert, leicht verständlich und zu 100% hilfreich für mich. Vielen Dank Markus B. Karlsruhe
  • Sehr schnelle und kompetente Antwort, die für mich bares Geld bedeutet. Vielen Dank! S.Stober K.
  • Herzlichen Dank! Hab durch Ihre Antwort viel Geld gespart! Ben R. Deutschland
  • Sehr schnelle und kompetente Hilfestellung. Besonders für mich als Laien wurde alles sehr verständlich erklärt. Gerne wieder! Rosengl Bad Tölz
 
 
 

Lernen Sie unsere Experten kennen:

 
 
 
  • Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
< Zurück | Weiter >
  • http://ww2.justanswer.com/uploads/PY/Pyroflash/2011-4-21_104934_tronic.64x64.jpg Avatar von Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
  • http://ww2.justanswer.com/uploads/rufushoschi/2010-11-08_135947_bild.jpg Avatar von IT-Fachinformatiker

    IT-Fachinformatiker

    Systemadministrator

    Zufriedene Kunden:

    6338
    Software Entwicklung, Projekt Erfahrung, Windows-Netzwerke, Linux-Netzwerke, Windows/Linux-Server
  • http://ww2.justanswer.com/uploads/COMINAROSA/2010-02-03_172238_PASSBILD.JPG Avatar von COMIN IT-Service

    COMIN IT-Service

    Dipl.-Ing.

    Zufriedene Kunden:

    779
    Dipl.Ing (FH) ET, NT, IT
  • http://ww2.justanswer.com/uploads/RaubergerConcep/2010-03-02_102740_Portraet64.jpg Avatar von RaubergerConcept

    RaubergerConcept

    IT-Specialist

    Zufriedene Kunden:

    234
    Mehr als 10 Jahre Erfahrung in Softwareentwicklung und Netzwerktechnik
  • http://ww2.justanswer.com/uploads/LF/lfalkenburg/2015-2-8_01843_.64x64.jpg Avatar von Lutz Falkenburg

    Lutz Falkenburg

    IT-Specialist

    Zufriedene Kunden:

    96
    Seit über 20 Jahren beruflich im IT-/IUK-Bereich tätig. Egal ob EinzelPC der Netzwerk...
  • http://ww2.justanswer.com/uploads/BI/BigDaddyXD/2012-10-24_20126_WhySoSeriousJob.64x64.jpg Avatar von BigDaddyXD

    BigDaddyXD

    Informatiker

    Zufriedene Kunden:

    1588
    Microsoft Certified Professional, Microsoft Certified Desktop Support Technican,...
  • http://ww2.justanswer.com/uploads/PU/Pucky80/2011-5-14_54537_pucky80.64x64.jpg Avatar von Pucky80

    Pucky80

    IT-Systemkaufmann

    Zufriedene Kunden:

    1322
    MCITP (Microsoft Server 2008 Enterprise Administrator)
 
 
 

Ähnliche Fragen in der Kategorie Computer