Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Automatisierung -> Feld in Box
Gehe zu Seite 1, 2  Weiter
zurück: Leere Errorbox weiter: MsgBox wenn Nummer nicht vorhanden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
j-fr33z3
Access Newbie / VBA Amateur


Verfasst am:
25. Okt 2006, 09:51
Rufname:

Automatisierung -> Feld in Box - Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

Hallo Forum!

Ich möchte folgendes machen. Ich habe eine Datenbank (Formular mit mehreren Datensätzen). Im Formular befindet sich ein Button, der eine Abfrage öffnet, bevor er die Abfrage öffnet, erscheint eine Box wo man den Namen eines Unternehmens eingeben kann. Jetzt möchte ich es so haben, dass der Firmenname automatisch in die Box kopiert wird, ohne dass man es manuell machen muss. Ich habe hier Screenshots, um es euch bildlich zu zeigen...

Die Datenbank


Der Abfragebutton


Die Abfragebox


Unternehmen kopieren und in Box einfügen (Dieser Vorgang soll automatisiert werden, wie funktioniert das???)


Ich bedanke mich bei euch schonmal im Voraus für jeden einzelnen Tipp!!

Liebe Grüße

Euer Gast
derArb
getting better


Verfasst am:
25. Okt 2006, 17:49
Rufname: derArb
Wohnort: Berlin


AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

hallo,

eine Parameterabfrage bedeuted doch, dass man erst mal noch nicht weiss, was man da eintragen will. Deswegen ist sie auch leer und wartet auf ne Eingebe.
Wenn Du aber schon weisst, wen Du da eingeben willst, wieso machst Du es dann nicht über ein Kombinationsfeld, in dem Du die Firma dann auswählst?

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Gast



Verfasst am:
25. Okt 2006, 18:17
Rufname:

AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

danke für deine antwort! hört sich nicht schlecht an, wie genau muss ich denn da vorgehen?
derArb
getting better


Verfasst am:
25. Okt 2006, 18:27
Rufname: derArb
Wohnort: Berlin

AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

hallo,
ein Kombinationsfeld mit dem Assistenten erstellen, in welches Du das Feld Firma dabei eingibst.

Im Ereignis des Kombinationsfelds Nach Aktualisieren deine Abfrage hinterlegen, wobei der Firmenname in die Abfrage als string übergeben wird. (dabei natürlich die Parameterabfragen vorher rausnehmen in der Abfrage)

vielleicht schickst Du den SQL code einer Abfrage, dann kann man das für Dich zusammenbasteln. Den SQL code bekommst Du in Entwurf Abfrage..rechts click und SQL Entwurf..

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
j-fr33z3
Access Newbie / VBA Amateur


Verfasst am:
25. Okt 2006, 20:17
Rufname:


AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

ok danke das wäre echt super nett von dir ;) hier habe ich den code für dich kopiert
Code:
SELECT   T.ID, T.[Sub Channel Desc], T.Unternehmen, T.[Dell-Kundennummer],
         T.[ursprgl Bestelldatum], T.[Ship Date], T.[Dell-Auftragsnummer],
         T.[Aktueller Service], T.[Produkt-Beschreibung], T.Produktgruppe,
         T.PLZ, T.Ort, T.Strasse, T.ServiceTAG, T.[Kunden-Bestellnummer],
         T.[Anrede 1], T.Titel1, T.Vorname1, T.Name1, T.Funktion1, T.Durchwahl1,
         T.[e-mail1], T.[Anrede 2], T.Titel2, T.Vorname2, T.Name2, T.Funktion2,
         T.Durchwahl2, T.[e-mail2], T.Agent, T.Datum, T.Rückrufdatum, T.DELL_VB,
         T.Bemerkung, T.[Neuer Status], T.Angebotsnummer,
         T.[Angebotsnachfass neu generiertes Lead Memo], T.[Channel Neu],
         T.[Auf Angebotsnachfass neu erstelltes Lead Angebotsnummer],
         T.AngebotsnachfassDatum, T.[Angebotsnachfass Agent], T.Quelle,
         T.GO_Nmmer, T.[Service-Ende], T.[Neu angelegt], T.Nachrufstatus,
         T.Sperrliste, T.Angebotswert, T.[Anzahl Tags], T.[Frankfurt/BW],
         T.Herkunft, T.[Type Desc]
FROM     [Database] As T
WHERE    T.Unternehmen=[Firmenname]
AND      (T.[Neuer Status]=0
OR        T.[Neuer Status] Is Null)
AND      T.[Frankfurt/BW]="BW"
AND      T.[Type Desc]="Enterprise Products"
ORDER BY T.Unternehmen;
derArb
getting better


Verfasst am:
25. Okt 2006, 20:40
Rufname: derArb
Wohnort: Berlin

AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

hallo,

