Zum Inhalt springen

Paulboah

Mitglieder
  • Gesamte Inhalte

    21
  • Benutzer seit

  • Letzter Besuch

  1. dann habe ich noch ein Problem, undzwar soll mir das Teil wenn ich bei der Frage "Speichern?" auf "ok" klicke ein neues Verzeichnis anlegen. Macht er aber nicht. Wo ist der Fehler - der müsste hier stecken. Ich kopier mal den Quellcode rein: ist ein bisschen compli ----------------------------------------------------- Rem --- Datei Speichern -------------------------------------------------- Speichern: On Error GoTo err_Speichern If OptionButton1.Value = True Then Directory$ = Pfad1.Text Else Directory$ = Pfad2.Text End If If Directory$ = "" Then Directory$ = "C:\Eigene Dateien\" End If If Speichername$ = "" Then ChDir Directory$ suchDatei = Dir(Directory$ & "\Diverse" & ".doc") If Len(Trim(suchDatei)) = 0 Then WordBasic.fileSaveAs Name:=Directory$ & "Diverse\" & Speichername$ & ".doc" Else Me.MousePointer = 0 MsgBox ("Das Dokumenent existiert bereits in diesem Verzeichnis!" _ & vbCrLf & "Die Datei wurde nicht gespeichert"), vbInformation, "Dokument wurde nicht gespeichert ! " End If Else ChDir Directory$ suchDatei = Dir(Directory$ & Speichername$ & ".doc") If Len(Trim(suchDatei)) = 0 Then WordBasic.fileSaveAs Name:=Directory$ & Speichername$ & ".doc", Format:=0 Else Me.MousePointer = 0 MsgBox ("Das Dokumenent existiert bereits in diesem Verzeichnis!" _ & vbCrLf & "Die Datei wurde nicht gespeichert"), vbInformation, "Dokument wurde nicht gespeichert ! " Me.MousePointer = 11 End If End If WordBasic.EditSelectAll WordBasic.UpdateFields WordBasic.ViewPage WordBasic.WW7_EditGoTo "X_Textanfang" If Unterschrift.Text = "" Then WordBasic.WW7_EditGoTo "X_Textanfang" Else Selection.MoveDown Unit:=wdLine, Count:=2 Selection.EndKey Unit:=wdLine Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Unterschrift.Text Selection.GoTo What:=wdGoToBookmark, Name:="X_Textanfang" End If exit_OK_Click: Me.MousePointer = 0 Unload Me Exit Sub err_Ok_Click: MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Fehler" Resume exit_OK_Click err_Speichern: If Err.Number = 76 Then Me.MousePointer = 0 strMsg = MsgBox("Der ausgewählte Pfad " & vbCrLf & Directory$ & " ist nicht vorhanden !" & vbCrLf & "Soll der Pfad angelegt werden ?", vbQuestion + vbYesNo, "Pfad ist nicht vorhanden !") If strMsg = vbYes Then 'MkDir Directory$ Resume Next Exit Sub Else MsgBox "Datei wurde nicht gespeichert !", vbInformation, "Fehler" Resume exit_OK_Click End If End If Me.MousePointer = 0 MsgBox Err.Number & vbCrLf & Err.Description, vbInformation, "Datei konnte nicht gespeichert werden !" Resume exit_OK_Click End Sub ------------------------------------------
  2. hab nun im Quellcode folgendes gefunden und geändert: davor: MsgBox "Datei wurde nicht gespeichert !", vbCritical, "Fehler" habe ich "vbCritical" in "vbOKOnly" geändert (irgendwo unter Hilfe gefunden). Ist doch ok so, gibt bisher kein Problem und das Fenster dürfte jetzt kein Schreck mehr bereiten.
  3. Hallo hab mal ne Frage: Hab da ne dot Datei undzwar kommt beim Aufrufen eine Abfrage und wenn er auf Abbrechen geht eine Fehlermeldung. Ist ja auch richtig (soll so sein). Nur ist da dieses rote Kreuz. Das schaut schlimm aus für den Benutzer. Wie genau kann ich das nun ändern? Bin noch Noob. Vielleicht trotzdem versuchen. Pic im Anhang. Danke schön
  4. Hi, wie schaut es mit den Berufschancen für Informatikkaufleute aus? Klar - wo schaut es schon gut aus. Aber wo konkret kann man sich bewerben (als was?). Sehe beispielsweise nie Anzeigen wo IT-Kaufleute gesucht werden. Hat jemand Erfahrung oder hat schon ausgelernt? Danke für Tipps und Gruß
  5. habe das selbe "Problem" mal schaun was das wird. Viel Glück dir
  6. danke schön, Kindergeld kommt bei mir dann auch noch dazu. Muss reichen...
  7. Mal ne blöde Frage... wie viel wird so abgezogen? Wie berechnet man das? z.B. wenn ich 450€ ( habe?? Meine Schwester macht zwar ne Ausbildung zur Steuerfachangestellten und müsste das wissen, aber die pennt schon :bimei
  8. Also unterschrieben habe ich es natürlich gleich, hab ja gesagt dass ich wie ein Schwein gefeiert habe :bimei Danke für eure Tipps, dann hatte ich ja nicht sooo unrecht. Gibt halt so ein paar Leute die mir das miesmachen und ich hab mich mitreisen lassen. Freitag (mein Geburtstag) hab ich schon gesagt wird das auch nochmal gefeiert. Bleibt noch die Frage mit den Weiterbildungsmöglichkeiten?
  9. Das hat sie auf jedenfall. Arbeitsweg ist auch SEHR gut. Aber andere Firmen sagen ja zumindest wenn denn alles stimmt, arbeiten wir mit dem Ziel dich zu übernehmen. Da kann man dann auch gucken wie es in den letzten Jahren war, ob die alten Azubis übernommen wurden. Diese / meine Firma bildet zu ersten mal einen Informatikkaufmann aus. Was ich ja noch positiv finde, dass der Chef (übrigens sehr angenehmer Mensch mit dem man sicher nett reden kann) das so klar gesagt hat. Immerhin besser als wenn sie mir was versprechen und dann nicht einhalten können, oder!?
  10. achja, vielleicht gibt es nach der Ausbildung, wenn wir einfach davon ausgehen ich mache dort die Ausbildung und Tschüß, Möglichkeiten weiter zu lernen. Was kann man da empfehlen? Welche Möglichkeiten hat man?
  11. Guten Tag, ich brauche mal einen Tipp von euch. Vielleicht ein paar Ratschläge von erfahrenen Menschen Also ich versuche mal mein Problem zu schildern: Ich war lange Zeit auf der Suche nach einem Ausbildungsplatz. Sehr viele Bewerbungen, viele Gespräche... Vor einigen Wochen habe ich dann endlich eine Zusage bekommen. Alles wunderbar, ich hab gefeiert wie ein Schwein. Aber im Hinterkopf bleibt eins ausm Bewerbungsgespräch. Nämlich die berühmte Übernahme. Als ich nämlich danach fragte meinte der Chef ziemlich deutlich "Nein". Er meinte dass alle in der Welt schreien, es gäbe keine Ausbildungsplätze und da sie noch ein Platz hier frei hätten wollen sie es gerne mal probieren (Informatikkaufmann). Aber hinterher "Nein". Weil die IT-Abteilung (8 Leute) voll dann ausreicht. Wir waren uns aber auch einig, dass man nur sehr schwer sagen kann was in 3-4 Jahren ist und was dann ist bzw. wenn man sich gut behauptet (was ich unbedingt machen will). Da stimmt er mir zu... So was meint ihr... Ich suche natürlich noch weiter (man kann sich ja immer noch verbessern). Ich weiß aber nicht ob ich mich nun freuen soll, oder eher nicht ;-) Einige Leute sagen nun "die suchen nur ne billige Arbeitskraft". Was einerseits natürlich sein kann. Die Leute dort sind mir alle sehr positiv aufgefallen. Alle nett, lustig, hilfsbereit. Der Chef meinte "Was wir ihnen hier bieten können ist eine sehr gute Ausbildung, weiter leider WIE ES IM MOMENT AUSSCHAUT NICHT". Die Ausbildung dort klang auch sehr reizvoll. Also??? Meine Gedanken: - in 3 Jahren kann sich die Welt verändern, eine Frau wird schwanger (von mir und schon ist ein Platz frei!? - ich mache mich so gut, dass sie sogar die Abteilung um diese eine Person erweitern, oder mich zumindest woanders hin empfehlen bzw. ich irgendwo was anderes finde (Kunden ect.). - Ich könnte wirklich nur eine billige Arbeitskraft sein. - Wozu sollen sie mich wirklich gut ausbilden (wie sie es selber sagen), wenn sie mich dann sowieso nicht behalten wollen, also brauchen sie sich doch nicht anzustrengen. Was meint ihr sollte ich tun??? Weitersuchen und was anderes finden wäre natürlich die einfachste Lösung, aber ist halt net so einfach.
  12. Ja Vorstellungsgespräch, dann ist es noch weit Aber ist schon ein großer Schritt. Ich wünsche dir viel Glück. Saß heute wieder den halben Tag an den Bewerbungen und bin erstmal fertig. Morgen früh wird dann noch telefoniert und informiert. Ich gebe nicht auf, für meinen großen Traum: EIN AUSBILDUNGSPLATZ IM IT-BEREICH Go

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...