Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datenherkunft via VBA setzen
zurück: Textfeld aus Hauptformular auslesen weiter: Feld aus Unterformualr im Hauptformular darstellen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Rückfrage Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
17. März 2007, 16:04
Rufname:

Datenherkunft via VBA setzen - Datenherkunft via VBA setzen

Nach oben
       Version: Office 2003

Hallo,

ich habe in einer Tabelle Vereinsdaten, die einem Gebiet zugeören,
nun möchte ich die Vereine nur eines Gebietes über das Formular bearbeiten, das heißt, dass ich die Datenherkunft beim Öffnen über VBA bearbeite, aber irgendiwie geht das nicht.
Code:
Private Sub Form_Open(Cancel As Integer)
    Form_frm_Vereine.Query = "SELECT * FROM tbl_Vereine " & _
                              "WHERE Gebiet = " & Einstellungen.Gebiet
    Form_frm_Vereine.Requery
End Sub
Un wie mache ich das, wenn über die Navigationsschaltfläche ein neuer Verein angelegt wird, wie kann ich dann die Vereinsnummer setzen?

Grüße Gerrit
Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
17. März 2007, 16:19
Rufname:


AW: Datenherkunft via VBA setzen - AW: Datenherkunft via VBA setzen

Nach oben
       Version: Office 2003

Hallo,

wieso machst du es nicht über eine parametrisierte Abfrage?

Erstelle eine Abfrage und gib folgendes als Parameter für Gebiet ein:
Code:
Forms![Form_frm_Vereine]![Gebiet]
oder vielleicht noch besser so:
Code:
Wie Forms![Form_frm_Vereine]![Gebiet].Text & "*"
Ich nehme wohl meine VBA-Version besser weg Wink

Gruß
Thomas


Zuletzt bearbeitet von Thomas2007 am 17. März 2007, 16:24, insgesamt einmal bearbeitet
JörgG
Access-Team


Verfasst am:
17. März 2007, 16:21
Rufname:
Wohnort: b. Dresden

AW: Datenherkunft via VBA setzen - AW: Datenherkunft via VBA setzen

Nach oben
       Version: Office 2003

Hallo,

woher kommt denn das: Einstellungen.Gebiet, ist das Gebiet Text oder Zahl?

Die Datenherkunft des Formulares änderst Du zB so:
Code:
Private Sub Form_Open(Cancel As Integer)
'für eine Zahl
    Me.RecordSource = "SELECT * FROM tbl_Vereine WHERE Gebiet = 1"
'oder für Text
    Me.RecordSource = "SELECT * FROM tbl_Vereine WHERE Gebiet = 'Germany'"
End Sub
Die Vereinsnummer kannst Du zB als Standardwert setzen, im Formularereignis "beim Anzeigen":
Code:
Private Sub Form_Current()
    If Nz(Me!Vereinsnr,"") <> "" Then
        Me!Vereinsnr.DefaultValue = Chr(34) & Me!Vereinsnr & Chr(34)
    End If
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Gast



Verfasst am:
17. März 2007, 16:31
Rufname:

AW: Datenherkunft via VBA setzen - AW: Datenherkunft via VBA setzen

Nach oben
       Version: Office 2003

Ich habe nun einfach ein Recordset zugewiesen, welches meine daten erhält, das funktioniert.

Ab wie kann ich nun das Problem mit dem neuen Datensatz lösen?
Wenn unten im Form auf das Butto geklickt wird einen neuen Datensatz hinzufügen, muss ich einen festen Wert automatisch setzten, das heist, mein Gebiet muss für jeden neuen Datensatz bspw. '01' sein...
JörgG
Access-Team


Verfasst am:
17. März 2007, 16:50
Rufname:
Wohnort: b. Dresden


AW: Datenherkunft via VBA setzen - AW: Datenherkunft via VBA setzen

Nach oben
       Version: Office 2003

Hallo,

Shock von Recordsource nach Recordset und nun sollen wir wissen wo das Gebiet herkommt?

Na dann lies mal den letzten Beitrag zu ende Wink, evtl ist das die Lösung, oder Du postest mal Deinen jetzigen Code.

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
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: Abfrage auf "Nur lesen" setzen (Access 2007) 4 gepach 2361 29. März 2010, 12:57
gepach Abfrage auf "Nur lesen" setzen (Access 2007)
Keine neuen Beiträge Access Tabellen & Abfragen: Filterkriterien in Abfrage setzen 4 TheDarkNight 1250 01. März 2010, 13:42
TheDarkNight Filterkriterien in Abfrage setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Dateneingabe auswahlbasierten Filter setzen 1 datademin 287 16. Dez 2009, 15:07
JoachimG Nach Dateneingabe auswahlbasierten Filter setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Formatieren eine PivotCharts via VBA 0 TFree 190 16. Okt 2009, 12:48
TFree Formatieren eine PivotCharts via VBA
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage soll Tabelleninhalt setzen 4 Scholifi 284 04. Aug 2009, 17:52
Scholifi Abfrage soll Tabelleninhalt setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Darstellungsart "Kontrollkästchen" per Code setzen 3 fragerer 286 13. März 2009, 16:32
Gast Darstellungsart "Kontrollkästchen" per Code setzen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Problem im Access mit dem öffnen von Pfaden via VB 1 Chillah 424 16. Sep 2008, 21:15
Willi Wipp Problem im Access mit dem öffnen von Pfaden via VB
Keine neuen Beiträge Access Tabellen & Abfragen: Feldwert NULL auf 0 setzen 3 joerg06 685 09. Jul 2008, 15:39
MAPWARE Feldwert NULL auf 0 setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen vollständig verbinden, d.h. auch 0en setzen 4 Gast 488 16. Apr 2008, 10:42
Gast Tabellen vollständig verbinden, d.h. auch 0en setzen
Keine neuen Beiträge Access Tabellen & Abfragen: altes problem: excel import via Anfügeabfrage 8 Micha85 2432 26. März 2008, 10:59
Zed2k altes problem: excel import via Anfügeabfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Frage zu: Richtige Beziehung setzen 13 Korg 1622 23. Jan 2008, 14:57
Willi Wipp Frage zu: Richtige Beziehung setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Case, IIF, Werte in Abhängigkeit von Bedingungen setzen 18 schikoli 2836 16. Jan 2008, 16:42
Gek Case, IIF, Werte in Abhängigkeit von Bedingungen setzen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum