Tiana

HI, ist ja kein Problem. Also ich gehe davon aus, dass du die Spalte deines ListViews mit der Eigenschaft OnClick versehen kannst. Bei OnKlick kannst Du dein Recordset aufsteigend nach der Spalte sortieren indem Du folgenden Befehl benutzt: Recordset.Sort = "Spalte" Ich hoffe, das hilft Dir weiter! Gruß, Tia

Hi, jep. Es ist verständlicher geworden. Allerdings arbeite ich nicht mit den verknüpften Objekten, sondern programmiere meistens mit Recordsets, da hättest Du dann die Möglichkeit über dein SQL-Statement eine Sortierung anzugeben. Grúß, Tia P.S. Tut mir leid, das ich Dir nicht weiterhelfen kann!

Hi, schon mal auf den Gedanken gekommen, das gewisse Recherchen nicht in das Projekt rein fallen, weil Sie als "Fortbildung" deklariert werden. So kann man schon mal einen ganzen Teil seiner Stunden anders verteilen (geschickt verteilt ist halb gewonnen), und dann kann man auch noch ein bischen Lügen,...ich will niemanden etwas unterstellen, aber ich habe die Prüfung auch gemacht und ich kenne alle Tricks. Hauptsache ist, es wirkt noch glaubwürdig! Gruß, Tia

HI, Du kannst nach dem Umwandeln mit CStr(), aber auch die Funktion MID() benutzen. Nur so als Alternative. Gruß, Tia

Hi, meinst Du wirklich ein ListView? Oder eine ListBox? Und wo benutzt Du das Element in Access oder in VB? Gruß, Tia

Hi Saga, ich arbeite auch mit CR, konnte Dir aber nicht genz folgen bei deinem Problem. CR summiert eben das Feld, das Du angibst. Der Trick liegt nur darin wo du eventuell Gruppen hast und wo du dein Summenfeld ablegst (Detailbereich, Seitenfuß, Gruppenfuß, Berichtfuß,...). Versuch doch mal dein PRoblem genauer zu Beschreiben, Gruß, Tia

Hi, ich habe ein kleines Beispielprogram von einem Kollegen, das Dir weiterhelfen könnte. Allerdings müsstest Du mir dafür Deine Mailaddy geben, da man durch das Bord keine Anlagen an die Mails anfügen kann! Gruß, Tiana

Hi, also bei mir gibt er immer den Pfad mit zurück bei commonDialog1.Filename. Wenn Du Pfad und Name getrennt brauchst müsste man mal Tricksen. Gruß, Tiana

Hi, Du kannst es ja mal mit StarLords Vorschlag: Shell "start C:\Windows\Tips.txt", vbHide ausprobieren. Wenn er den schon was zur Problemlösung beiträgt, anstatt andere Helfer anzugriefen! Gruß, Tiana

Hi, also Dein FLAG Problem scheint mir ziemlich simpel. Du deklarierst eine Variabel FLAG als Boolean, weist Ihr aber keinen Wert zu. Damit ist Sie automatisch immer true (Standardwert). Du fragst zwar die Eigenschaft dlg.FLAGS ab und die wird auch ausgewerter (Rückgabewert ist eine Zahl) aber die hat hier keine Auswirkungen auf dein IF.

Mhhh, also ich habe kein Problem mit dem FileExist und dem FileName. Allerdings musst du daran denken, dass man mit schell nur exe- Dateien ausführen kann. Kannst Du mal das Stück Code einstellen, vielleicht finde ich ja den Haken? Gruß, Tiana

Hi, du bekommst den Dateinamen und Pfad der im Öffnen-Dialog ausgewählten Datei, indem Du folgende Eigenschaft abfragst: CommonDialog.FileName (CommonDialog=name deines CommonDialogs) Zum Test kannst Du Dir das Ergebnis mit Hilfe einer MsgBox anzeigen lassen: Msgbox commondialog.FileName Du kannst den Pfad natürlich auch an eine Stringvariable übergeben und weiterverarbeiten. Gruß, Tiana

