动态控件 text的问题
我在form_load 中创建了X这个text,但是在将x.text写入数据库时发生无法找到控件的错误,帮帮忙,帮我看看吧~
Private Sub Command1_Click()
Dim dbfilename As String
Dim strsql As String
Dim rs2 As ADODB.Recordset
Dim ConnectString As String
Dim i As Integer
Dim txtsql As String
Set conn1 = New ADODB.Connection
dbfilename = App.Path & "\data\data.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn1.Open ConnectString
Set rs1 = New ADODB.Recordset
strsql = "select * from lab"
rs1.Open strsql, conn1, 1, 2
Set rs2 = conn1.Execute("select [lab1] from lab where [lab1]='" & Text1.Text & "'")
If rs2.BOF And rs2.EOF Then
rs1.AddNew
rs1.Fields("lab1") = Trim(Text1.Text)
rs1.Fields("lab2") = Trim(x.Text)
rs1.Update
MsgBox "新添加的体检项目已经设置成功", vbInformation, "成功"
Else
MsgBox "对不起,不允许设置2次以上相同的字段,请检查后重新输入", vbCritical, "警告"
End If
'关闭并释放数据对象
rs1.Close
rs2.Close
Set rs1 = Nothing
Set rs2 = Nothing
conn1.Close
Set conn1 = Nothing
End Sub
Private Sub Form_Load()
Set x = Controls.add("VB.textbox", "x")
With x
.Visible = True
.Width = 2000
.Text = Me.Caption
.Top = 1000
.Left = 1000
End With
End Sub