Arnie

Hallo miteinander, will einen in VB erstellten String in eine Textdatei schreiben, diese soll aber nur Daten im Unicode übernehmen, sprich Umlaute umnennen, etc. Gibt es in VB dafür einen Befehl oder eine Funktion, die mir die Konvertierung eines kompletten Strings ermöglicht? MfG Arnie

Habe Möglichkeit gefunden. Funktioniert wunderbar. Trotzdem danke für die Mithilfe Arnie

Danke für Eure Antworten, ich habe jedoch vergessen zu erwähnen, dass wir in Access proggen und somit das standardmäßig mitgeöffnete Accessfenster gemeint ist. Habe bisher keine Möglichkeit gefunden, die Funktionsschaltflächen dort zu deaktivieren... Weiß da jemand drüber bescheid? MfG Arnie

Hallo miteinander, ich würde sehr gerne die Funktions-Schaltflächen des Hauptformulars sperren, damit mein Proggi nur über programminterne Knöpfe beendet werden kann. Gibt es da eine Möglichkeit. Gemeint sind die Knöpfe "Maximieren", "Minimieren" und "Schließen". Vielen Dank im voraus für Eure Mithilfe Arnie

rs.Open "SELECT * FROM Tabelle WHERE ComputerName = '" & AusgelesenerPCName & "'",... If rs.recordcount = 1 Then 'Datensatz bereits vorhanden,dann nach geänderten Werten suchen bla bla bla Else If rs.RecordCount = 0 Then rs.AddNew rs("Feld1") = Wert1 ... etc. ... rs.Update Else MsgBox "Mehr als einen Wert gefunden!",vbInformation,"Bla" End If End If MfG Christian

Danke, danke! Hast mir sehr geholfen!!! MfG Arnie

Hallo miteinander, ich würde sehr gerne eine Funktion schreiben, welche den Proxyserver des Internet Explorer automatisch ändert (auf den Wert des Übergabeparameters). Wisst Ihr, wie ich dies bewerkstelligen kann? Gibt es dafür eine API Funktion oder sowas? Vielen Dank im voraus für Eure Hilfe Arnie

DANKE!!!

Hallo miteinander, ich steuere mit Hilfe von VB meinen IExplorer fern. Nun will ich abfragen, wann die Seite endlich geladen ist. Ich, weiß das geht mit IX.Busy, doch sobald verschachtelte Framesets hinzukommen, kommt er schon öfters durcheinander. <Der Remote-Server-Computer reagiert nicht oder ist nicht verfügbar> Kennt ihr noch eine Möglichkeit, wie ich das sicher und zuversichtlich abfangen kann? MfG Arnie

Funktioniert bei mir irgendwie nicht wirklich. Dim IX As InternetExplorer IX.Navigate2 "http://www.test.de While IX.Busy DoEvents Wend 'Und hier schau ich, ob es sich um ein Frameset handelt If IX.Document.Frames.length > 0 Then 'Hier will ich dann die einzelnen Frames ausgeben zur Auswahl (...) Else (...) End If So, hoffe, dass es jetzt ein wenig klarer wurde ;-). Suche sozusagen einfach nur den Quelltext des Framesets. MfG Arnie

Hallo miteinander, folgendes Problem: Ich will den Quelltext einer Hauptseite eines Framesets auslesen. Um das zu schaffen, habe ich mir gedacht, ich lese einfach das Frameset der Seite aus und Suche nach dem target Befehl. Jetzt aber meine Frage, wie greife ich, wenn ich Internet Explorer als Objekt geöffnet habe, auf den Frameset direkt zu? IX.Document.frames.length 'So erhalte ich die Anzahl der Frames IX.Document.childnodes(1).innerhtml 'Manchmal erhalte ich den Quellcode des Frameset, 'manchmal den eines Frames,je nach Ladedauer!?! Danke bereits im voraus für Eure Mithilfe Arnie

War wohl nur zu blöd (oder Access ;-)). Habe das Datum aus dem Textfeld direkt versucht zu subtrahieren. Klar das da Mist bei rauskommt. Habe den Wert dann einfach in eine Date-Variable geschrieben und damit gerechnet und dann kam ich auch zum richtigen Ergebnis. Trotzdem danke für Deine Hilfe Arnie