Hi, also erstens mal, mangels Zeit meiner Ausbilder und weil ein Lehrgang zu teuer war musste ich mir das Programieren anhand von Unterlagen selber beibringen und dafür finde ich mache ich das ganz gut. zu 2. Wenn Du meinen Code gelesen hast ist Dir sicher aufgefallen, dass ich den Filter benutzt habe, um die Dateierweiterung einzugeben. Die zu öffnende Datei wurde ja vorher im Öffnen-Dialog übergeben, so das ich mit der Eigenschaft FileName eigentlich nur den Pfad und Namen der ausgewählten Datei übergeben habe- ich verstehe da dein Problem nicht. Mit ShowOpen wird übrigens nur angezeigt, welchen Dialog ich anzeige nämlich den ÖffnenDialog und das brau auch gar nicht abgefangen werden. zu 1. Mir ist schon klar, dass man nach Möglichkeit kein GOTO verwenden sollte, aber was machst Du, wenn der Anwender keine Datei auswählt und Trozdem auf OK klickt???? Da es sich bei dem angeführten Code eigentlich um eine Importschnittstelle handelt hätte das eine Interessante Fehlermeldung gegeben und die muss eben abgefangen werden. Ich hätte auc ganz am Anfang schrieben können On err GOTO, aber das wäre auf das selbe rausgekommen. Manchmal ist das Benuzten von GOTO eben doch erlaubt und sinnvoll. zu 4. Gib doch mal in einem VB-Prog Shell start <File> ein. Ich wette mit Dir, das es nicht funktioniert, weil er den Parameter Start nicht kennt. zu 5. wie auch VB-scripte zeigen ist es kein Problem mit Hilfe des Filesystemobjects auf xls-Dateien zuzugreifen (OpenFile()) und sie auszulesen und auch zu überschreiben. Das dürfte zeimlich genau auf VB zu übertragen sein, das es sich hier um Methoden des FSO handelt. Excel Datein nicht nur zum Bearbeiten zu öffnen (mit FSO), sondern auch anzuzeigen (was 2 verschiedene Dinger sind) ist eine andere Sache, hierfür muss man wirklich mit ActiveX arbeiten. Ich habe eher das Gefühl, dass Du meinen kleinen Codeauszug, der nur als Anregung gedacht war) weder richtig gelesen, noch verstanden hast. Aber wenn Du so schlau bist kannst Du sicher ein Code-Beispiel für die Lösung mit ActiveX angegeben??? Gruß, Tiana

