Patrick.Karre

Hallo Leute, gibt es eine Möglichkeit windows Programme unter Linux laufen zu lassen ? Vielleicht einen Emulator oder so was ? MfG Patrick

Kann ich den FrontPage irgendwie sagen, wie er PHP-Seiten auswerten kann um diese direkt zu testen ? MfG Patrick

Danke, ich glaube so könnte es funktionieren. MfG Patrick

Hallo Leute, wie kann ich für unterschiedliche Benutzgruppen, das Startmenü unterschiedlich gestalten. Ich möchte das z.B. Suchen und Systemeinstellungen nicht angezeigt werden. MfG Patrick

FrontPage direkt kann die Seite auch nicht testen, ich muss die Seite in des Verzeichnis spielen auf das der IIS hinweisst. Dann geht das. MfG Patrick

Ich habe den IIS installiert und einen PHP interpreter aus dem Internet geladen. Ich kann die Seiten ja einfach mal bei mir testen. Danke MfG Patrick

Hallo Leute, kann ich mit FrontPage PHP Seiten erstellen, oder zumindest als PHP abspeichern. Ich kann es leider gerade nicht selbst testen. Aber rein theoretisch müsste es ja funktionieren. MfG Patrick

Ich wünsche dir einen schönen Feierabend. Ich werde es auch nochmal Probieren, vielleicht finde ich ja die Lösung. MfG Patrick

Der Befehl Printer.Print funktioniert nicht. Ich bekomme eine Fehlermeldung wenn ich versuche den Befehl auszuführen. MfG Patrick

Ein Problem habe ich jetzt noch. Wie kann ich auf dem ausgewählten Drucker ausdrucken. Ich habe es damit Probiert den Standarddrucker zu ändern. Allerdings scheint es Access gar nicht zu insteressieren. MfG Patrick

Achso, ich habe die ganze Zeit versucht, das Optionsfenster direkt aufzurufen. Diese Variante ist natürlich besser. Danke MfG PAtrick

Du kannst den CommonDialog direkt von einem Modul aufrufen lassen. Bzw du kannst Formulare anlegen. Das Funktioniert auch soweit bei mir alles. Aber er druckt mir nichts aus. Wenn ich auf den Befehl drucken gehe, röddelt mein PC kurz und dann nichts. Bekomme ich ein Feedback was ich auswerten muss ? MfG Patrick

Ich habe Windows XP. Aber war auch ein Fehler von mir. Bis jetzt werden die allgemeine Druckeransicht geöffnet. Gibt es noch eine andere, mit der ich direkt einen Drucker auswählen kann und losdrucken kann ? Das ganze ist für MS-Access 2000. MfG Patrick

Funktioniert. Allerdings bekomme ich die Windows Optionen angezeigt. Wenn ich in einem Programm (z.B. Word) auf Druckereinstellungen gehe, dann habe ich die Möglichkeit mir einen Drucker auszusuchen und zu verwenden, ohne das ich den STandarddrucker verwenden muss. Kann ich dies auch umsetzen ? MfG Patrick

Danke, hat funktioniert. MfG Patrick

Hallo Leute, ich habe IIS installiert und habe das Basisverzeichnis umgelegt. Wenn ich im Internetexplorer localhost eingabe, bekomme ich das gewünschte verzeichnis. Wenn ich aber 127.0.0.1 eingebe, werde ich irgendwo anderst hingelinkt. Kann ich die IP nicht so einstellen, das diese auf den Localhost verweisst, müsste Sie das nicht sowieso ??? MfG Patrick

Und wie setze ich Befehl am besten um ??? MfG Patrick

Hallo Leute, ich würde gerne mit VBS/VBA die Windows Druckoptionen aufrufen. Leider habe ich bis jetzt noch keine Möglichkeit gefunden dieses anzustellen. MfG Patrick

Anstatt max müsste ich dann einfach min setzen und ich habe was ich möchte... Danke... MfG Patrick

Hallo, hier ist das Beispiel, es wurde zwar für Access geschrieben, aber ich denke so oder zumindest so ähnlich müsste es auch in Outlook aussehen. Function Toolbar() Set Toolbar = CommandBars.Add("Berichtsoptionen", msoBarTop) Set Speichern = Toolbar.Controls.Add(msoControlButton) Set Senden = Toolbar.Controls.Add(msoControlButton) Set Drucken = Toolbar.Controls.Add(msoControlButton) Set Schliessen = Toolbar.Controls.Add(msoControlButton) With Speichern .Caption = "Speichern" .FaceId = 3 .OnAction = "Speichern" End With With Senden .Caption = "Senden" .FaceId = 24 .OnAction = "Senden" End With With Drucken .Caption = "Drucken" .FaceId = 4 .OnAction = "Drucken" End With With Schliessen .Caption = "Schliessen" .FaceId = 358 .OnAction = "Schliessen" End With CommandBars("Berichtsoptionen").Visible = True End Function. MfG Patrick

Hallo, es gibt zwei Möglichkeiten, du kannst die Toolbar direkt selbst schreiben und einfach aufrufen. Oder was einfacher ist, du gehst auf die Toolbarleiste ->rechte Maustaste -> Anpassen. Jetzt siehst du alle Toolbars die in Outlook vorhanden sind. Sage einfach neu und gestalte deine neue Toolbar. Wenn du ein Beispiel haben möchtest, wie dies in VB aussieht, gebe einfach bescheid. MfG Patrick

Das könnte klappen, danke für die hilfe... MfG Patrick

