返回列表 上一主題 發帖

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

solely

帖子
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
收藏 分享

solely

帖子
92 
主題
18 
精華
0 
積分
195 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台北 
註冊時間
2010-8-15 
最後登錄
2011-8-11 
5#
發表於 2010-9-17 00:23 | 只看該作者
回復 3# et5323
您的方法，我試了，已經OK，感謝您！
似乎 ID取ET的人都很厲害XD
沒有上傳附件，是因為我的檔案....有太多問題了XDD

TOP

solely

帖子
92 
主題
18 
精華
0 
積分
195 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台北 
註冊時間
2010-8-15 
最後登錄
2011-8-11 
4#
發表於 2010-9-17 00:16 | 只看該作者
回復 2# luhpro
謝謝您提供的方法XD

TOP

et5323

帖子
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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2010-9-16 22:03 | 只看該作者
我有想到三種方法 :
1. 設個全域變數(因為每次呼叫函數都會清掉區域變數)儲存上次新增的 "員工編號",
然後在新增資料的函數中判斷要新增的 "員工編號" 與上次相異才做新增作業.
2. 將上次新增的 "員工編號" 放在任一不影響或看不到的儲存格內存放,其餘同上.
3. 在呼叫新增資料的函數同時傳入上次新增的 "員工編號" ,其餘同上.

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題