Zum Inhalt springen

mwichmann

Mitglieder
  • Gesamte Inhalte

    35
  • Benutzer seit

  • Letzter Besuch

Beiträge von mwichmann

  1. Original geschrieben von IcedDEVIL

    hey mamamia,

    von mir natürlich die besten glückwünsche, wirds doch nix mit "in nem halben jahr zum FIA00 treffen". :o)

    wie siehts denn bei den anderen erfurtern aus? seid ihr durch?

    MfG

    IcedDEVIL

    Gratuliere naürlich auch allen Erfurtern nochmal Gesondert die bestanden haben.Werden wir doch wohl alle geschafft haben..Also ich hab bisher auf jedenfall

    alles bestanden.

    Wenn dann alles vorbei ist, können wir ja auch mal ne Sause zusamme machen..Mal sehen ob wir das auf die Reihe bekommen...

  2. Hallo erstmal,

    ich gratuliere erstmal allen die ihre Ergebnisse schon kennen und bestanden haben.

    Bei uns war es auc so,dass wir direkt von der IHK einen Brief bekommen haben wo die ergebnisse der schriftlichen Prüfung drauf standen.Ich habe es bisher auch gepackt und da ist mir wie sicherlich vielen hier ein Stein von Herzen gefallen.

    Manche von euch meckern hier rum, weil sie ihre Präsentation erst ende Juni haben. Man seit doch froh!Im Gegensatz zu mir ist das noch enorm früh.Ich habe erfahren dass bei meiner zuständigen IHK so viele Umschüler sind,dass wir wahrscheinlich frühestens Mitte/Ende AUGUST!!!!!! unsere Projektverteidigung haben.Ich möchte mal sagen dass sicherlich nicht viele hier so lange warten müssen.

    Aber naja das es mir arbeit nach der lehre momentan eh nicht so gut aus sieht, bekomme ich wenigstens bis dahin noch kohle...Es hat also alles Vor- und Nachteile.

  3. Original geschrieben von Wellenreiter

    Hi,

    ich hatte unangenehmerweise von Begriffen wie 'exeption' und 'white-box' (oder so)

    noch nie was gehört.

    Mal im Ernst, ich fand's schon nicht ganz so einfach.

    Ich hatte vor der prüfung auch och nie was von den begriffen gehör.Aber ich muss sagen dass ich mir extra für die prüfung das neue IT-Handbuch geholt habe und ich kann nur sagen dass ich dann ganz froh war es zu haben.

    Das Geld hat sich auf jedenfall gelohnt...Ich weiß nicht was ich manchmal ohne diess gemacht hätte....

  4. das ist doch noch okay.Ich hae so inoffiziell erfahren das bei uns hier die praktischen Prüfungen für Fachinformatiker Anwendungsenticklung erst frühestens Mitte/Ende August sein wird.Notfalls wird der ausbildungsvertrag verlängert von der ihk,da ja bei fast allen die verträge nur bis ende august gehen...

  5. Also mit den 30% das ist schon so okay wie die ihk das macht...UNd ich weiß ja nicht,aber ich dnke mal das dieses jahr die WiSo so gestaltet war das man da noch ein paar punkte holen konnte.ie wird zwar nur mit 20% ins endergebnis eingehen,aber da kann man noch ein paar wichtige Punkte holen.

    Meiner Meinung nach sollte man auf den Facharbeiterbrief dann nur drauf schreiben das man bestanden hat und keine Werte bzw. Prozente.

    Da ist doch das zeugnis von der berufsschule viel mehr wert,das man diese leistung über drei jahre gebracht hat und nicht nur die wie es bei der prüfung ist die tagesform entscheidet!!!

  6. Hallo,

    ich habe deinen vorschlag ausprobiert,aber ich bekomme es einfach nicht hin.

    Ich ahbe folgenden Quelltext.

    Private Sub Kombinationsfeld32_AfterUpdate()

    Dim stDocName As String

    Dim stDocName1 As String

    Dim stDocName2 As String

    Dim stLinkCriteria As String

    stDocName = "kunde neu"

    stDocName1 = "kunde editieren"

    stDocName2 = "kunde suche"

    Select Case "kunde neu": DoCmd.OpenForm stDocName, , , stLinkCriteria

    Case "kunde editieren": DoCmd.OpenForm stDocName1

    Case "Datenbank öffnen": DoCmd.OpenForm stDocName2

    End Function

    End Sub

    Ich bekomme aber immer die Fehlermeldung:

    Anweisung und Zeilenmarken zwischen SelectCase und erstem Vorkommen von Case unzulässig.

    Ich denke mal das nur ein Syntax falsch ist, aber ich krige es nicht hin..

    Wäre nett wenn du dir den quelltext mal angucken würdest.

  7. Hallo,

    ich habe ein Problem in Access.Ich habe insgesamt vier Formulare und will jetzt mit einem Kombinationsfeld in den einzelnen Formularen hin und her springen können.Ist das in Access überhaupt möglich?Wenn ja wäre es nett,wenn man mir ein bsp mitschicken bzw posten könnte.

    ich danke schon mal im Voraus...

    Bitte schreibt mir eine email.

  8. Hallo,

    ich habe ein Problem in Access.Ich habe insgesamt vier Formulare und will jetzt mit einem Kombinationsfeld in den einzelnen Formularen hin und her springen können.Ist das in Access überhaupt möglich?Wenn ja wäre es nett,wenn man mir ein bsp mitschicken bzw posten könnte.

    ich danke schon mal im Voraus...

    Bitte schreibt mir eine email.

  9. Hallo,

    ich habe zwei Problem.

    1.Ich durchsuche Textdatein nach bestimmten Begriffen.

    Meine Suche unterscheidet aber noch zwischen Groß-und Kleinschreibung.Und

    das soll sie nicht machen.

    Hier mal der Cosde für meine Suche:

    Private Sub suche_Click()

    Dim x&, Zeilen() As String, FName$

    MousePointer = vbHourglass

    FName = "c:\archiv\datensicherung.txt"

    List1.Clear

    Label10.Caption = ""

    Label10.Refresh

    'Die letzten beiden Parameter geben das linke und rechte

    'Begrenzungszeichen einer Zeile an, dies können auch

    'mehrere sein. Hier wurde für links vbLf (chr$(10)) und

    'für rechts vbCr (chr$(13)) gewählt

    If FindTerm(FName, Text7.Text, Zeilen, vbLf, vbCr) Then

    List1.Visible = False

    DoEvents

    For x = 0 To UBound(Zeilen) - 1

    If x < 32736 Then

    List1.AddItem Zeilen(x)

    Else

    MsgBox ("ListBox kann nicht mehr Einträge fassen!")

    Exit For

    End If

    Next x

    List1.Visible = True

    Else

    MsgBox ("Suchbegriff nicht vorhanden!")

    End If

    Label10.Caption = UBound(Zeilen) & " Zeile(n) gefunden"

    MousePointer = vbDefault

    End Sub

    Private Function FindTerm(File$, s$, ZZ$(), tl$, tr$) As Boolean

    Dim c&, f%, i&, j&, L&, lc&, p&, v&, w&

    Dim a$, d$, n$, o$

    'Dieser Wert gibt die Paketgröße von Get# an. Er kann beliebig

    'geändert werden, sollte aber nicht kleiner als die längste

    'zu erwartende Zeile des zu druchsuchenden Files sein

    Const PS& = 1024&

    ReDim ZZ(0)

    'Prüfen ob Parameter plausibel sind

    If tl$ = "" Or _

    tr$ = "" Or _

    s$ = "" Or _

    Dir$(File, vbNormal) = "" Then

    MsgBox ("Paramter stimmen nicht!")

    Exit Function

    End If

    f = FreeFile

    Open File For Binary Shared As #f

    L = LOF(f)

    'Anzahl der Durchläufe anhand der Dateigröße ermitteln

    p = L \ PS

    If L Mod PS <> 0 Then p = p + 1

    'Schleife starten

    For c = 1 To p

    n = Space$(PS)

    Get f, , n

    a = o & n

    i = InStr(1, a, s)

    If i <> 0 Then

    'Suchbegriff wurde im aktuellen Paket gefunden

    lc = 0

    Do

    i = InStr(i, a, s)

    If i <> 0 Then

    'Zeilenanfang suchen

    v = 1

    For j = i To 1 Step -1

    d = Mid$(a, j, 1)

    If InStr(1, tl, d) Then

    'gefunden

    v = j + 1

    Exit For

    End If

    Next j

    'Zeilenende suchen

    w = 0

    For j = i To Len(a)

    d = Mid$(a, j, 1)

    If InStr(1, tr, d) Then

    'gefunden

    w = j - 1

    Exit For

    End If

    Next j

    If w <> 0 Then

    'Zeile auschneiden und in einem Feld speichern

    'Hier könnten auch weitere Suchkriterien abge-

    'fragt werden.

    ZZ(UBound(ZZ)) = Mid$(a, v, w - v + 1)

    ReDim Preserve ZZ(0 To UBound(ZZ) + 1)

    lc = w

    End If

    i = w

    End If

    'Weiter schleifen, da der Suchbegriff im Paket ja

    'öfters als einmal auftauchen kann

    Loop Until i = 0

    If lc = 0 Then

    'Suchbegriff wurde im aktuellen Paket nicht ge-

    'funden. Daher ganzen String für die nächste Runde

    'speichern

    o = a

    Else

    'Ab Ende der zuletzt gefundenen Zeile des aktuel-

    'len Paketes für die nächste Runde speichern

    o = Mid$(a, lc)

    End If

    Else

    'Paket der aktuellen Runde speichern

    o = n

    End If

    Next c

    Close f

    If UBound(ZZ) > 0 Then FindTerm = True

    End Function

    Wie kann ich es mit diesem Code erreichen,dass NICHT mehr zwischen Groß-und KLeinschreibung unterschieden wird.

    2.In den Textdatein sind Pfade gespeichert.

    Bsp.:

    CD Nr. :1

    Kunde:maik

    Auftrag:webseite

    Erstellungsdatum:13.11.02

    Dateiendung:htm

    D:\

    D:\

    D:\video

    D:\video\Adobe Premiere Vorschaudateien

    D:\video\Adobe Premiere Vorschaudateien\krs-clips2.TMP

    D:\video\K1-7

    D:\video\K1-7\1.psd

    D:\video_alt

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

    CD Nr :2

    Kunde:Karl Mustermann

    Auftrag:Erstellen der Webseite für

    Erstellungsdatum:12.09.2001

    Dateiendung:html,htm,gif,jpeg

    D:\

    D:\

    D:\video

    D:\video\Adobe Premiere Vorschaudateien

    D:\video\Adobe Premiere Vorschaudateien\krs-clips2.TMP

    D:\video\K1-7

    D:\video_alt

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

    wenn ich jetzt nach z.B. den Namen "Karl Mustermann" suche,dann würde mir die Suche ausgeben: "Kunde:Karl Mustermann"

    Ich möchte aber das die Suche die "CD Nr:" noch mit ausgibt.

    Wie kann ich das realisieren.

    Ich weiß das dies sicherlich keine leichte Aufgabe ist.Aber ich hoffe hier kann mir trotzdem jemand helfen.

    Danke für die Mühe!

  10. Hallo,

    das hatte ich leider schon.Ich wollte eigentlich ein tutorial,das beim einlesen der FileListBox die Datein ohne die odner anzuklicken übernimmt.Ich muss eine datenbank für den inhalt von CD´s machen.Die CD soll mittels der DriveListBox eingelesen werden und dann gleich eer gesamte inhalt an die ListBox bzw FileListBox übergeben werden.Am besten noch mit Pfadangaben.

    Vielleicht kann mir jemand helfen...

    Danke

  11. Hallo,

    ich habe ein Problem.

    Ich habe ein DriveListBox und eine LisBox.

    Wenn ich in der DriveListBox z.B. auf das Laufwerk D:(CDROM)

    klicke,dann soll in der ListBox der gesamt Inhalt angezeigt werden.Zur Zeit bekomme ich nur die Ordner mit Unterordnern.Es sollen aber auch die Datein mit Dateiendung angezeigt werden in der ListBox. ACHSO ICH PROGRAMMIERE IN VB:

    ...Ich hoffe es kann mir jemand helfen...

    Danke

  12. Hallo,

    ich hab zwei kleine probleme.

    1. :confused:

    Ich habe eine ListBox in der die Ordner und Unterordner nach dem einlesen(z.B. von CD) angezeigt werden.Ich möchte aber nicht nur die Ordner und Unterordner angezeigt bekommen,sondern auch die Dateinamen+Dateiendung.Hab schon vieles versucht,aber ich bekomme das einfach nicht hin!

    2. :confused:

    Nachdem die Daten gespeichert wurden, soll man sie auch durchsuchen können,nach den Inhalt der TextBoxen,+Ordnern/Unterordner(werden als pfadname gespeichert).

    Oder auch nach den Dateiendungen.

    Ich denke mal das das gar nicht so einfach ist.

    Es wäre gut wenn du ein script dazu hast,d.h. ein fertiges projekt,damit ich mir erstmal angucken kann ob es das richtige ist!

  13. hallo,

    ich verwende VB als Programmiersprache.

    Ich hab zwei Probleme.

    1. Ich möchte eine DirList,eine FileListBox und fünf TextBoxen zusammen in einer txt Datei speichern.(die erste TextBox soll dazu noch der dateiname sein und immer wenn eine datei gespeichert wurde einen aufgezählt werden).

    In der FileListBox sind ja ur die Ordner und Unterordner mit enthalten,deswegen hab ich noch eineDirList angelegt.Kann man aber bei dem speichern aus der FileListBox alles auslesen (auch datein+format)?Es wäre aber gut,wenn er vorher frag wo er es speichern soll.

    2.Es soll dann auch noch eine suchroutine eingebaut werden.Es soll dann nur der Oberordner(wo alles gespeichert ist) durchsucht werden nach verschiedenen Daten[z.B. den Inhalt der Textboxen,oder nach Ordnern bzw. Dateiendungen(soll zusammen möglich sein)]

    Wie ihr also seht bin ich nicht gerade ein profi in VB.:D Ich bin gerade am erlernen und hab mir gleich viel vorgenommen.

    Ich sag schon mal Danke.

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...