Steg 2

Tema:
Navigering och validering

Navigering

Tag fram formen i ADO programmet och dubbelklicka på någon av knapparna i formen

Skriv in följande kod för navigeringsknapparnas cmdNavigera_Click(Index As Integer). Observera att samma kod används för alla fyra knapparna eftersom dessa bildar en "Control Array"

Select Case Index
    ' Tryckte på första knappen
    Case 0
        RS.MoveFirst
    ' Tryckte på andra knappen
    Case 1
        ' Prova gå bakåt
        RS.MovePrevious
        ' Gick det ??
        If RS.BOF Then
            ' Gå till första
            Beep
            RS.MoveFirst
        End If
    ' Tryckte på tredje knappen
    Case 2
        RS.MoveNext
        If RS.EOF Then
            Beep
            RS.MoveLast
        End If
    ' Tryckte på fjärde knappen
    Case 3
        RS.MoveLast
End Select
lblStatus.Caption = "Pos nummer : " & RS.AbsolutePosition

Prova genom att:

1. Bläddra fram och tillbaka. Prova alla knapparna
   
   
2. Ändra på texten i den första textboxen. Bäddra sedan framåt och sedan tillbaka till den post du ändrade
   
   

Validering av data

I VB:s editor väljer du objektet txtEttDatum och dess händelse Validate

Du får då händelseproceduren Private Sub txtEttDatum_Validate(Cancel As Boolean).

I denna skriver du in följande kod:

If Not IsDate(txtEttDatum) Then
    Beep
    MsgBox "Inte ett datum", vbInformation
    ' Fortsätt inte
    Cancel = True
End If

Prova genom att skriva in ett ogiltigt datum i datumfältet