Question

VB缺少函数或者变量 急！求大神

图
附上代码
Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text12.Text = "" Or Text13.Text = "" Or Text14.Text = "" Or Text15.Text = "" Or Text16.Text = "" Then
MsgBox "填写的信息不完整", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
With Datal
.Recordset.AddNew
.Recordset.Fields("款号") = Text1.Text
.Recordset.Fields("品号") = Text2.Text
.Recordset.Fields("颜色") = Text3.Text
.Recordset.Fields("色号") = Text4.Text
.Recordset.Fields("S") = Text5.Text
.Recordset.Fields("M") = Text6.Text
.Recordset.Fields("L") = Text7.Text
.Recordset.Fields("XL") = Text8.Text
.Recordset.Fields("XXL") = Text9.Text
.Recordset.Fields("XXL") = Text11.Text
.Recordset.Fields("库存数") = Text12.Text
.Recordset.Fields("价格") = Text13.Text
.Recordset.Fields("分类") = Text14.Text
.Recordset.Fields("面料") = Text15.Text
.Recordset.Fields("季节") = Text16.Text
.Recordset.Fields("年份") = Text10.Text
Datal Refresh
Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text12.Text = "" Or Text13.Text = "" Or Text14.Text = "" Or Text15.Text = "" Or Text16.Text = ""
Text1.SetFocus
End With
End Sub
Private Sub Command2_Click()
Unload Me
Form2.Show
End Sub

Answer 1

Datal.Refresh 刷新嘛，少了个点。
我看也不用了，应该是：.Recordset.Update

Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text12.Text = "" Or Text13.Text = "" Or Text14.Text = "" Or Text15.Text = "" Or Text16.Text = ""
这串也不对，文本框清空，不要有Or。把Or替换为冒号，或一行一句赋值语句也可。

Answer 2

Datal Refresh
改为
.Refresh