Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formular kopieren
zurück: datensatz speichern auch ohne Makierung!! weiter: Datenblattansichtproblem Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
31. Mai 2006, 10:43
Rufname:

Formular kopieren - Formular kopieren

Nach oben
       

Hallo!

Ich habe ein Formular , welches auf eine Abfrage beruht.

Das Formular ist vom layout aufwendig.

Dieses Formular benötige ich jetzt 15 x allerdings immer auf eine andere Abfrage.Die Felder des Formulars bleiben immer gleich.

Gibt es eine Möglichkeit mein Formular zu kopieren und dann den einzelnen Feldern die andere Abfrage zuzuweisen?

Kann mir jemand folgen Razz

schöne Grüße
jens05
Moderator


Verfasst am:
31. Mai 2006, 12:11
Rufname:
Wohnort: ~~~~~


AW: Forumlar kopieren - AW: Forumlar kopieren

Nach oben
       

Hallo,
wäre es nicht einfacher, beim öffnen dem vorhandenen Formular jeweils eine andere Datenherkunft zuzuweisen?
Code:
    Me.RecordSource = "Abfrage1"
?
_________________
mfg jens05 Wink
Gast



Verfasst am:
31. Mai 2006, 12:42
Rufname:

AW: Forumlar kopieren - AW: Forumlar kopieren

Nach oben
       

Danke das hört sich gut an....nur mit der Umsetzung komm ich nicht zurecht.

Ich habe ein Startformular. Wenn ich da auf ein Botton klicke wird ein Makro ausgeführt, welches die Besagte Abfrage startet und mein "aufwendiges" Formular öffnet.

Wo bring ich jetzt deinen Befehl unter?
jens05
Moderator


Verfasst am:
31. Mai 2006, 12:56
Rufname:
Wohnort: ~~~~~

AW: Forumlar kopieren - AW: Forumlar kopieren

Nach oben
       

Hallo,
was macht das Makro sonst noch? Makros solltest du gleich wieder vergessen ;) Siehe dazu: Warum sind Makros Mist?
Nehmen wir an, du nutzt im Startform mehrere Buttons, dann könnte als Ereignis prozedur (Ereignis "Beim Klicken" suchen: Ereignisprozedur auswählen und rechts [...] anklicken) folgendes hinterlegt werden.
Code:
    DoCmd.OpenForm "NamekompliziertesForm",OpenArgs:="Name Abfrage"
Im Ereignis "Beim Öffnen" des besagten Forms kannst du dann OpenArgs auswerten und zuweisen.
Code:
Private Sub Form_Open(Cancel As Integer)
    If Not IsNull(Me.OpenArgs) Then
        Me.RecordSource = Me.OpenArgs
      Else
        MsgBox "Falscher Aufruf"
        Cancel = True
    End If
End Sub

_________________
mfg jens05 Wink
Gast



Verfasst am:
31. Mai 2006, 13:40
Rufname:


AW: Forumlar kopieren - AW: Forumlar kopieren

Nach oben
       

haijaijai das sagst du mir jetzt...... Very Happy
Hab schon einige Makros erstellt.

In der Regel: öffnen + schließen Abfrage (für Aktualisierung)
und öffnen + schlißen Formular (für Aktualisierung).

Jetzt schlägst Du wahrscheinlich die Hände überm Kopf zusammen..... Rolling Eyes .......

1.) wie kann ich solch ein Makro in VBA ausdrücken ?

2.) Das ist Teil meines VBA codes des Startfomulars
- F_Eingabe ist das "aufwendige Formular"
- A_abfrage die Abfrage welche diesem Formular zugrunde gelegt wrfden soll
- Bauvorhaben ist eine notwendige verknüpfung
Code:
Private Sub Befehl19_Click()
On Error GoTo Err_Befehl19_Click
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F_Eingabe"
    stLinkCriteria = "[Bauvorhaben]=" & "'" & Me![Bauvorhaben] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Befehl19_Click:
    Exit Sub
Err_Befehl19_Click:
    MsgBox Err.Description
    Resume Exit_Befehl19_Click
End Sub
kannst du mir den code mal da rein Integrieren ?

Vielen Dank für Die Hilfe
Willi Wipp
Moderator


Verfasst am:
31. Mai 2006, 17:21
Rufname:
Wohnort: Raum Wiesbaden

Re: Forumlar kopieren - Re: Forumlar kopieren

Nach oben
       

Hi Gast,

ein Makro kannst Du mit Hilfe von Access konvertieren.
(Menue: Extras -> Makro -> Makros zu Visual Basic konvertieren)

Dem Vorschalg von jens05 folgend sollte der Code so aussehen
Code:
Private Sub Befehl19_Click()
On Error GoTo Err_Befehl19_Click
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F_Eingabe"
    stLinkCriteria = "[Bauvorhaben]=" & "'" & Me![Bauvorhaben] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "A_abfrage"
Exit_Befehl19_Click:
    Exit Sub
Err_Befehl19_Click:
    MsgBox Err.Description
    Resume Exit_Befehl19_Click
End Sub
Im Formular F_Eingabe beim Formular-Ereignis Beim Oeffnen (Open) dann
Code:
Private Sub Form_Open(Cancel As Integer)
    If Not IsNull(Me.OpenArgs) Then
        Me.RecordSource = Me.OpenArgs
      Else
        MsgBox "Falscher Aufruf"
        Cancel = True
    End If
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gast



Verfasst am:
31. Mai 2006, 18:22
Rufname:

AW: Forumlar kopieren - AW: Forumlar kopieren

Nach oben
       

Dat is ja geil ey !! Razz

Vielen Dank!

Und das konvertieren meiner Makros funktioniert einfach so......?