Hallo, du musst mit docvariable Arbeiten. Dies könnste zum Beispiel wie folgt aussehen: Das Beispiel ist jetzt von einem bestimmten Produkt, die Logig ist aber generell bei allen Produkten die gleiche. In Word kannst du dann die Daten mit { DOCVARIABLE "AdresseStraße" \* CHARFORMAT } übergeben. Bedenke bitte das die geschweiften klammern für eine Feldfunktion stehen. Option Explicit ' Objekte bestimmen Dim ActiveDocument Set ActiveDocument = TargetObject Dim Application Set Application = ActiveDocument.Application Application.Visible = True Dim ActiveWindow Set ActiveWindow = Application.ActiveWindow Dim Selection Set Selection = Application.Selection ' Alle Textmarken bestimmen ReDim aBookmarks(ActiveDocument.Bookmarks.count) Dim iCount For iCount = 1 To ActiveDocument.Bookmarks.count aBookmarks(iCount) = ActiveDocument.Bookmarks(iCount) Next ' Beginnt Sie mit dem entsprechenden Kürzel Feld_? Dim sBookmark Dim Field iCount = 0 For Each sBookmark In aBookmarks If Left(sBookmark, 5) = "Feld_" Then ' Lade das Feld (falls vorhanden) Set Field = AGVIP.ActiveAddress.Fields(Mid(sBookmark, 6)) If Not Field Is Nothing Then ErsetzeTextmarke CStr(sBookmark), CStr(Field) End If Next ' Aus Gechwindigkeitsgründen nur bestimmte Felder übertragen ' Dazu muss aber geklärt sein welche Felder in der AGVIP Datenbank ' vorhanden sind. Gibt es das Feld Nachname dann wird das Feld ' Ansprechpartner als Nachname verstanden. ' Die entsprechenden Dokvariablen die Optional sind: ' Anrede, Titel, Vorname, Nachname, Ansprechpartner ' werden jedoch immer erzeugt. Dim f If AGVIP.ActiveAddress.Fields("Ansprechpartner").Name="Nachname" Then ' Diese Felder immer übertragen f = Array("AdresseStraße", _ "BriefAnrede", _ "TERMADM", _ "TERMDatum", _ "TERMZeit", _ "@TERMort", _ "Autoneutyp", _ "Autoneudatum", _ "@autoneupr", _ "Kurzname", _ "Nummer", _ "Ansprechpartner", _ "TelefaxFirma", _ "TelefonDurchwahl", _ "Email1") ' Dummys füllen. ActiveDocument.Variables.Item("Ansprechpartner").Value = Convert("") Else ' Diese Felder immer übertragen f = Array("AdresseStraße", _ "BriefAnrede", _ "TERMADM", _ "TERMDatum", _ "TERMZeit", _ "@TERMort", _ "Autoneutyp", _ "Autoneudatum", _ "@autoneupr", _ "Kurzname", _ "Nummer", _ "Ansprechpartner", _ "TelefaxFirma", _ "TelefonDurchwahl", _ "Email1") ' Dummys füllen ActiveDocument.Variables.Item("Anrede").Value = Convert("") ActiveDocument.Variables.Item("Titel").Value = Convert("") ActiveDocument.Variables.Item("Vorname").Value = Convert("") ActiveDocument.Variables.Item("Nachname").Value = Convert("") End If ' Textdaten übertragen in die DocVariablen Dim n, v, t For Each n In f ' Kennzeichen? If Left(n,1)="@" Then ' Variable laden Set v = AGVIP.ActiveAddress.Fields(Mid(n,2)) t = v.Property.Text Else Set v = AGVIP.ActiveAddress.Fields(n) t = v.Value End If ' Feld kopieren ActiveDocument.Variables.Item(n).Value = Convert(t) Next ' Alles markieren und Felder aktualisieren und Felder fixieren ActiveWindow.View.ShowFieldCodes = False Application.Selection.WholeStory Application.Selection.Fields.Update Application.Selection.Fields.Unlink ' Zum Start ' Application.Selection.Goto ,,,"Start" ' Speichern ActiveDocument.Save ' TextMarke ersetzen (aber nicht die Textmarke zerstören) Sub ErsetzeTextmarke(sTextmarke, sText) 'Text ersetzen ' Gehe zu Textmarke wdGoToBookmark = -1 Selection.GoTo -1,,,sTextmarke 'Start merken Text einsetzen und Textmarke neu setzen Dim lStart lStart = Selection.Start Selection.text = ErsetzeCrLf(sText) Selection.Start = lStart ' Textmarke erneut setzen ActiveDocument.Bookmarks.Add sTextmarke, Selection.Range ActiveDocument.Bookmarks.ShowHidden = True End Sub ' Kleine Helper Funktion, zum entfernen von CR/LF Kombinationen Function ErsetzeCrLf(sText) Dim I I = InStr(sText, Chr(13)) While I <> 0 sText = Left(sText, I - 1) + Chr(11) + Mid(sText, I + 1) I = InStr(I, sText, Chr(13)) Wend ErsetzeCrLf = sText End Function

Ich möchte Daten aus einer Access Datenbank abfragen und bei einem bestimmten Feld (Datumsfeld) das jüngste Datum zurückbekommen. Wie ich normale Abfragen und Ausführungen machen lasse, ist kein Problem, aber ich weiss leider nicht, wie ich so etwas am besten anstelle. MfG Patrick

Hallo Leute, ich möchte mit VBS auf eine Datenbank zugreifen und mir das jüngste Datum rausziehen und ausgeben. Leider habe ich bis jetzt noch keine Möglichkeit gefunden, wie ich dies am besten anstelle. MfG Patrick