Formular mit GET/POST

[komma4]

Also das mit den wrong parametern ist einfach ein "Variablen - Übergabe" Fehler?

Die Fehlermeldung kommt bei der Übergabe einer falschen Anzahl von Parametern.

Die Sub refresh_FA erwartet einen [event-]Parameter.
Der wird automatisch übergeben, wenn die Prozedur über das Ereignis aufgerufen wird.

[S.Eder]

Ist es möglich einen globalen Button zu erstellen? - Um einen kompletten Datensatz zu erzeugen

Aus dem Filter + leeren Formular ? So wäre meine aktuelle Idee...


lg

[S.Eder]

Soo, hab jetzt ein Makro gefunden das anscheinen von einem Kontrollfeld in das andere übertragt.
Jedoch kann ich es selber nicht umschreiben , falls irgendwer Zeit hat würde er mir hier sehr weiterhelfen. Damit der Filter in das Formular übernommen wird ...

Code: Alles auswählen

    Sub KUNDENNUMMER_UEBERNEHMEN

    'ziel:       fmtkdnr
    'quelle:    txtkdnr

    Dim oFeld as variant
    Dim oDoc as variant
    Dim oForm as variant

       oDoc = ThisComponent
       oForm = oDoc.DrawPage.Forms.getByName("Kunde")
    '   oForm.reload()
       oFeld = oForm.getbyname("txtkdnr")
       iKdNr = oFeld.text
       
       If iKdNr = "" then
          sNachricht = "Neuen Kunden erst speichern! " + chr(13) + "Dann erneut übertragen. "
          If MsgBox (sNachricht ,48+1,"ACHTUNG") = 1 Then exit sub
       End If
       
       oForm2 = oDoc.DrawPage.Forms.getByName("rechnungen")
       oFeld2 = oForm2.getbyname("fmtkdnr")

       If oFeld2.text <> "" then
          sNachricht = "Kunde schon eingetragen! " + chr(13) + chr(13)+ "Soll der vorhandene Eintrag ersetzt werden? "
          If MsgBox (sNachricht ,32+1,"ACHTUNG") = 2 Then exit sub
       End If

       oFeld2.text = iKdNr
               
    End Sub

[gogo]

Dein Formular zeigt 2 verschiedene Daten an ... wenn Du so willst: Du hast 2 Formulare in einem Fenster:

Eines heißt 'MainForm' und zeigt die Daten aus der Tabelle 'tab_smd1'
das andere heißt 'frm_FA' und zeigt die Daten aus der Tabelle 'tab_FA'

WAS möchtest Du jetzt WOHIN geschrieben haben?

g

[S.Eder]

Ich möchte alles in tab_smd1 schreiben. ( tab_FA soll nur eine Hilfestellung sein damit man es nicht von Hand eingeben muss)

lg

[gogo]

Füg' einfach im Makro "refresh_FA" vor dem "End Sub" Folgendes ein:

Code: Alles auswählen

oForm.getByName("txtBaugruppe").text           = ofrm_FA.getByName("txtBaugruppe").text
oForm.getByName("txtFA").text                  = oFeld.StringItemList( id )
oForm.getByName("txtStückzahl FA gesamt").text = ofrm_FA.getByName("txtStückzahl FA gesamt").text
oForm.getByName("txtVersion").text             = ofrm_FA.getByName("txtVersion").text

g