forTeesSake

habe in access ein formular erstellt indem viele textboxen und checkboxen vorhanden sind.

im unteren bereich des formulars gibt es ja immer die möglichkeit die datensätze der tabelle zu navigieren.

nun möchte ich bei jedem klick auf diese navigationsleiste etwas ausführen.

wie mache ich das?

danke

hast ja recht. dachte halt dass jemand schnell ne seite parat hat...

hab im moment das problem dass zu grosse zahlen z.b. 6234567890 Modulo 11 einen überlauf verursachen..

hi, kennt jemand oder hat jemand eine funktion in vb/vba zur überprüfung ob eine eigegebene isbn nummer richtig ist?

habe hier mal einige informationen zusammengeschrieben.

is natürlich nicht das problem die funktion zu schreiben, aber das kostet einiges an zeit. und warum das rad nochmal erfinden?

wäre toll wenn jemand was weiss.

hier die infos:

(bitte nicht selbst schreiben. möchte nur die info ob und wo es so eine funktion schon gibt. die funktion sollte nur diese u.g. dinge alle miteinbeziehen.)

--------------------------------------------------------------------------------------------------------

Die ISBN hat folgendes Format, nicht alles müßte gestestet werdena-b-c-da = Länderkennzahl, ist einstelligb = Verlagskennzahl, ist 3-5 stelligc = Buchkennzahl, ist 3-5 stellig, wobei gilt: b+c = 8 (große Verlage mit großem Programm bekommen eine kleine Verlagsnummer, damit mehr Bücher möglich sind, wenn trotzdem voll, bekommen diese Verlage eine weitere Verlagsnummerd = Prüfziffer (0...9,X) wobei ich die Regel nicht kenne, nach der sie gebildet wird (Prommi kennt sie). Ich habe da was bei Google-Groups gefunden:Eine ISBN-Nummer kann auf ihre Gueltigkeit durch einen einfachen Algo- rithmus ueberprueft werden, der alle Ziffern einschliesst. ISBN 3 8 8 0 5 3 0 0 2 5

Multiplikator 10 9 8 7 6 5 4 3 2 1

---------------------------------------------

Ergebnis 30+72+64+ 0+30+15+ 0+ 0+ 4+ 5 = 220

Wenn das Ergebnis ohne Rest durch 11 dividiert werden kann, ist die ISBN-Nummer gueltig. Dem Zeichen "X" in der ISBN wird der Wert 10 zugeordnet.

so, vielen dank für deine mühe. hab nochmal nachgedacht und dann den unten stehenden code geschrieben.

jetzt is es ok. der knackpunkt war das << if activedocument.path = "" >> im speichern modus. dann is das dokument nämlich neu. wenn nicht dann muss filesaveas ausgeführt werden.

und die von mir angesprochene "windows-interne logik zum speichern" übernimmt ja dann der dialog.

und neben dem speichern kann ich dann mein loggen einbauen...

danke auf jeden fall!

Sub FileSave()

If ActiveDocument.Path = "" Then 'dok ist neu

FileSaveAs

Else

ActiveDocument.Save

End If

End Sub

Sub FileSaveAs()

Dim retVal, retName

ChangeFileOpenDirectory (glblStandardDocPfad)

With Dialogs(wdDialogFileSaveAs)

retVal = .Display

retName = .name

End With

If retVal = -1 Then

ActiveDocument.SaveAs (retName)

End If

Call writeExcelLog

End Sub

nee, sorry nochmal: also wenn ich das richtig sehe werden zwar die speichern menüeinträge so modifiziert, dass gespeichert wird und danach noch was anderes passiert.

die normale "speicherlogik" von word wird aber nicht berücksichtigt. es wird also immer einfach über "call filesave" gespeichert egal ob das dok. noch neu ist und erstmal ein pfad ausgewählt werden muss oder ob man über speichern unter... speichert...

ok 748 is die id für speichern unter... aber das grosse problem ist, dass wenn ich ein neues dokument erzeuge und über den o.g. code speichere ich beim speichern erstmal nicht gefragt werde unter was gespeichert werden soll, sondern es wird einfach zuerst automatisch gespeichert. erst danach kann ich den speicherort auswählen, aber das aktuelle dok. ist schon gespeichert..

bei nur speichern klappt alles gut..

noch ne ahnung?

jetzt gibts nur noch eine frage: wo stehen denn diese ids? und welche id hat "speichern unter". denn dafür muss es ja auch funktionieren.

ich danke nochmals

goodness!

danke. das ist echt geniale ware. spitzenbeitrag. ich bedanke mich untertänigst!

danke, danke danke danke

also nochmal: ich möchte den effekt des commonDialog der ja auch sehr gut funktioniert.

aber OHNE commondialog sondern wie oben beschrieben..

ja ich weiss aber das ist ja wie gesagt nur der filter den man auch manuell eingeben kann. ich suche den effekt den man auch mit dem commonDialog erzeugen kann und man die untere auswahl der filtermöglichkeiten steuern kann z.b.

"Alle Dateien"

"Bilddateien"

"Htm/Html Dateien"

usw.

das andere hatte ich ja schon reicht aber leider nicht, auch weil es nach einem ordnerwechsel verschwindet...

jetzt häng ich wirklich

ich möchte gerne in meinem makro eine bilddatei über einen filedialog asuwählen lassen.

möchte deswegen sowas wie einen filter setzen.

ich weiss dass ich vor anzeige des dialogs mit

With Application.Dialogs(wdDialogFileOpen)

.Name = "*.jpg"

nur jpg dateien zur anzeige bringen kann. nützt mir aber gar nix weil wenn ich den ordner wechsle ist die "filterwirkung" weg.

viel besser wäre es wenn ich die unter auswahl im dialog (wo normalerweise z.b. "Alle Dateien" steht) bearbeiten könnte.

is das irgdwie möglich?

ok habs: das textfeld einfach in einen "positionsrahmen" umwandeln. der passt sich dann automatisch an und ist sogar bestandteil des "main documents" also nich wie ne textbox "Text Box [index]".

danke trotzdem

hi, habe ein makro das ein textfeld in word füllt. das textfeld wird bereits vorher händisch in das dokument eingefügt.

nun weiss ich aber leider nicht wie lang der text wird. dementsprechend müsste ich die länge des texfeldes (das sehr schmal ist) dynamisch anpassen damit der text immer ganz sichtbar ist, aber das textfeld auch nicht zu gross ist um unnötige platzverschwendung zu vermeiden

weiss da jemand was??

danke!

hi, weiss dass man in vba eine eigene speicherroutine schreiben kann indem man einfach die funktion filesave bzw. filesaveas einbaut. nun möchte ich aber die word eigene speicherfunktion verwenden und darüberhinaus etwas einbauen.

das ganze soll so ablaufen:

speichern (word eigen)

und danach ein logfile füllen.

gibts da ne möglichkeit das zu realisieren??

wow. der hammer. super! orden für dich. echt goil.

danke danke danke

ja ich konnt nur grad net ändern weil der server down war..

egal. ich meine nicht eine einzige tabelle. natürlich müssen es innen drin mehr sein, aber insgesamt soll es eine tabelle sein, damit die köpfe jeder spalte immer an der richtigen position sind...

hi, stehe total auf dem schlauch. habe folgende matrix:

matrix

kann mir jemand nen tipp geben wie ich das als eine einzige tabelle in html code?

danke

jetzt ist mir aufgefallen dass das schon mir FileClose() geht, aber ich mich einfach verklickt habe.

wenn ich nämlich ins rechte obere kreus zum schliessen von word gehe kommt noch ein dialog der mir das speichern vorschlägt.

kann ich den irgendwie ausschalten oder modifizieren?

sowas wie onApplicationClose() oder was in der art??

bidddeeeeee

hi,

habe in word ein macro indem ich die filesave und filesaveas routinen selbst geschrieben habe.

diese funktionen sind ja normalerweise die word-standardfuntionen können aber eben überschrieben werden und werden dann stattdessen ausgeführt.

klappt alles super, bis auf dass ich wenn ich ein dokument verändere und dann auf schliessen gehe ein dialog mit "möchten sie die änderungen speichern" kommt und dann wiederum eine window/wordinterne speicherfunktion aufgerufen wird.

heisst: word greift hier dann nicht auf meine eigenefilesave/filesaveas funktionen zurück

warum?? gibts da noch ne andere funktion wie fileSaveAtClose oder so was?

dankö

es war alles korrekt. alles auch schön geschlossen. musste nur das

<% Server.ScriptTimeout=500000 %> hochsetzen.

danke trotzdem!

hi, habe eine asp seite die werte nach und nach aus der db ausliest und sich immer wieder selbst mit neuen parameter aufruft.

leider bekomme ich nach einiger zeit immer einen browser fehler und zwar immer exakt nach 101 datensätzen.

mein skript arbeitet, ich erzeutge nämlich bei jedem aufruf eine neue textdatei, der browser geht aber immer von einem timeout oder so aus denke ich.

ablauf ist folgender.

- seite aufrufen

- daten aus db holen

- textfile schreiben

- db zähler erhöhen

- response.redirect mit neuem zählerwert.

muss ich da evtl. noch was mit dem response machen damit die seite auch wirklich im browser aufgerufen wird, oder der das einfach checkt dass da im moment schon was passiert?

danke

wen es interessiert...

Const adTypeText = 2

Const adReadAll = -1

Dim objXmlHttp, objStream, fso, fname

Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")

objXmlHttp.open "GET", "MEINESEITE", False

objXmlHttp.send

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Type = adTypeText

objStream.WriteText (objXmlHttp.responseBody)

objStream.Position = 0

objStream.Charset = "latin1"

Set fso = Server.CreateObject("Scripting.FileSystemObject")

set fname=fso.CreateTextFile("MEINEDATEI",true)

fname.Write(objStream.ReadText(adReadAll))

'Response.Write objStream.ReadText(adReadAll)

fname.Close

set fname = nothing

set fso = nothing

objStream.close

Set objStream = Nothing

Set objXmlHttp = Nothing

so, jetzt hab ich mal das msxml object verwendet um mir den quellcode meiner datei zu holen.

ausgeben funtioniert super, aber wenn ich den quelltext als textdatei sichern will geht das nicht. kommt ein fehler.

wenn ich den quelltext mal versuche über javascript auszugeben geht das auch nicht.

ich kann aber an den quelltext irgendeinen string dranhängen und das ganz im browser ausgeben, das geht.

kann das sein dass der quelltext irgendie gesperrt ist, doch kein "echter" string ist oder sonstiges??

hier mal mein asp code:

<%

Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")

objXmlHttp.open "GET", "http://MEINESEITE", False

objXmlHttp.send

strHTML = objXmlHttp.responseText

Set objXmlHttp = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")

set fname=fso.CreateTextFile("c:\MEINESEITE.txt",true)

'HIER KOMMT DER FEHLER

fname.Write(strHTML)

'HIER KOMMT DER FEHLER ENDE

fname.Close

set fname = nothing

set fso = nothing

'DAS HIER GEHT ABER UND IM BROWSER SEHE ICH DIE KOMPLETTE SEITE

Response.Write strHTML

%>

hilfe!?

<< habe php 4.3 auf iis installiert >>

unter c:\php - standard.

alles komisch

ja, ich weiss. forms habe ich nicht. alle links werden im html-quellcode ersetzt etc...

man muss doch irgendwie an den html code kommen der rausgeschickt wird. da isser ja...