求教利用窗体及代码往空表中添加记录时产生空记录的问题？

superatubo

利用附件中的“专柜信息输入窗体”向“专柜表”中增加记录，但只要“专柜表”是空表，里面没有记录时添加记录则一定会增加一条空的记录，及一条正确输入的记录，如何才能往实现空表中新增时不出现这条空的记录，求教了！！不胜感谢！！

Henry D. Sy

1. Private Sub cmd_save_Click()
   
2.     Dim strSQL As String
   
3.     Dim ctl As Control
   
4.     For Each ctl In Me.Controls
   
5.         If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
   
6.             If IsNull(ctl.Value) Then
   
7.                 MsgBox "enter the data first in " & ctl.Name
   
8.                 ctl.SetFocus
   
9.                 Exit Sub
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     strSQL = "insert into 专柜(专柜名称,专柜简称,部门id)values ('" & _
    
14.              Me.txt_专柜名称 & "','" & Me.txt_专柜简称 & "'," & Me.Cbo_所属部门 & ")"
    
15.     CurrentDb.Execute strSQL
    
16.     MsgBox "finished"
    
17. End Sub

复制代码

superatubo

好象还是会产生空记录的

Henry D. Sy

不会吧

superatubo

我自己解决了只要，不使用按纽产生的刷新代码，用“Me.专柜输入子窗体.Requery”就可以解决空记录的问题

Henry D. Sy

好象还是会产生空记录的
superatubo 发表于 2009-4-19 20:02

附件都没有下载，怎么知道不行。

dragon2476

有用

xylain

为什么我回出现溢出堆栈空间的提示呢?

附上代码

Private Sub add_Click()
On Error GoTo Err_add_Click

    '判断数据输入完整性  空格不等于是null, 用户有可能只输入空格，而没有输入数据，所以要用isnull()和len()函数一起判断
    If IsNull(Me.出车日期) Or Len(Me.出车时间) = 0 Or IsNull(Me.车牌号码) Or Len(Me.驾驶员) = 0 Or IsNull(Me.费用小计) Or Len(Me.加油费) = 0 Or _
       IsNull(Me.所属中心) Or Len(Me.用车人) = 0 Or IsNull(Me.用车事由) Or Len(Me.运行公里) = 0 Then
        MsgBox "数据输入不完整！", 16, "错误提示"
        Me.驾驶员.SetFocus
        Exit Sub
    End If

   

'保存数据
    Dim sql As String     '定义追加记录SQL语句
    sql = "insert into 出车记录表(出车日期,出车时间,车牌号码,驾驶员,所属中心,用车人,用车事由,公里起数,公里止数,运行公里,加油量,油料价格,加油费,过路过桥费,其他费用,费用小计,备注) "
    sql = sql & "values('" & Me.出车日期 & "','" & Me.出车时间 & "','" & Me.车牌号码 & "','" & Me.驾驶员 & "','" & Me.所属中心 & "','" & Me.用车人 & "','" & Me.用车事由 & "','" & Me.公里起数 & "','" & Me.公里止数 & "','" & Me.运行公里 & "','" & Me.加油量 & "','" & Me.油料价格 & "','" & Me.加油费 & "','" & Me.过路过桥费 & "','" & Me.其他费用 & "','" & Me.费用小计 & "','" & Me.备注 & "')"
    DoCmd.SetWarnings False    '关闭系统提示
    DoCmd.RunSQL sql        '运行追加查询
    DoCmd.SetWarnings True   '打开系统提示
    Call add_Click           '清空控件
   

Exit_add_Click:
    Exit Sub

Err_add_Click:
    MsgBox Err.Description
    Resume Exit_add_Click
   
End Sub