Søgefunktion

Hej siaa!

Sådan kan du tilføje, slette, se antal poster og slette en post.

-Webcrawler

Enjoy!

\'Tilføj:
Private Sub Command1_Click()
Data1.Recordset.AddNew
End sub

\'Slet:
Private Sub Command1_Click()
  If editpost Then Exit Sub
  If Data1.Recordset.RecordCount = 1 Then
      \'Beep
      MsgBox (\"Sidste post kan ikke slettes!\"), vbInformation, \"titel\"
      Exit Sub
  End If
  If MsgBox(\"Er du sikker på at du vil slette posten?\" & Chr$(10) & Chr$(10) & Data1.Recordset!navn, 292) <> 6 Then
      Exit Sub
  End If
  Data1.Recordset.Delete
  Data1.Recordset.MoveNext
End sub

\'Antal poster:
Private Sub Command1_Click()
Form1.Data1.Recordset.MoveLast
Msgbox \"Du har \" & Form1.Data1.Recordset.RecordCount & \" post(er) i din base.\"
End Sub

\'Søge en post:
Private Sub Command1_Click()
Dim soegenavn As String
soegenavn = InputBox(\"Skriv navn på den person du søger.\", \"Søg efter post\")
Form1.Data1.Recordset.MoveFirst
Do While Form1.Data1.Recordset.EOF = False
    If Form1.Data1.Recordset(\"række-navn\") = soegenavn Then
    Unload Me
        Exit Sub
    End If
Form1.Data1.Recordset.MoveNext
Loop
MsgBox (\"Posten findes ikke i basen!\"), vbInformation, \"Søg post\"
End Sub

Søge Funktionen skal den være sådan at den søger efter bestemte ord eller er det sådan som jubii har det hvor de smækker det man søger efter manuelt ind i systemet ?????