Steg 5

Lite mer kod behövs för ett mer komplett program

Nedan kommer kodfragment för några olika funktioner i programmet. De är inte helt optimala, men får duga för tillfället.

1. Radering av nuvarande post
   
   RecordsetNamn.Delete
   RecordsetNamn.Update
   RecordsetNamn.MovePrevious
   
   
2. Tillsättning av ny post
   
   RecordsetNamn.AddNew
   RecordsetNamn.Update
   
   

Dessutom vill jag ge er några extrafunktioner som jag anser kan behövas. Vad de kan behövas till överlåter jag för tillfället åt er att fundera över...

För tillfället vill jag att ni kopierar in dessa procedurer i ert projekt

1. Private Sub FixaTextBoxarna(ByVal bEnable As Boolean)
      For Each ctrl In Controls
         If TypeOf ctrl Is TextBox And Left(ctrl.Name, 4) = "txtE" Then
            ctrl.Locked = bEnable
         End If
      Next
   End Sub
   
   
2. Private Sub FixaNavKnapparna(ByVal bEnable As Boolean)
      For Each ctrl In cmdNavigera
         ctrl.Enabled = bEnable
      Next
   End Sub
   
   
3. Private Sub FixaGulaTextBoxar(ByVal bGul As Boolean)
      For Each ctrl In Controls
         If TypeOf ctrl Is TextBox And Left(ctrl.Name, 4) = "txtE" Then
            If bGul Then
               ctrl.BackColor = RGB(255,255,128)
            Else
               ctrl.BackColor = RGB(255,255,255)
            End IF
         End If
      Next
   End Sub