关于通过VBA向access传输数据和显示access中的图片问题

captainvan

小弟做了一个关于纸盒参数化设计的东西，现在遇到一些问题：

1.如何通过这个窗口向access录入数据，求代码；（PIC 1）

2.如何在UserForm2的image1这个控件中显示access中的bitmap image（PIC 2 ，PIC 3）

captainvan

怎么传图片啊

captainvan

Private Sub CommandButton2_Click()
Dim control As control
For Each control In UserForm1.Controls
If TypeOf control Is TextBox Then
If control.Text = "" Then
MsgBox "参数不能为空，请重新输入！", vbCritical
Exit Sub
End If
End If
Next

On Error GoTo errHandle
With rsta
.AddNew
.Fields(0) = TextBox1.Text
.Fields(1) = TextBox2.Text
.Update
End With
Exit Sub

errHandle:
If Err.Number = -2147467259 Then
MsgBox "首先修改文本框中的数值，然后单击“添加”按钮，完成添加操作。", vbCritical
End If
Err.Clear

End Sub

这是我找的一个代码，不知道哪里错了

captainvan

captainvan

如果有愿意帮忙的，请到我的空间相册里看图片，真是不知道怎么添加图片附件，谢谢！！!