leider hab ich momentan nicht die Zeit, den code in einen string umzuwandeln. Die Moderatoren haben den Beitrag schon editiert und helfen Dir bestimmt weiter..

wenn Du mir ne DB schicken willst, kann ich am Wochenende das mal für Dich einbauen...

danach bin ich wieder für 4 Wochen weg.

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
j-fr33z3
Access Newbie / VBA Amateur


Verfasst am:
25. Okt 2006, 21:22
Rufname:

AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

achso man muss den code in ein string umwandeln, wenn ich nur wüsste wie das funktioniert, ich dachte man muss sowas wie Formulare![First Call]![Customer Name] irgendwo in den SQL Code einfügen oder mit irgendwas ersetzen???
derArb
getting better


Verfasst am:
25. Okt 2006, 21:44
Rufname: derArb
Wohnort: Berlin

AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

hallo,

schau mal da SQL-String erzeugen: ... man muß sich bloß zu helfen wissen nach

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
j-fr33z3
Access Newbie / VBA Amateur


Verfasst am:
25. Okt 2006, 22:20
Rufname:

AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

hmmm okay gibt es keine andere einfachere methode? scheint mir sehr umständlich mit dem umwandeln. am liebsten wäre mir wenn ich das ganze bis freitag irgendwie fertig bekommen könnte. es gibt doch sicherlich noch ne andere lösung wie das bei access so üblich ist, vielleicht haben andere noch weitere tipps??? bitte um feedback wäre sehr dankbar
Willi Wipp
Moderator


Verfasst am:
26. Okt 2006, 01:10
Rufname:
Wohnort: Raum Wiesbaden

Re: Automatisierung -> Feld in Box - Re: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

Hi j-fr33z3,

in der Abfrage habe ich leider keinen Parameter Today gefunden Wink
Versuch es mal so
Code:
SELECT   T.ID, T.[Sub Channel Desc], T.Unternehmen, T.[Dell-Kundennummer],
         T.[ursprgl Bestelldatum], T.[Ship Date], T.[Dell-Auftragsnummer],
         T.[Aktueller Service], T.[Produkt-Beschreibung], T.Produktgruppe,
         T.PLZ, T.Ort, T.Strasse, T.ServiceTAG, T.[Kunden-Bestellnummer],
         T.[Anrede 1], T.Titel1, T.Vorname1, T.Name1, T.Funktion1, T.Durchwahl1,
         T.[e-mail1], T.[Anrede 2], T.Titel2, T.Vorname2, T.Name2, T.Funktion2,
         T.Durchwahl2, T.[e-mail2], T.Agent, T.Datum, T.Rückrufdatum, T.DELL_VB,
         T.Bemerkung, T.[Neuer Status], T.Angebotsnummer,
         T.[Angebotsnachfass neu generiertes Lead Memo], T.[Channel Neu],
         T.[Auf Angebotsnachfass neu erstelltes Lead Angebotsnummer],
         T.AngebotsnachfassDatum, T.[Angebotsnachfass Agent], T.Quelle,
         T.GO_Nmmer, T.[Service-Ende], T.[Neu angelegt], T.Nachrufstatus,
         T.Sperrliste, T.Angebotswert, T.[Anzahl Tags], T.[Frankfurt/BW],
         T.Herkunft, T.[Type Desc]
FROM     [Database] As T
WHERE    T.Unternehmen=Forms![First Call]![Customer Name]
AND      (T.[Neuer Status]=0
OR        T.[Neuer Status] Is Null)
AND      T.[Frankfurt/BW]="BW"
AND      T.[Type Desc]="Enterprise Products"
ORDER BY T.Unternehmen;

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
j-fr33z3
Access Newbie / VBA Amateur


Verfasst am:
26. Okt 2006, 01:38
Rufname:

AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

hey danke!

vom prinzip her stimmt es jetzt so, es fehlt nur noch die kleinigkeit, dass der firmenname dann auch tatsächlich in der messagebox angezeigt wird, und man dann ok klickt, so ist jetzt das textfeld in der messagebox leer. aber dein beitrag hat mich schon ein ganzes stück weiter gebracht, vielen vielen dank ;)
Willi Wipp
Moderator


Verfasst am:
26. Okt 2006, 01:48
Rufname:
Wohnort: Raum Wiesbaden

Re: Automatisierung -> Feld in Box (II) - Re: Automatisierung -> Feld in Box (II)

Nach oben
       Version: Office 2003

Hi j-fr33z3,

ich bin davon ausgegangen, das es sich um den Parameter-Dialog einer Parameter-Abfrage handelt.
Fuer eine MsgBox muesste man wissen wie Dein Code ausschaut und was Du genau damit erreichen willst.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
j-fr33z3
Access Newbie / VBA Amateur


Verfasst am:
26. Okt 2006, 01:51
Rufname:

AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

hi,

