MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 09.02.2018, 00:51   #16
Stadtbub
Threadstarter Threadstarter
MOF User
MOF User
Standard

Leider auch das gleiche Ergebnis...Das Subform wird zwar upgedatet aber nur wenn ich als Status "Einsatzbereit unterwegs" eingebe...nehme ich das gleiche Fahrzeug und gebe ihm den Status z.B. Ausser Dienst..schreibt das zwar Access in die tblEinsatzFahrzeuge aber das Suform bleibt so wie es ist - das Fahrzeug steht dort mit Einsatzbereit unterwegs (übrigens auch in der Abfrage wird dies nicht geändert).

Es müsste irgendwie so Ablaufen - Sobald ich dem Fahrzeug einen anderen Status gebe, müsste praktisch das Fahrzeug aus dem Subform "gelöscht" werden, so irgendwie
Stadtbub ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 01:07   #17
Nouba
MOF Guru
MOF Guru
Standard

Ändere mal in der Abfrage die Zeile
Code:

SELECT Max (MeldeDatum) + Max(MeldeZeit) AS Letzter_MeldeZeitpunkt,
zu
Code:

SELECT Max (MeldeDatum + MeldeZeit) AS Letzter_MeldeZeitpunkt,
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 01:19   #18
Stadtbub
Threadstarter Threadstarter
MOF User
MOF User
Standard

Jetzt kommt direkt ein Fenster Parameterwert angeben... MaxMeldeZeit...
SQL sieht jetzt so aus :

SELECT f.Fahrzeug, f.Funkruf, q.Letzter_MeldeZeitpunkt
FROM (SELECT Max (MeldeDatum + MaxMeldeZeit) AS Letzter_MeldeZeitpunkt, FahrzeugID_F FROM tblEinsatzFahrzeuge WHERE StatusID_F = 1 GROUP BY FahrzeugID_F) AS q INNER JOIN tblFahrzeuge AS f ON f.FahrzeugID = q.FahrzeugID_F;
Stadtbub ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 01:22   #19
Nouba
MOF Guru
MOF Guru
Standard

Du hast da einen Doppel-Max verbaut - richtig abschreiben.
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 01:28   #20
Stadtbub
Threadstarter Threadstarter
MOF User
MOF User
Standard

Sorry

Jetzt passiert garnichts mehr....
Es wird auch nix in die Abfrage geschrieben...
Stadtbub ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 01:52   #21
Nouba
MOF Guru
MOF Guru
Standard

Das kann ich mir nicht vorstellen.
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 01:58   #22
Stadtbub
Threadstarter Threadstarter
MOF User
MOF User
Standard

Leider doch...

Die Abfrage qryTest sieht nun so aus :

Code:

SELECT f.Fahrzeug, f.Funkruf, q.Letzter_MeldeZeitpunkt
FROM (SELECT Max (MeldeDatum + MeldeZeit) AS Letzter_MeldeZeitpunkt, FahrzeugID_F FROM tblEinsatzFahrzeuge WHERE StatusID_F = 1 GROUP BY FahrzeugID_F)  AS q INNER JOIN tblFahrzeuge AS f ON f.FahrzeugID = q.FahrzeugID_F;
Das Subform ist im Hauptform eingebettet als UFO_Status1 - bezieht seine Daten von der Abfrage qryTest - der Code vom Button Meldung Speichern im SUbform frmEinsatzErfassungUfoFahrzeuge ist folgender :

Code:

On Error Resume Next
   
   If IsNull(Me.cboFahrzeug) Or IsNull(Me.cboStatus) Or _
      IsNull(Me.txtDatum) Or IsNull(Me.txtZeit) Then

      MsgBox "Es sind nicht alle Felder ausgefüllt"
      Exit Sub

   End If

   With CurrentDb.OpenRecordset("tblEinsatzFahrzeuge", dbOpenDynaset, dbAppendOnly)

      .AddNew
      !EinsatzID_F = Me.Parent.EinsatzID
      !FahrzeugID_F = Me.cboFahrzeug
      !StatusID_F = Me.cboStatus
      !MeldeDatum = Me.txtDatum
      !MeldeZeit = Me.txtZeit
      !EinsFahrzMeldung = Me.txtMeldung
      !Staerkemeldung1 = Me.S1
      !Staerkemeldung2 = Me.S2
      .Update
      .Close

   End With

   Me.cboFahrzeug = Null
   Me.cboStatus = Null
   Me.txtDatum = Null
   Me.txtZeit = Null
   Me.txtMeldung = Null
   Me.S1 = Null
   Me.S2 = Null

   'Vermutlich genügt
   'Me.Parent.Requery
   Me.Parent.Einsatztabelle.Requery
   Me.Parent.Liste99.Requery
   'ist das wirklich nötig?
   Me.Requery
   'und das auch?
   Me.Recalc

   Me.cboFahrzeug.SetFocus

  With Me.Parent.UFO_Status1.Form
      .RecordSource = .RecordSource
   End With