Jetzt ist mir aber auch aufgefallen, dass ich bei DateAdd("d",-1,Date) ein falsches Ergebnis rausbekomme. Woran kann das liegen,versteht er keinen negativen Parameter? MfG Arnie

Ist es schneller oder kommt bei Dir auch ein falsches Ergebnis? Würde mich nur mal so allgemein stark interessieren, da man ja doch auf die Geschwindigkeit des Programms ein wenig Rücksicht nehmen sollte... MfG Arnie

Hallo miteinander, bin aus aktuellem, projektbezogenem Anlass zu der Frage gekommen, was besser ist, DateAdd oder eine einfache Rechnung mit einem Datum... Hatte allerdings bei der Addition eines Datums unter Access 2000 / W2K SP3 einen falschen Wert herausbekommen, welcher mit DateAdd vollkommen richtig errechnet wird. hier wird allerdings behauptet, dass die einfach Rechnung bis zu 185 mal schneller ist, als DateAdd. Was haltet Ihr davon? MfG Arnie

@Holz Onkel: Dieser Beitrag war echt mal schön ausführlich. Vielen Dank. Kann mir eigentlich nur vorstellen, dass SQL dann der Speicher ausgeht, da in den ganzen anderen Fällen der Fehler immer auftreten müsste... Erzeuge jetzt einfach eine temporäre Tabelle und "update" diese 8 mal, anstatt 8 mal mit dem UNION Befehl zu arbeiten. Bisher hat er mir dann keinen Fehler mehr ausgegeben. Finde es nur sehr kurios, dass das passiert... Mich würde mal interessieren, ob MySQL diesen Fehler auch produziert oder ob das mal wieder ein hausgemachter Microsoft Fehler ist... Danke auf jeden Fall erstmal Arnie

SELECT nicht mehr und nicht weniger. Was anderes steht dort nicht!

Hallo miteinander, ich habe eine längere (7 DIN A4 Seiten) SQL Abfrage zu überprüfen, in welcher beizeiten (in unregelmäßigen Abständen) eine Fehlermeldung auftritt: Server: Nachr.-Nr. 8623, Schweregrad 16, Status 2, Zeile 5 Interner Fehler des Abfrageprozessors: Der Abfrageprozessor konnte keinen Abfrageplan erzeugen. Jetzt soll ich die Abfrage in ihre Einzelteile zerlegen, um den Fehler zu finden. Bin mir aber nicht ganz sicher, ob man ihn, wenn er eh nur alle paar Durchläufe mal auftritt, auftauchen wird. Hatte jemand auch schonmal einen ähnlichen Fehler und kann mir einen Tipp geben? MfG Arnie P.S.: In der Abfrage werden u.a. die Befehle: Union, Sum, DateAdd, Count, Case, etc. verwendet.

HAT SICH ERLEDIGT. STAND AUF'M SCHLAUCH!!!

Hallo miteinander, weise einem Formular einen RecordSource zu, daher erstellt er mir eine Tabelle. Schön und gut, doch ich will gerne automatisch (je nach Länge des Inhaltes und der Überschrift) die optimale Breite einer Zeile einstellen. Gibt es dafür einen VBA Befehl oder eine schnelle Möglichkeit? Habe nämlich keine Lust das alles manuell zu machen und alle Eventualitäten zu berücksichtigen. MfG Arnie

Habe das "Workaround" mal ausprobiert, doch bekomme den gleichen Fehler (Laufzeitfehler '2136'; "Damit sie diese Eigenschaft einstellen können, müssen Sie das Formular bzw. den Bericht in der Entwurfsansicht öffnen.") Ich will das machen, da man in einem Formular die SQL Abfrage anpassen kann. In einer Tabellenspalte soll dann z.B. "2 Tage", "3 Tage", etc. stehen. Je nach Abfrage. Das ist der Grund. War nicht meine Idee, sondern die meines Ausbilders ;-) MfG Arnie

