Вопрос по rs.update

[dimalib]

Привет. В общем я начинающий и у меня вопрос такой.
Можно ли заменит эту писанину чем то по проще?
rs.Edit
rs("n") = N.Text
rs("ns") = NS.Text
rs("k") = K.Text
rs("kp") = KP.Text
rs("pa") = PA.Text
rs("tp") = TP.Text
rs("kco") = KCO.Text
rs("01-1") = Text1.Text
rs("01-2") = Text2.Text
rs("01-3") = Text3.Text
rs("01-4") = Text4.Text
rs("01-5") = Text5.Text
rs("01-6") = Text6.Text
rs("01-7") = Text7.Text
rs("01-8") = Text8.Text
rs("01-9") = Text9.Text
rs("01-10") = Text10.Text
rs.Updaters.Bookmark = rs.LastModified
MsgBox "Запись сохранена ", vbInformation, Caption

[RayShade]

Предпложим что сделать можно так:

Код: Выделить всё

for each ctl in me.controls
if typeof ctl is textbox then
select case len(ctl.name)
case 5,6
rs("01-" & right(st, len(ctl.name)-4)) = ctl.text
case else
rs(ctl.name)=ctl.text
end select
end if
next ctl


Оговорюсь, что данный пример предполагает что нету других текстбоксов на форме. Если есть - то придется ввобдить дополнтельные ограничения.

[alibek]

Я бы предложил сделать следующим образом.
В каждом контроле, в котором вводятся данные в БД, заполнить свойство Tag в виде .Tag="fld:FieldName" (например, N.Tag="fld:N").
Затем использовать такой код:

Код: Выделить всё

Dim I As Long, F As String, V As Variant
rs.Edit
For I = 0 To Controls.Count-1
  If TypeOf Controls(I) Is TextBox Then
    F = Controls(I).Tag
    V = Controls(I).Text
  ElseIf TypeOf Controls(I) Is ComboBox Then
    F = Controls(I).Tag
    V = Controls(I).Text
  Else
    F = vbNullString
    V = Empty
  End If
  If Len(F) > 0 Then
    If Left$(F, 4) = "fld: " Then
      F = Mid$(F, 5)
    Else
      F = vbNullString
      V = Empty
    End If
  End If
  If Len(F) > 0 Then rs.Fields(F).Value = V
Next I
rs.Update