collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 78
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 2
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 13810
  • stats Beiträge insgesamt: 64294
  • stats Themen insgesamt: 8693
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Neueste Beiträge

Seiten: [1] 2 3 ... 10
1
Genau das macht er ja nicht  :-[
Irgend etwas verhindert das!?!
Werde morgen noch ein paar Versuche starten.
Ich danke dir und eventuell bis morgen 😊

Gruß Danny
2
Hallo,
Du brauchst doch nur im Ufo zu einem neuen Datensatz zu wechseln. Das geht doch ganz einfach per Mausklick.
Du kannst auch im Ereignis "Beim Laden" des Ufos zu einem neuen DS gehen.

DoCmd.GoToRecord , , acNewRec
3
Welche Datenherkunft (Datensatzquelle) liegt denn in Haupt- und in Unterformular vor?
4
Also die Tabellen sind verknüpft. Aber wenn z.B. der Datensatz mit der ID 1 im Hauptformular geöffnet wird, dann spingt er im Unterformular zum letzten dazugehörenden UFO Datensatz. Außer es ist noch kein Datensatz dazu angelegt. Dann ist das UFO leer. Aber er soll immer einen neuen anlegen(leeres UFO).

Es geht um Materialprüfung: z. B. Seil 1 wird  im UFO geprüft und beim nächsten mal kommt wieder eine neue Prüfung dazu.
5
Formular / Re: Werte in ungebundenen Feld ausgeben
« Letzter Beitrag von MzKlMu am Januar 22, 2018, 22:55:56 »
Hallo,
Du brauchst auch vor dem Suchstring den Joker (*).
...WHERE Alexa_ID LIKE '*" & strSuchbegriff & "*'"

PS:
Bitte benutze für Codedarstellungen die Codetags.
Habe ich oben in Deinem Beitrag noch nachgebessert.
6
Hallo,
mit welchen Daten soll den ein neuer Datensatz erzeugt werden ?

Hafo und Ufo sollten eigentlich über die Schlüsselfelder verknüpft sein. Dann steht bei einem neuen Datensatz im Hafo (nach Eingabe der Daten) auch sofort ein neuer Datensatz im Ufo zur Verfügung.
Da muss man nix programmieren, Du musst nur zum neuen DS wechseln.
7
Also Kurzgesagt wenn im Hautformular ein neuer Datensatz aufgerufen wird dann soll im UFO ein neuer Datensatz erzeugt werden!
Das klappt allerdings nicht und ich habe keine Ahnung was ich falsch mache.
War oben eventuell etwas zu verwirrend!!! :-\
8
Formular / Werte in ungebundenen Feld ausgeben
« Letzter Beitrag von KaterRamses am Januar 22, 2018, 22:09:59 »
Hallo, ich habe ein ungebundenes Feld in dem Werte angezeigt werden sollen, die zuvor durch Eingabe einer Filialnr. im Feld Zahlsuchen oder durch eingabe des Filialnamen in txtSuchen gefiltert werden soll  Dazu habe ich folgenden Code erstellt. Leider funktioniert die Abfrage nicht mit dem Namen. In der Tabelle steht z.B. HOGW Welse. Wenn ich im Suchfeld Wels eingebe findet er den Wert nicht. Kann mir jemand eine Tipp geben wo der Fehler liegt.

Private Sub txtSuchen_Change()
 Dim strSuchbegriff As String
    'Suchbegriff in Variable speichern
    strSuchbegriff = Me!txtName.Text
    'Neue Datensatzherkunft zuweisen
   Me!lstFil.RowSource = "SELECT Filial_Name, Filial_ID, Alexa_ID, IP_Adresse FROM qry_all WHERE Alexa_ID LIKE '" & strSuchbegriff & "*'"
    'Inhalt des Listenfeldes aktualisieren
    Me!lstFil.Requery
End Sub
Private Sub Zahlsuchen_Change()
Dim strSuchbegriff As String
    'Suchbegriff in Variable speichern
    strSuchbegriff = Me!txtSuchen.Text
    'Neue Datensatzherkunft zuweisen
    Me!lstFil.RowSource = "SELECT Alexa_ID, Filial_ID, Filial_Name, IP_Adresse FROM qry_all WHERE Filial_Name LIKE '" & strSuchbegriff & "*'"
    'Inhalt des Listenfeldes aktualisieren
    Me!lstFil.Requery
End Sub
9
Bericht / Re: übergabe von ausgewählten paramtern an einen bericht
« Letzter Beitrag von Lachtaube am Januar 22, 2018, 20:29:34 »
Dann bleibt mir ja wohl nichts anderes übrig. :)
10
Hallo Gemeinde ,
ich muss das hier leider nochmal aufgreifen!!! :(
Also ich habe wie oben beschrieben ein Haupftformular. Hier drin gibt es ein Textfeldeld (wird best. mit Enter) zum Wechsel der Datensätze. (Bild 1 = Haupt und UFO Problembereich)

Wenn aber schon ein Datensatz vorhanden ist nimmt der den letzten Datensatz und nicht einen neuen Datensatz.
Aber wenn ich das Hauptformular öffne wird der erste Datensatz angezeigt und hier ist im UFO der Datensatz auch leer obwohl Datensätze vorhanden sind.

Den Code wie oben beschrieben habe ich im Hauptformular drin aber er hilft nicht.
Private Sub Form_Current()
   Me.frmPruefPruefungUFO.Form.DataEntry = True
End Sub

Im UFO habe ich versuchsweise den ganzen Code gelöscht aber es verändert auch nichts.


Und hier noch der Code der ausgeführt wird wenn im Textfeld nach dem neuen Datensatz gesucht wird.
(Me.Kombinationsfeld56 ist jetzt ein Textfeld und wird noch umbenannt :))

Private Sub Kombinationsfeld56_AfterUpdate() 'AfterUpdate ist hier wichtig

'Suche in Kombifeld und dann sucht er den Datensatz und zeigt ihn an / mit Autovervollst. AUS und Eingabe wieder löschen!


   Dim strFilter As String
   
   strFilter = "[RzNummerVerbunden] = '" & Me.Kombinationsfeld56 & "'"    'hier mein feldname und Kombiname
   
Debug.Print strFilter

   If DCount("*", "qryPruefMatAllesSortiert", strFilter) > 0 Then
      Me.Filter = strFilter
      Me.FilterOn = True
        Me.cboPfad.Requery
        Me!cboPfad = Me!cboPfad.ItemData(0)
     
   Else
       MsgBox "Diese RZ Nummer ist nicht vergeben!", , "Achtung!"
   End If

Me.Kombinationsfeld56 = Null 'zurücksetzen/löschen des Suchbegriffs
End Sub

Ich hoffe mir kann jemand sagen was hier mal wieder schief geht!

Gruß und danke fürs Lesen
Danny
Seiten: [1] 2 3 ... 10