求教利用窗體及代碼往空表中添加記錄時產(chǎn)生空記錄的問題？

superatubo

利用附件中的“專柜信息輸入窗體”向“專柜表”中增加記錄，但只要“專柜表”是空表，里面沒有記錄時添加記錄則一定會增加一條空的記錄，及一條正確輸入的記錄，如何才能往實現(xiàn)空表中新增時不出現(xiàn)這條空的記錄，求教了�。〔粍俑兄x��！

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

復(fù)制代碼

superatubo

好象還是會產(chǎn)生空記錄的

Henry D. Sy

不會吧

superatubo

我自己解決了只要，不使用按紐產(chǎn)生的刷新代碼，用“Me.專柜輸入子窗體.Requery”就可以解決空記錄的問題

Henry D. Sy

好象還是會產(chǎn)生空記錄的
superatubo 發(fā)表于 2009-4-19 20:02

附件都沒有下載，怎么知道不行。

dragon2476

有用

xylain

為什么我回出現(xiàn)溢出堆�？臻g的提示呢?

附上代碼

Private Sub add_Click()
On Error GoTo Err_add_Click

    '判斷數(shù)據(jù)輸入完整性  空格不等于是null, 用戶有可能只輸入空格，而沒有輸入數(shù)據(jù)，所以要用isnull()和len()函數(shù)一起判斷
    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 "數(shù)據(jù)輸入不完整！", 16, "錯誤提示"
        Me.駕駛員.SetFocus
        Exit Sub
    End If

   

'保存數(shù)據(jù)
    Dim sql As String     '定義追加記錄SQL語句
    sql = "insert into 出車記錄表(出車日期,出車時間,車牌號碼,駕駛員,所屬中心,用車人,用車事由,公里起數(shù),公里止數(shù),運行公里,加油量,油料價格,加油費,過路過橋費,其他費用,費用小計,備注) "
    sql = sql & "values('" & Me.出車日期 & "','" & Me.出車時間 & "','" & Me.車牌號碼 & "','" & Me.駕駛員 & "','" & Me.所屬中心 & "','" & Me.用車人 & "','" & Me.用車事由 & "','" & Me.公里起數(shù) & "','" & Me.公里止數(shù) & "','" & Me.運行公里 & "','" & Me.加油量 & "','" & Me.油料價格 & "','" & Me.加油費 & "','" & Me.過路過橋費 & "','" & Me.其他費用 & "','" & Me.費用小計 & "','" & Me.備注 & "')"
    DoCmd.SetWarnings False    '關(guān)閉系統(tǒng)提示
    DoCmd.RunSQL sql        '運行追加查詢
    DoCmd.SetWarnings True   '打開系統(tǒng)提示
    Call add_Click           '清空控件
   

Exit_add_Click:
    Exit Sub

Err_add_Click:
    MsgBox Err.Description
    Resume Exit_add_Click
   
End Sub