also das is der code für den abfragebutton im formular
Code:
Private Sub Befehl267_Click()
    Dim stDocName As String

    stDocName = "Abfrage Subform Enterprise"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.RunCommand acCmdOutputToExcel
    DoCmd.Close
Exit_Befehl267_Click:
    Exit Sub
Err_Befehl267_Click:
    MsgBox Err.Description
    Resume Exit_Befehl267_Click
End Sub
also bevor er die abfrage öffnet kommt eben dieses messageboxfenster, is aber im code irgendwie nich ersichtlich, kann das sein?
also es soll quasi als parameterwert, automatisch der selbe wert wie im textfeld customer name erscheinen, so eine art klonfunktion, die frage ist ob dies überhaupt möglich sein wird???

_________________
Danke & Gruß

j-fr33z3
Willi Wipp
Moderator


Verfasst am:
26. Okt 2006, 02:12
Rufname:
Wohnort: Raum Wiesbaden

Re: Automatisierung -> Feld in Box (III) - Re: Automatisierung -> Feld in Box (III)

Nach oben
       Version: Office 2003

Hi j-fr33z3,

nach welchem Parameter wird gefragt?
Ist Database (btw ein schlechter Name!) eine Tabelle oder Abfrage?
Zur Sicherheit solltest Du auch noch die Funktion Eval noch einbauen.
Code:
WHERE    T.Unternehmen=Eval("Forms![First Call]![Customer Name]")
Schau Dir auch mal die Methoden TransferSpreadsheet und OutputTo
in der Online-Hilfe bzw. hier im Forum (Suche) an. Das waere sicher eleganter Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
j-fr33z3
Access Newbie / VBA Amateur


Verfasst am:
26. Okt 2006, 11:46
Rufname:


AW: Automatisierung -> Feld in Box - AW: Automatisierung -> Feld in Box

Nach oben
       Version: Office 2003

Parameter Firmenname
es handelt sich hierbei um ein Formular (Datenbank)

Was bezweckt dieses "Eval" ??

_________________
Danke & Gruß

j-fr33z3


Zuletzt bearbeitet von j-fr33z3 am 26. Okt 2006, 13:20, insgesamt 2-mal bearbeitet
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
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: Runden in einem berechneten Feld 1 Heribert 997 28. Dez 2005, 16:52
KirstenS Runden in einem berechneten Feld
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn in Feld A Wert steht dann schreibe in Feld B "Auto 1 didi82 1583 10. Nov 2005, 16:25
stpimi Wenn in Feld A Wert steht dann schreibe in Feld B "Auto
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus zwei Feldern in einem Feld zusammenführen 2 Bernie08 1218 28. Sep 2005, 12:50
Bernie08 Daten aus zwei Feldern in einem Feld zusammenführen
Keine neuen Beiträge Access Tabellen & Abfragen: Feld als Kriterie für eine SQL-Anweisung [gelöst] 1 silver86 603 26. Aug 2005, 07:18
jens05 Feld als Kriterie für eine SQL-Anweisung [gelöst]
Keine neuen Beiträge Access Tabellen & Abfragen: Aus Abfrage auf ein Feld im Formular zugreifen 5 Olsen 1646 11. Jul 2005, 12:34
Willi Wipp Aus Abfrage auf ein Feld im Formular zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: Im Feld Telefon das Zeichen "/" ersetzen 9 Stargate1960 2323 10. Mai 2005, 11:39
Willi Wipp Im Feld Telefon das Zeichen "/" ersetzen
Keine neuen Beiträge Access Tabellen & Abfragen: Numerische Werte in als Text definiertem Feld 4 Terminator 811 25. Apr 2005, 07:50
stpimi Numerische Werte in als Text definiertem Feld
Keine neuen Beiträge Access Tabellen & Abfragen: select.... where mit einer Variablen/Feld statt 'Text' abfr. 3 Guybrush junior 2745 07. März 2005, 20:28
Guybrush junior select.... where mit einer Variablen/Feld statt 'Text' abfr.
Keine neuen Beiträge Access Tabellen & Abfragen: JPG im Ole Feld Größe explodiert 1 WarumNur 682 26. Feb 2005, 21:00
snurb JPG im Ole Feld Größe explodiert
Keine neuen Beiträge Access Tabellen & Abfragen: Leeres Feld mit "no info" ausfüllen 2 Gast 696 14. Feb 2005, 15:25
Gast Leeres Feld mit "no info" ausfüllen
Keine neuen Beiträge Access Tabellen & Abfragen: Feld in Tabelle mittels Aktualisierungsabfrage updaten 1 diso_de 788 11. Feb 2005, 15:45
stpimi Feld in Tabelle mittels Aktualisierungsabfrage updaten
Keine neuen Beiträge Access Tabellen & Abfragen: wie kann ich "#Fehler" aus dem feld rauslöschen? 5 drum_sax 613 04. Feb 2005, 14:40
stpimi wie kann ich "#Fehler" aus dem feld rauslöschen?
 

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