Beiträge von BettieZ

Der Inhalt kann nicht angezeigt werden, da du keine Berechtigung hast, diesen Inhalt zu sehen. Hier die Dateien, müsste einige löschen da sie zu groß war

Danke für deine Hilfe, steh aber voll auf dem Schlauch, wenn du mir weiter helfen könntest, wäre ich dir dankbar. kann dir die aufgabe auch per E-Mail schicken

HI Leute, könnte mir jemand bei DBA06B Aufgabe 6 Helfen bekomme den Code nicht hin,Es geht darum, eine Routine zu schreiben, die Fehler bei "Nichts gefunden" abfängt. Hier zur Sicherheit der Code. Danke euch.

Private Sub cmdSuch_Click()
   Dim Zähler As Integer
     Dim pSQL As String
     Dim varSuchteile As Variant
     Dim Suchstring As String


     varSuchteile = Split(Me.txtSuchbegriff, " ")
     'Suchstring aufbauen, der nachher an den SELECT-String angehängt wird
     If Me.chkAnfangSuchen = True Then
         'Bei Anfangssuche ist nur 1 Suchbegriff erlaubt
         If UBound(varSuchteile) > 0 Then
             MsgBox "Bei der Suche am Anfang dürfen Sie nur einen Suchbegriff eingeben.", vbInformation, "Kann nicht ausführen..."
             Exit Sub
         End If
         'Suchstring für Anfangssuche vorbereiten
         Suchstring = " WHERE Titel LIKE '" & varSuchteile(0) & "%'"
       Else
         'Suchstring initialisieren
         Suchstring = " WHERE Titel LIKE '%"
         'Schleife zum Abarbeiten der Suchbegriffe
         For Zähler = 0 To UBound(varSuchteile)
             Suchstring = Suchstring & varSuchteile(Zähler) & "%'"
             'Wenn es weitere Suchbergriffe gibt: AND anhängen
             If Zähler < UBound(varSuchteile) Then
                 Suchstring = Suchstring & " AND Titel LIKE '%"
             End If
         Next Zähler
     End If
     'Original-SQL-Anweisung kopieren
     pSQL = xSQL
     pSQL = pSQL & Suchstring

    'Altes Recordset schließen
    rs.Close

    'Neues Recordset öffnen
    rs.Open pSQL, Conn, adOpenDynamic, adLockOptimistic, adCmdText

    'Recordset dem Formular wieder zuweisen
    Set Me.Recordset = rs

    GrößenSummieren


 End Sub

Bekomme aber entweder die "BOF/EOF Fehlermeldung

hallo Leute, könnte mir jemand evtl. Bei VBDN13C helfen? Komme mit dem Heft gar nicht klar. meine Email Adresse Bettina.z@hotmail.de
Vielen dank

Hallo Leute habe folgendes Problem bei VBDN4C ich soll 90999 sekunden in Stunden, Minuten,Sekunden umrechnen bei meinem Code kommt aber 25Std.39Min 0Sek herraus.
Es müssen aber 25 Std. 16 Min. 39Sek rauskommen.

Weiß jetzt nicht ob ich hier meinen Code Posten darf.
Wäre aber für jede hilfe/Tipps dankbar
MFG Bettie

Hat sicher erledigt hab es selber raus gefunden^^

Hallo Leute bräuchte Hilfe bzw Tipps für die folgende Aufgabe wäre für jeden Tipp dankbar
Am folgenden Code ist nicht alles richtig. Unterstreichen Sie die Syntaxfehler dort wo sie erstmals auftreten und benennen Sie sie kurz.
Ich weiß das a = Textbox1 schon mal nicht stimmt oder?
Dim a As Integer
a = TextBox1
If a > 50 Then
BackColor = Color.Red Else
BackColor = Color.Green
End If
Do
a = a + 10
Until a > 100
Loop
Else
a = a + 10
Loop While a <= 100
End if
End Sub

Verstehe im Moment einfach nicht wie ich die benennen soll, steh voll auf dem Schlauch
Danke im vorraus

Hallo Leute
Hoffe Ihr könnt mir helfen, stehe auf dem Schlauch:o. Habe das Heft jetzt so oft durchgemacht das ich die einfachen fragen nicht mehr beantworten kann. Ich hänge bei folgender Einsendeaufgabenfrage fest. Welches Menü bietet ihnen alle Fenster der Entwicklungsumgebung an, mit denen sie bis jetzt gearbeitet haben? Wäre für jeden Tipp dankbar, das Ich wieder klar denken kann und nicht mehr auf dem schlauch stehe
Wünsche euch noch einen schönen Tag