返回列表下一主題上一主題發帖

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

solely

中學生 Rank: 2

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-9-16 20:39 | 顯示全部帖子

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

我在表單上設了一個新增按鈕，如果不小心連續按了好幾次-.-
資料就會新增了好幾筆，請問要如何避免重複新增資料的問題??
'員工編號不重複
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