Agent_A

Alles klar werde es mal probieren.

Vielen Dank erst mal

Gruss Agent

Hallo,

ich habe hier ein kleines Problem mit meinem Quellcode, in Bezug auf den "Suchen" String. Die Daten werden im Direktfenster angezeigt, aber nur wenn ich "Suchen" durch den Namen ersetzet.

Ich glaube ich habe den String irgendwie falsch zusammen gesetzt. Oder was weiss ich.

Bin noch ein Frischling was Programmieren angeht.

Vielen Dank im Vorab für die Hilfe

Gruss Agent

**********************************************

Private Sub cmdSuchen_Click()

Dim Suchen$, Prompt$

Dim rst As New ADODB.Recordset

Dim Conn As ADODB.Connection

Dim Abfrage$

Prompt = "Geben Sie den zu suchenden Begriff ein."

Suchen = InputBox(Prompt, "Suchfunktion")

If Suchen = "" Then

MsgBox "Geben Sie den Begriff erneut ein", vbInformation, "Suchen"

End If

Set Conn = New ADODB.Connection

With Conn

.ConnectionString = "DSN=VB_Eigene;"

.Open

End With

rst.Open "SELECT * From tblKundendaten", Conn, adOpenStatic

Do Until rst.EOF

rst.Find "Nachname like '" & Suchen & ""

If Not rst.EOF Then

Debug.Print rst!Nachname

rst.MoveNext

End If

Loop

rst.Close

Conn.Close

End Sub

Werde es mir mal anschauen::OD

Hi Leidensgenossen

Bin gerade am erstellen meiner Dokumentation für das IHK Abschlussprojekt. Nun weiss ich nicht so recht wie ich das ganze strukturieren soll:confused:. Bevor ich da irgend ein Bullshit bau, meine Frage:

Hat jemand eine gut Vorlage oder einen Link wo ich mir eine runterziehen kann?

Haben es zwar in der Schule des öfteren gemacht aber eine von der IHK wäre mir doch lieber.

Wäre für jede Hilfe dankbar!