Hallo miteinander, ich habe unter Access ein Formular mit einige Textfeldern. Dem Formular weise ich einen Recordsource zu. Daher macht er eine Liste aus den Textfeldern. Als Benennung für die eizelnen Spalten zieht er sich die Namensgebung der einzelnen Textfelder heran. Ich will jetzt aber, abhängig von Abfragewerten die Spaltennamen zur Laufzeit verändern können, doch das geht nicht. Ich habe es schon mit Text1.name = "Test" versucht, doch die Fehlermeldung sagt mir, ich können diese Anweisung nur in der Entwicklungsumgebung ausführen. Nun meine Frage: Ist dies überhaupt möglich (und wenn, wie)? Danke im voraus Arnie

Zuerst hWnds = GetAncestor(Me.hwnd, GA_ROOT) das ist klar, aber wie kann ich da in meiner Schleife mit arbeiten? Ich muss ja immer von Fenster zu Fenster springen... (z.Zt. hWnds = GetWindow(hWnds, GW_HWNDNEXT)) Gibt es für Ancestor auch ne Art Next-Anweisung? MfG Arnie

hWnds = GetWindow(Me.hWnd, GW_HWNDFIRST) Do ' Handle auswerten sTitle = HoleFensterBezeichnung(hWnds) If InStr(1, sTitle, "Test") Then i = i + 1 MsgBox "HWND: " & hWnds & ", Durchlauf: " & Durchlauf & ", Titel: " & sTitle & ", Treffer: " & i End If End If 'Nächstes Handle hWnds = GetWindow(hWnds, GW_HWNDNEXT) Loop Until hWnds = 0 Beschreibung: Ich nehme den Handle des aktiven Fensters und durchlaufe dann alle Fenster nacheinander. Wenn eines der Fenster den Titel "Test" enthält, soll eine Zählvariable hochgezählt werden. Dadurch will ich im späteren Verlauf des Programms abfragen, wieviele Anwendungen diesen Typs schon geöffnet sind. Ich hoffe, jetzt kann mir geholfen werden... MfG Arnie

MOIN! Damit arbeite ich immer, habe Dir einfach mal die ganze Funktion rauskopiert, es funzt einwandfrei!!! Function EMail_versenden(MailAdresse As String, MailBetreff As String, MailText As String, Optional WordAttachment As String = "", Optional AttachmentDescribtion As String = "", Optional ProtectDocument As Boolean = True) As Long Dim OutLookApp As New Outlook.Application 'Outlook Applikation Dim OutLookNameSpace As Outlook.NameSpace 'Outlook Postfach Dim OutLookItem As Outlook.MailItem 'Outlook Mail Dim OutLookTempID Dim Ergebnis As Long Dim pMNameLogin As String pMNameLogin = tools.MNameSetzen Ergebnis = 0 On Error GoTo ErrorHandeler_Mail Set OutLookNameSpace = OutLookApp.GetNamespace("MAPI") OutLookTempID = OutLookApp.Application.Session If ProtectDocument And WordAttachment <> "" Then Ergebnis = tools.WordDocSchützen(WordAttachment) If Ergebnis = 0 Or Ergebnis = 4605 Then Ergebnis = 0 Else MsgBox "Dokument konnte nicht geschützt werden, die Aktion wurde abgebrochen", vbOKOnly + vbCritical, "Word- Fehler" Exit Function End If End If Set OutLookItem = OutLookApp.CreateItem(olMailItem) With OutLookItem .To = MailAdresse .Subject = MailBetreff If MailText <> "" Or Not IsNull(MailText) Then .Body = "Anmerkung:" & vbCrLf & MailText & vbCrLf End If .Body = .Body & _ "-----------------------------------------" & vbCrLf & _ "Beliebiger Fußtext" & vbCrLf & vbCrLf If WordAttachment <> "" Then .Attachments.Add WordAttachment, , , AttachmentDescribtion End If End With OutLookItem.Send OutLookNameSpace.Logoff Outlook.Application.Quit EMail_versenden = Ergebnis Exit Function ErrorHandeler_Mail: Ergebnis = err.Number Debug.Print "Fehler: " & Ergebnis & " " & err.Description OutLookNameSpace.Logoff Outlook.Application.Quit Set OutLookItem = Nothing Set OutLookNameSpace = Nothing Set Outlook.Application = Nothing EMail_versenden = Ergebnis End Function MfG Arnie