Smilla

Hallo zusammen, bin dabei ein "Wer wird Millionär" Spiel zu programmieren in VB6. Die Fragen liegen in einer Access Datenbank. Wie kann ich beides miteinander verknüpfen um von meiner VB6 Anwendung auf die Fragen in der Tabelle zugreifen zu können? Danke schonmal!

Danke für deine Antwort! An erster Stelle steht immer eine Adresse. Ist ein Geschäftsdokument. Meistens eine Rechnung. Aber die Adresse lautet ja immer anders, das ist das Problem Ist eine .doc Datei.

Wie kann ich die Stelle im Dokument finden an der zum ersten mal etwas geschrieben steht? Direkt oberhalb davon soll dann etwas hingeschrieben werden.

Hallo zusammen, bräuchte mal eure Hilfe. Wie kann ich in meine Userform ein Kalender Steuerelement einbinden? Also so einen kleinen Kalender wie es bei Outlook Terminen auch gibt. Hoffe mir kann jemand helfen, Danke!

Ich gebs zu ich schreibe nicht mit 10 Fingern. hab es in der Schule mal gelernt, aber nie wieder angewendet. Ich schreibe mit 2 Fingern, Leertaste mit dem Daumen. Das geht bei mir blitzschnell und komplett blind. Aus diesem Grund sehe ich bei mir auch keinen Grund zum 10Finger System umzusteigen, trotz da ich im IT Bereich tätig bin

Habe mir jetzt ein Outlook Formlular erstellt. Jetzt sollte aber beim verschicken, sowohl das Formular als auch die Inhalte mit verschickt werden. Das klappt aber nicht. Hab es getestet und es kommt nur eine ganz leere eMail an. Wer kann mir helfen? Müssen beide Seiten mein Formular haben? Wäre ja dann irgendwie sinnlos oder? Danke schonmal

Also ich hab jetzt einfach das VBA umgangen und eine eMail Vorlage erstellt die über einen Button im Menü aufrufbar ist. Wie es geht steht hier ganz unten (falls von Interesse) Jetzt soll aber an einer Stelle in der Mail ein Haken oder so ein Punkt gesetzt werden, also eine Auswahl zwischen zwei Dingen. Wie bringe ich das nun in die Mail?:confused:

Alternativ könnte ich das mit einer eMailvorlage machen (sofern es sowas gibt), so wie es auch Wordvorlagen gibt. Wenn mir da jemand eine Erklärung hat wäre ich auch sehr dankbar

Hallo zusammen, habe ein Problem... geht um VBA. Und zwar soll beim Click auf einen Button in der Symbolleiste eine neue eMail mit einem bestimmten Text geöffnet werden. Finde leider im Internet nichts passendes dazu, habe schon gegoogelt! Also das mit dem Button dürfte nicht das größte Problem werden, erstmal das, das in eine neue eMail der Text geschrieben wird... Wär super wenn mir jemand helfen kann...

Es geht um folgende Aufgabenstellung: Ich hab eine Inputbox in die wird die Jahreszahl eingegeben. Das Ergebnis soll in einer MSGBOX ausgegeben werden. Nur wie muss ich die Berechnungen machen? In If-Abfragen verpackt, das ist mir klar, aber sonst? Die Jahreszahl steht bei mir in der Variable "jahr" drinnen. Kann ich dann einfach jahr / 4 rechnen? Eher nicht oder, wegen den unterschiedlichen Datentypen denk ich mal... Vorallem wie unterscheide ich obs Teilbar ist oder nicht? Weil wenn es sogesehen nicht teilbar ist, bekomme ich ja einen Rest... bzw. eine Kommazahl... Hoffe mir kann jemand weiterhelfen

Ich mach das einfach so, bei Krankheit schreib ich einfach "Krank" ins Berichtsheft und bei Urlaub eben "Urlaub". Und bei Feiertag das selbe. Wenn ich Berufschule habe schreib ich die Fächer und was wir gemacht haben ins Berichtsheft.

Bei uns meldet man sich im Betrieb krank, sagt eben das man Berufschule hat und die entschuldigen einen dann auch bei der Berufschule

Ich hatte glaub nen Schnitt von 2,8. Hab direkt nach der Realschule hier meine Ausbildung als FIAE angefangen Hab hier auch vorher noch n einwöchiges Praktikum gemacht um zu zeigen was ich kann, kurz drauf bekam ich dann die Zusage! Ich meine Noten sind nicht alles

Ich bin grad dabei ein Tool zu erstellen mit dem MP3 Dateien umbenannt werden können. Dazu gibt es verschiedene Optionen. Eine Option ist eben die führenden Zahlen zu entfernen, also wenn die datei 0815hallo.mp3 heißt z.b. dann soll eben vorne das 0815 entfernt werden und die datei nur noch hallo mp3 heißen Nur wie prüfe ich ab was Zahl und was buchstabe ist und außerdem wie entferne ich die Zahlen dann? :confused: Danke schonmal für eure Hilfe :-)