Hi, mhhh, an sich nicht, allerdings wird jetzt die Dati nicht mit Excel geöffnet, sondern er stellt Sie nur für eine interne Verarbeitung zur verfügung. D.h. Du könntest jetzt den Zelleninhalt mittels FileSystemObject auslesen. Du musst, wie schon gesagt mit ActiveX arbeiten und mit eigenen dll`s. Näheres zu ActiveX kannst Du jedem guten VB- Buch entnehmen,

Hi, probiere es mit einer Schleife: Dim i as integer Dim c as command i=0 Do until liste.listcount>=i c.CommandText = "Insert into Tabelle (Feld1) Values (liste.text)" c.Execute i=i+1 liste.List(i) loop So in etwa dürfte es funktionieren. Fragen nehme ich gerne entgegen! Gruß, Tiana

Hi, also der komplette Code ist doch ein bischen viel verlangt aber hier ein paar Hinweise zur Duchführung: 1. solltest Du einen CommonDialog auf dein entsprechendes Formular legen (Findest Du in deiner Toolbox neben textfeldern etc). Dann kannst Die Methode CommonDialog.ShowOpen benutzen. Wenn Du eine Datei auswählst kannst Du den Dateipfad und Namen mit der Methode CommonDialog.FileName abfragen. kleiner Tipp. Du kannst Deine Auswahl an Dateien eingrenzen indem Du vor dem ShowOpen dem CommonDialog folgende Eigenschaft zuweist: commonDialog.filter="Textdateien(*.txt)|*.txt" Dann solltest du ein Filesystemobject anlegen und mit Hilfe des FSO (abkürzung) den Text aus der Datei auslesen (textstream). Wenn der Text dann überarbeitet ist, übergibts Du einfach den Wert deines Textfeldes an das FSO und überschreibst die alten Inhalte. So in etwa dürfte es funktionieren. Wenn Du Fragen zu den einzelnen Schritten hast oder nicht weiterkommst schicke mir einfach eine Persönliche Mail. Ich werde dann versuchen Dir weiterzuhelfen. Gruß, Tiana

Hi, also im Großen und Ganzen müsste Dein Code so aussehen: 'Öffnen- Dialog anzeigen dlg.DialogTitle = "Import" dlg.FileName = "*.*" dlg.Filter = "Alle Dateien (*.*)|*.*" dlg.Flags = cdlOFNFileMustExist dlg.ShowOpen If dlg.FileName = "*.*" Then GoTo Exit_Import End If 'EXE-Dateien öffnen Shell dlg.FileName, vbNormalFocus Exit_Import: Exit Sub Allerdings kann man mit Shell nur EXE-Dateien öffnen. Wenn Du eine XLS öffnen willst, dann musst du mit ActiveX arbeiten. Das habe ich aber auch noch nicht gemacht und kann Die daher keinen Code zur Verfügung stellen, aber viellleicht hilft Dir der Tipp ja trozdem weiter. Gruß, Tiana

Hi, kein Problem. Bin leider kein ORACLE-Spezialist, aber manchmal reichen ja auch die bescheidenen SQL-Kenntnisse aus! Gruß, Tiana

Hi, na SQL war mir schon klar. Also bei Access z.B. hätetst Du die Möglichkeit gehabt die anderen beiden Felder auszublenden. OK, also. Da die DB versucht immer alle Schlüsselfelder zu vergleichen, gehe ich davon aus, dass Du mit einem Designer arbeitest??? Ansonsten verstehe ich dein Problem nicht, da Du doch dein Ergebnis mit einem einfachen SQL-Statement erreichen könntest (oder ist Oracle so anders???). SELECT * FROM TBL1,TBL2 Where TBL1.Feld=TBL2.Feld Oder??? Gruß, Tiana

Hi, mit welcher DB arbeistest Du denn? Gruß Tiana

HI, wie wäre es mit: Mrketing durch Veranstaltungen z.B. Gewinnspiele, Messe, Sonderverkäufe, Sommerfeste, "Tag der offenen Tür", verkaufsoffener Sonntag, Jubiläumsfeiern.....

Hi, nein, bin ich nicht. Auch wenn ich ganz gute Kontakte habe. Aber glaube mir, wenn der ZPA einmal einen (schwer erkämpften) Fortschritt gemacht hat, geben Sie diesen nur schwer auf (das gilt übrigens auch für Fehltritte)

Hi, also, da es in den letzten Prüfungen schon mal Probleme gab, weil man ja auch nicht jeden Befehl auswendig kennt und die Korrektoren natürlich nicht jede Programmiersprache kennen, wird in der Regel nur noch Pseudocode verlangt (meistens sogar in Form von Struktogrammen). Wichtig ist ja, das Du zeigst, das Du eine Programmlogik aufbauen kannst und nicht, in welcher Sprache Du das kannst! Gruß, Tiana

Hi, mit welcher VB- Version arbeitest Du? Tiana

Hi, also eine Möglickeit wäre es vorher abzufragen, ob die Zelle A1 gefüllt ist und in einer Schleife so lange immer eine Zeile weiter zu springen bis eine leere Zeile gefunden wird (z.B. A15). Diese kannst Du dann als Einfügemarke benutzen. Gruß, Tiana