End Sub
Nach wie vor verschwindet das Fahrzeug nicht aus dem UFO_Status1 - rein gehts, raus gehts nimmer

Geändert von Stadtbub (09.02.2018 um 02:01 Uhr).
Stadtbub ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 03:27   #23
Nouba
MOF Guru
MOF Guru
Standard

Du hast recht - meine Abfrage ist faul. Hier ist ein dbfiddle, der ganz unten die richtige Abfrage enthält.
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 05:10   #24
Stadtbub
Threadstarter Threadstarter
MOF User
MOF User
Standard

Vielen Dank.... leider kommt wieder eine Fehlermeldung, diesmal beim SQL Editor :

Code:

SELECT Letzter_Zeitpunkt,Fahzeug,Funkruf
FROM  (SELECT Max(Meldedatum+Meldezeit)) AS Letzter_Zeitpunkt,FahrzeugID_F
FROM tblEinsatzfahrzeuge e
WHERE StatusID_F = 1 AND NOT EXISTS (SELECT * FROM tblEinsatzfahrzeuge WHERE FahrzeugID_F = e.FahrzeugID_F AND (Meldedatum+MeldeZeit) > (e.Meldedatum+e.Meldezeit) AND StatusID_F>1
GROUP BY FahrzeugID_F)
AS q
INNER JOIN tblFahrzeuge f ON FahrzeugID=q-FahrzeugID_F;
Stadtbub ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 05:15   #25
Stadtbub
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hi,

leider kommt im SQL Editor ein Fehler " Syntaxfehler in From Klausel" bzw "Joint Klausel nicht untersützt"

Code:

SELECT Letzter_Zeitpunkt,
       Fahrzeug,
       Funkruf
  FROM (
           SELECT Max(MeldeDatum+ MeldeZeit) ) AS Letzter_Zeitpunkt,)
                  FahrzeugID_F
             FROM tblEinsatzfahrzeuge e
            WHERE StatusID_F = 1 AND 
                  NOT EXISTS (
                          SELECT *
                            FROM tblEinsatzfahrzeuge
                           WHERE FahrzeugID_F = e.FahrzeugID_F AND
                                 (MeldeDatum+MeldeZeit) >(e.MeldeDatum+e.MeldeZeit) and StatusID_F > 1
                      )
            GROUP BY FahrzeugID_F
       )
       AS q
       INNER JOIN
       tblFahrzeuge f ON FahrzeugID = q.FahrzeugID_F;

Geändert von Stadtbub (09.02.2018 um 05:21 Uhr).
Stadtbub ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 06:26   #26
Nouba
MOF Guru
MOF Guru
Standard

Es sind in dieser Zeile 2 schließende Klammern zuviel:
SELECT Max(MeldeDatum + MeldeZeit) ) AS Letzter_Zeitpunkt,)
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 12:37   #27
Stadtbub
Threadstarter Threadstarter
MOF User
MOF User
Standard

Habe ich entfernt...jetzt kommt der Fehler "Join Ausdruck nicht unterstützt".....
Stadtbub ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 12:44   #28
Nouba
MOF Guru
MOF Guru
Standard

tblFahrzeuge f ON f.FahrzeugID = q.FahrzeugID_F;
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 13:04   #29
Stadtbub
Threadstarter Threadstarter
MOF User
MOF User
Standard

ES KLAPPT !!! Schwere Geburt - TAUSEND DANK !!!!
Stadtbub ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 15:08   #30
Nouba
MOF Guru
MOF Guru
Standard

Da fällt mir ja ein Stein vom Herzen.
Nouba ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:41 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.