Hat sich jetzt erledigt. Hab meine Aufgabe fertig gestellt

Ja,danke! Hat mir sehr geholfen! Kann ich mit der Linefunktion irgendwie auch einen Kreis darstellen?:confused:

Hallo zusammen, ich wollte ein bisschen mit der Line Funktion rumexperimentieren. Könnt ihr mir ein paar Anhaltspunkte? Wie geht das mit den Koordinaten? Wie und von wo an wird gezählt? Finde bisher über Google nix sonderlich brauchbares

Hab eben nochmal auf das zurück gegriffen, ja es funktioniert!

Meinst du Select Case?

Habe das Problem jetzt mit einer Schleife gelöst! Funktioniert auch. Nur muss ich noch machen das die Fehleranzahl auf 11 Begrenzt ist, bzw. ab dem 11. Fehler wars das Hab nur grad kein Plan wie ich das machen könnt. Genauso ist das Spiel ja auch zu Ende wenn das Wort erraten wurde. Private Sub fehlerzahl_erhöhen() anzahl_fehler = anzahl_fehler + 1 txt_fehler.Text = CStr(anzahl_fehler) + " Fehler" If anzahl_fehler = 1 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\1.bmp") ElseIf anzahl_fehler = 2 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\2.bmp") ElseIf anzahl_fehler = 3 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\3.bmp") ElseIf anzahl_fehler = 4 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\4.bmp") ElseIf anzahl_fehler = 5 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\5.bmp") ElseIf anzahl_fehler = 6 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\6.bmp") ElseIf anzahl_fehler = 7 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\7.bmp") ElseIf anzahl_fehler = 8 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\8.bmp") ElseIf anzahl_fehler = 9 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\9.bmp") ElseIf anzahl_fehler = 10 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\10.bmp") ElseIf anzahl_fehler = 11 Then pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\11.bmp") End If End Sub

Im Formular hab ich ja bei der Eigenschaft Picture das erste Bild also 0.bmp eingestellt. Mit folgender Zeile kann man ein anderes Bild laden, klappt auch pic_1.Picture = LoadPicture("U:\VB 6\Hangman\Bilder\1.bmp") Allerdings muss ich ja bei einem weiteren Fehler ein weiteres neues Bild laden... :confused:

Danke @ShaaitanTX. So ähnlich habe ich es jetzt auch gelöst. Problem ist nur jetzt, das sich das Bild ja noch ändern muss. Wie mache ich das? Momentan ist in der Picture Box Pic1 das Bild 0.bmp drin. Jetzt soll ich das erhöhen.... die folgenden Bilder heißen pic1.bmp, pic2.bmp usw. Kann ich das einfach so schreiben: Pic_1.Picture = pic1.bmp

Kannst du mir das mit der Boolean Variable näher erklären? Das sagt mir mommentan gar nix

Neuer Status: Wenn ein richtiger Buchstabe eingegeben wird, wird das Strichle an der Richtigen Position durch diesen ersetzt. Jetzt gehts um das, was passiert wenn der Buchstabe falsch ist und im ganzen Wort nicht vorkommt. Dann soll das Bild geändert werden und in einer Weiteren Textbox soll die Anzahl der Fehler erhöht werden, aber nur wenn im GANZEN Wort keine Übereinstimmung gefunden wurde. Ich komm da grad einfach nicht weiter... Private Sub Suchwort_prüfen(zeichen As String) For i = 0 To Len(wort) - 1 If zielarray(i) = zeichen Then 'MsgBox ("Buchstabe gefunden") anzeigearray(i) = zeichen Anzeigearray_ausgeben Else 'MsgBox ("Buchstabe nicht gefunden") fehler_erhöhen End If Next End Sub Private Sub fehler_erhöhen() End Sub Was muss ich in die Sub "fehler_erhöhen" eintragen?

@Klotzkopp, die Schleife läuft ja so oft durch das Array wie das Wort Buchstaben hat. Und bei jedem Durchlauf, nach jedem Buchstaben also wird eine MsgBox ausgegeben (Die MsgBox diehnt mommentan noch der Kontrolle, wird später natürlich ersetzt). Verständlich? Es hat so ähnlich auch funktioniert, dann ist meine Datei aber bei einem Serverumzug verschütt gegangen und ich musste nochmal von vorn beginnen. Ich war vorher auch schonmal so weit, da hats funktioniert mit den Message Boxen. Habs eben nochmal zurück gesetzt, jetzt klappts, bei gefundenem Buchstaben wird die MsgBox "Buchstabe gefunden" Ausgegeben. Private Sub Suchwort_prüfen(zeichen As String) For i = 0 To Len(wort) - 1 If zielarray(i) = zeichen Then MsgBox ("Buchstabe gefunden") Else MsgBox ("Buchstabe nicht gefunden") End If Next End Sub Jetzt soll aber bei gefundenem Buchstaben nicht mehr die MSGBox ausgegeben werden, sondern im entsprechenden Array soll das entsprechende Stichle gegen den Buchstaben ersetzt werden. Wie mach ich das??