问题描述
我有一个Excel数据输入表单和两个Excel数据库表,分别为Table1和Table2。在数据输入表单中,我提供了选择Table1或Table2的选项,并且我想使用数据输入表单中的Modify按钮根据我对表的选择来修改Table1记录或Table2记录。表记录应根据序列号进行修改。但是,当我选择一个表并打算使用序列号修改所选表中的记录时,错误显示为“未找到记录”。这是为什么?如何解决这个问题? 下面给出了用于修改记录的module1编码
Sub ModifyRecord()
Dim iRow As Long
Dim iSerial As Long
iSerial = Application.InputBox("Please enter Serial Number to make modification.","Modify",1)
On Error Resume Next
iRow = Application.WorksheetFunction.IfError _
(Application.WorksheetFunction.Match(iSerial,Sheets("Database").Range("A:A"),0),0)
On Error GoTo 0
If iRow = 0 Then
MsgBox "No record found.",vbOKOnly + vbCritical,"No Record"
Exit Sub
End If
Sheets("Form").Range("L1").Value = iRow
Sheets("Form").Range("M1").Value = iSerial
Sheets("Form").Range("H9").Value = Sheets("Database").Cells(iRow,2).Value
Sheets("Form").Range("H11").Value = Sheets("Database").Cells(iRow,3).Value
Sheets("Form").Range("H13").Value = Sheets("Database").Cells(iRow,4).Value
Sheets("Form").Range("H15").Value = Sheets("Database").Cells(iRow,5).Value
Sheets("Form").Range("H17").Value = Sheets("Database").Cells(iRow,6).Value
Sheets("Form").Range("H19").Value = Sheets("Database").Cells(iRow,7).Value
Sheets("Form").Range("H21").Value = Sheets("Database").Cells(iRow,8).Value
Sheets("Form").Range("H23").Value = Sheets("Database").Cells(iRow,9).Value
End Sub
sheet1(form) coding for modifying a record is given below
Private Sub cmdModify_Click()
Dim msgValue As VbMsgBoxResult
msgValue = MsgBox("Do you want to modify the record?",vbYesNo + vbQuestion,"Modify Record")
If msgValue = vbYes Then
Call ModifyRecord
End If
End Sub
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)