Gibts denn für eine Datenaktualisierung noch etwas eleganteres als Befehl öffnen und schließen ?
Willi Wipp
Moderator


Verfasst am:
31. Mai 2006, 18:27
Rufname:
Wohnort: Raum Wiesbaden

Re: Forumlar kopieren (II) - Re: Forumlar kopieren (II)

Nach oben
       

Hi Gast,

in VBA ja Wink
Code:
    Me.Requery

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gast



Verfasst am:
31. Mai 2006, 18:47
Rufname:

AW: Forumlar kopieren - AW: Forumlar kopieren

Nach oben
       

nochmal ich.....

wie gesagt vom Grundsatz funktioniert das.

ich benötige mein Formular ca. 15 mal.
2 x benötige ich nicht alle Felder.

Ich habe jetzt das Formular F_eingabe kopiert und "F_eingabe_mit weniger_Felder" genannt.

Dann habe ich das alles so gemacht wie oben beschrieben.

Nur öffnet sich jetzt trotzdem immer das F_Eingabe Formular. Obwohl dafür (zumindest für mich) nirgends ein Befehl erkennbar ist.

kannst du mir nochmal Helfen?
jens05
Moderator


Verfasst am:
31. Mai 2006, 18:56
Rufname:
Wohnort: ~~~~~

AW: Forumlar kopieren - AW: Forumlar kopieren

Nach oben
       

Hallo,
auch hierfür hätte ein Form genügt (Felder ausblenden) aber sei es drum, hast du den Formularnamen im Code geändert?
Alt:
Code:
    stDocName = "F_Eingabe"
Neu:
Code:
    stDocName = "F_eingabe_mit weniger_Felder"
? Falls ja, zeig doch mal den Code aus dem StartForm.
_________________
mfg jens05 Wink
Gast



Verfasst am:
31. Mai 2006, 19:14
Rufname:

AW: Forumlar kopieren - AW: Forumlar kopieren

Nach oben
       

Also das ist der Code in meinem Startformular:
Code:
Private Sub Befehl19_Click()
On Error GoTo Err_Befehl19_Click
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F_Eingabe_mit weniger_Feldern"
    stLinkCriteria = "[Bauvorhaben]=" & "'" & Me![Bauvorhaben] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "A_Abfrage1"
Exit_Befehl19_Click:
    Exit Sub
Err_Befehl19_Click:
    MsgBox Err.Description
    Resume Exit_Befehl19_Click
End Sub
und das hab bei F_Eingabe_mit weniger_Feldern
Code:
Private Sub Form_Open(Cancel As Integer)
    If Not IsNull(Me.OpenArgs) Then
        Me.RecordSource = Me.OpenArgs
      Else
        MsgBox "Falscher Aufruf"
        Cancel = True
    End If
End Sub
Wie gesagt ich bekomme trotzdem immer das alte Formular angezeigt, allerdings mit der richtigen Abfrage
jens05
Moderator


Verfasst am:
31. Mai 2006, 20:01
Rufname:
Wohnort: ~~~~~


AW: Forumlar kopieren - AW: Forumlar kopieren

Nach oben
       

Hallo,
bist du dir sicher Confused
Mach doch mal den Test
Code:
Private Sub Form_Open(Cancel As Integer)
    MsgBox Me.Name 'welcher Formname wird ausgegeben?
    If Not IsNull(Me.OpenArgs) Then
        Me.RecordSource = Me.OpenArgs
      Else
        MsgBox "Falscher Aufruf"
        Cancel = True
    End If
End Sub
Hast du Felder wirklich entfernt? Falls alles zutrifft, kannst du ein Beispiel online stellen?
_________________
mfg jens05 Wink
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Formular --> Tabelle ? 6 AlexisM 835 27. Apr 2005, 10:56
AlexisM Formular --> Tabelle ?
Keine neuen Beiträge Access Tabellen & Abfragen: Formular: Groesse? 1 Gast 732 24. März 2005, 13:35
Sanne Formular: Groesse?
Keine neuen Beiträge Access Tabellen & Abfragen: Feld wird nicht in Formular angezeigt 1 Chef_1 528 12. März 2005, 21:27
stpimi Feld wird nicht in Formular angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Automatische Aktualisierung von generiertem Wert im Formular 9 GandalfTCM 1041 09. Feb 2005, 17:40
lothi Automatische Aktualisierung von generiertem Wert im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Wert übernehmen von einem Formular in das andere 2 mactoolz 1244 03. Feb 2005, 17:46
ralphkr Wert übernehmen von einem Formular in das andere
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelleninhalte kopieren 14 romu 2150 02. Jan 2005, 00:30
romu Tabelleninhalte kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Vom Datum nur das Jahr in eine neue Spalte kopieren 1 peinberger 1652 10. Dez 2004, 17:11
Skogafoss Vom Datum nur das Jahr in eine neue Spalte kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Formular gestalten 3 HBurmei 1977 03. Dez 2004, 22:17
mapet Abfrage mit Formular gestalten
Keine neuen Beiträge Access Tabellen & Abfragen: Formular für mehrere Abfragen benutzen 2 Oli aus Bonn 1262 21. Nov 2004, 01:30
Oli aus Bonn Formular für mehrere Abfragen benutzen
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen in Formular 1 Sumo_Racer 1092 28. Mai 2004, 21:59
lothi Suchen in Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Access Formular 2 Mielke 951 06. Mai 2004, 21:49
Hausmeister Access Formular
Keine neuen Beiträge Access Tabellen & Abfragen: neue Tabellen erzeugen; kopieren 7 DiplomandSPS 1323 25. März 2004, 10:01
fridgenep neue Tabellen erzeugen; kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript