版主、各位先生：你们好!
我用VB做的程序，遇到一个问题就是，在修改窗体内表格数据时，不能修改和保存总提示我“定义了过多字段”。如果将access数据库内，该表格的字段减少到80个左右时，就能修改保存，100个字段以上就出现如上“定义了过多字段”的错误提示。可是我现在的100多个字段都是有用的，不能减少呀！真是烦人，如何解决哪？有没有其他简便方法哪？请诸位帮忙，我衷心地感谢您们了！谢了！我的编码如下：
－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub cmdmodify_Click()
On Error GoTo modifyerror
Text1.Enabled = False
If Trim(Text1.Text) = "" Then
MsgBox 编号不能为空", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
End If
rs_zhugang.MoveFirst
Dim i As Integer
For i = 0 To rs_zhugang.RecordCount - 1
If Trim(rs_zhugang.Fields(0)) = Trim(Text1.Text) Then '
rs_zhugang.Fields(1) = Combo1.Text
rs_zhugang.Fields(2) = DTPicker1.value
rs_zhugang.Fields(3) = Combo2.Text
If Trim(Text2.Text) = "" Then
rs_zhugang.Fields(4) = Null
Else
rs_zhugang.Fields(4) = Text2.Text
End If

If Trim(Text3.Text) = "" Then
rs_zhugang.Fields(5) = Null
Else
rs_zhugang.Fields(5) = Text3.Text
End If

If Trim(Text4.Text) = "" Then
rs_zhugang.Fields(6) = Null
Else
rs_zhugang.Fields(6) = Text4.Text
End If


If Trim(Text5.Text) = "" Then
rs_zhugang.Fields(7) = Null
Else
rs_zhugang.Fields(7) = Text5.Text
End If

If Trim(Text6.Text) = "" Then
rs_zhugang.Fields(8) = Null
Else
rs_zhugang.Fields(8) = Text6.Text
End If
If Trim(Text7.Text) = "" Then
rs_zhugang.Fields(9) = Null
Else
rs_zhugang.Fields(9) = Text7.Text
End If
If Trim(Text8.Text) = "" Then
rs_zhugang.Fields(10) = Null
Else
rs_zhugang.Fields(10) = Text8.Text
End If
。
。
。

If Trim(Text131.Text) = "" Then '
rs_zhugang.Fields(148) = Null
Else
rs_zhugang.Fields(148) = Text131.Text
End If
rs_zhugang.Update

MsgBox "修改成功¡", vbOKOnly + vbExclamation, "лл"
With grdLoupan
.Row = getrow
.Col = 0
.Text = Text1.Text
.Col = 1
.Text = Combo1.Text
.Col = 2
.Text = DTPicker1.value
.Col = 3
.Text = Combo2.Text
.Col = 4
.Text = Text2.Text
.Col = 5
.Text = Text3.Text
.Col = 6
.Text = Text4.Text
.Col = 7
.Text = Text5.Text
.Col = 8
.Text = Text6.Text
.Col = 9
.Text = Text7.Text
.Col = 10
.Text = Text8.Text
。
。
。
。
.Col = 148
.Text = Text131.Text
End With
Exit Sub
End If
rs_zhugang.MoveNext
Next i
modifyerror:
MsgBox Err.Description
End Sub

我倒.你不是要用户一次过填写100多个字段吧..

purana你好！谢谢答复
但是那是有计算关系的，用户填写只填入2个text即可……。

可以分成两个表啊，知道什么是关系表吧？很少有一个表里放100多个字段的，
表与表之间用关键字段关联就可以了，不然以后你维护起来累死你

kfp_kaka你好！
高见呀！但我还没用过关联表哪，ACCESS也能关联吗？

kfp_kaka你好！
高见呀！但我还没用过关联表哪，ACCESS也能关联吗？