[發問] 表單_新增資料重複輸入問題

我在表單上設了一個新增按鈕，如果不小心連續按了好幾次-.-
資料就會新增了好幾筆，請問要如何避免重複新增資料的問題??
'員工編號不重複
Private Sub no_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Sheets("人事資料").Select
If KeyCode = vbKeyTab Or KeyCode = vbKeyReturn Then
      If no.Text <> "" And Application.WorksheetFunction.CountIf(Columns(1), no.Text) >= 1 Then
      no.Text = ""
      KeyCode = 0
      End If
End If
End Sub
'新增人事資料
Private Sub add_Click()
Sheets("人事資料").Select
Range("A1").Select
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(0, 0).Range("A2") = no.Text
ActiveCell.Offset(0, 0).Range("B2") = fullname.Text
ActiveCell.Offset(0, 0).Range("c2") = birthday.Text
ActiveCell.Offset(0, 0).Range("d2") = id.Text
End Sub

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

2^#

發表於 2010-9-16 22:03 | 只看該作者

我有想到三種方法 :
1. 設個全域變數(因為每次呼叫函數都會清掉區域變數)儲存上次新增的 "員工編號",
然後在新增資料的函數中判斷要新增的 "員工編號" 與上次相異才做新增作業.
2. 將上次新增的 "員工編號" 放在任一不影響或看不到的儲存格內存放,其餘同上.
3. 在呼叫新增資料的函數同時傳入上次新增的 "員工編號" ,其餘同上.

TOP

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

3^#

發表於 2010-9-16 22:24 | 只看該作者

'假设 ID.Text是"员工编号",先对 ID.Text进行判断,是否在d列存在.
Private Sub add_Click()
With Sheets("人事資料")
      If Application.WorksheetFunction.CountIf(.Range("d:d"), ID.Text) > 0 Then
         MsgBox "员工编号已存在!", vbCritical, "错误"
         Exit Sub
      End If
      With .Range("A65536").End(xlUp)
         .Range("A2") = no.Text
         .Range("B2") = FullName.Text
         .Range("c2") = birthday.Text
         .Range("d2") = ID.Text
      End With
End With
End Sub
'没有附件,没有验证过哈.提问最好要有附件

TOP

solely