Källkoden för /anders.enges/ado/adovb7.asp

---

<!--#include file="../inc/navstuff.asp" -->
<p>Lite mer kod behövs för ett mer komplett program</p>
<p>Nedan kommer kodfragment för några olika funktioner i programmet. De är inte helt optimala, men får duga för tillfället.</p>
<ol>
<li>Radering av nuvarande post<br /><br />
     <font color="maroon"><i>RecordsetNamn</i></font>.Delete<br />
     <font color="maroon"><i>RecordsetNamn</i></font>.Update<br />
     <font color="maroon"><i>RecordsetNamn</i></font>.MovePrevious<br /><br /></li>
<li>Tillsättning av ny post<br /><br />
      <font color="maroon"><i>RecordsetNamn</i></font>.AddNew<br />
     <font color="maroon"><i>RecordsetNamn</i></font>.Update<br /><br /></li>
</ol>
<p>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...</p>
<p>För tillfället vill jag att ni kopierar in dessa procedurer i ert projekt</p>
<ol>
<li>Private Sub FixaTextBoxarna(ByVal bEnable As Boolean)<br />
   For Each ctrl In Controls<br />
      If TypeOf ctrl Is TextBox And Left(ctrl.Name, 4) = "txtE" Then<br />
         ctrl.Locked = bEnable<br />
      End If<br />
   Next<br />
End Sub<br /><br /></li>

<li>Private Sub FixaNavKnapparna(ByVal bEnable As Boolean)<br />
   For Each ctrl In cmdNavigera<br />
      ctrl.Enabled = bEnable<br />
   Next<br />
End Sub<br /><br /></li>

<li>Private Sub FixaGulaTextBoxar(ByVal bGul As Boolean)<br />
   For Each ctrl In Controls<br />
      If TypeOf ctrl Is TextBox And Left(ctrl.Name, 4) = "txtE" Then<br />
         If bGul Then<br />
            ctrl.BackColor = RGB(255,255,128)<br />
         Else<br />
            ctrl.BackColor = RGB(255,255,255)<br />
         End IF<br />
      End If<br />
   Next<br />
End Sub<br /><br /></li>
</ol>
<!--#include file="../inc/footer.asp" -->