怎样将窗体内文本框的数据添加到ACCESS的数据库内

Question

用的data控件
没用过，还真不会

Answer 1

你确定数据库的表里有memony这个字段吗？

Answer 2

Form1.Data1.Recordset.Fields("memony") = Text5
将memony该成jyfw试试？

Answer 3

If Text1 = "" And Text5 = "" And Text2 = "" And Text3 = "" And Text4 = "" Then
        MsgBox "请将信息填写完整", 0, "提示"是不是这儿的问题，数据库里有没有设哪个字段为“非空”？你将and 变为or试试

Answer 4

以上方法,我都试了,都不行的,总是提示"添加数据时出错请从新添加"
即这个语句
err:
    MsgBox "添加数据时出错请从新添加", 0, "警告"

Answer 5

这样看行不行啊，方案一：你要么在表内再新建一个经营范围的字段名，然后通过数据连接把这个表内的数据作为窗体数据的数据源，这样你就可以在上面操作了；方案二：你要么把你的文本框改为组合框，然后再进入组合框内的属性打开数据在数据内的数据来源内输入你自己所要的数据，就可以了。
   目前，我也有一个ACCESS数据库的一个问题，不知道有哪位朋友可否帮我解答一下，我想把窗体界面的数据导入到一个新建的表内，我输了代码但是还是导入不了啊是哪个地方出错了。
Option Compare Database
Private Sub Combo1_AfterUpdata()
Me.Combo3.Requery
End Sub
Private Sub CmdCombo1_Click()End SubPrivate Sub CmdboOk_Click()
Dim sql  As StingIf IsNull(Me.Combo1) Then
MsgBox ("请输入部门!")
Exit Sub
End If
If IsNull(Me.Combo3) Then
MsgBox ("请输入员工姓名!")
Exit Sub
End Ifsql = "insert into 离职单 (部门,员工编号,离职日期,离职原因)"
sql = sql & "values (&Me.Combo1& & Me.Combo3& &Me.离职时间& &Me.Combo5&)"
DoCmd.RunSQL sqlsql = "update 员工档案 set 离职标志=yes,离厂日期=" & Me.离职时间 & "where  员工编号='" & Me.Combo3 & "'"
DoCmd.RunSQL sql
Me.Combo1 = Null
Me.Combo3 = Null
Me.Combo5 = NullMsgBox ("员工离职成功!")
End Sub
Private Sub CmdOk_Click()End Sub
Private Sub Command12_Click()
On Error GoTo Err_Command12_Click
    DoCmd.CloseExit_Command12_Click:
    Exit SubErr_Command12_Click:
    MsgBox Err.Description
    Resume Exit_Command12_Click
    
End Sub