vbaランタイムエラー91検索と更新コマンドを使用

Question

私はuserformによってデータベースのデータを更新するコードを扱っています。 、その最初の部分、すなわち検索データは、罰金が、第2の部分つまり更新を働いているいつかそれが正常に動作しますが、いつかそれが

Private Sub cmd_Update_Click() 
Application.DisplayAlerts = False 
Dim ws As Worksheet 
'check for a Name number 
If Trim(Me.TextBox_Search_Data.Value) = "" Then 
Me.TextBox_Search_Data.SetFocus 
MsgBox "Please fill the data in search box" 
Exit Sub 
End If 
Set ws = Worksheets("Employee Data") 
With ws 
r.Value = Me.TextBox_Search_Data.Value 
r.Offset(, 1).Value = Me.TextBox_EmployeeName.Value 
r.Offset(, 2).Value = Me.TextBox_FatherHusbandName.Value 
r.Offset(, 3).Value = Me.ComboBox_Designation.Value 
r.Offset(, 4).Value = Me.ComboBox_Category.Value 


Me.TextBox_Search_Data.SetFocus 
MsgBox "Data Updated Sucessfully" 

'clear the data 
Me.TextBox_EmployeeNumber.Value = "" 
Me.TextBox_EmployeeName.Value = "" 
Me.TextBox_FatherHusbandName.Value = "" 
Me.ComboBox_Designation.Value = "" 
Me.ComboBox_Category.Value = "" 


End With 
End Sub 

それはシートのように見える

Answer 1

が正しく設定取得することはできません助けが必要ランタイムエラー91

ができますしたがって更新するためにオブジェクトを使用することはできません。以下の変更されたコードを参照してください。

Private Sub cmd_Update_Click() 

    Application.DisplayAlerts = False 

    Dim ws As Worksheet 
    'check for a Name number 
    If Trim(Me.TextBox_Search_Data.Value) = "" Then 
     Me.TextBox_Search_Data.SetFocus 
     MsgBox "Please fill the data in search box" 
     Exit Sub 
    End If 

    ' Change ThisWorkbook to a different workbook variable as needed. 

    Set ws = ThisWorkbook.Worksheets("Employee Data") 
    If Not ws Is Nothing Then 
      If not r is Nothing Then 
       With r 
        .Value = Me.TextBox_Search_Data.Value 
        .Offset(, 1).Value = Me.TextBox_EmployeeName.Value 
        .Offset(, 2).Value = Me.TextBox_FatherHusbandName.Value 
        .Offset(, 3).Value = Me.ComboBox_Designation.Value 
        .Offset(, 4).Value = Me.ComboBox_Category.Value 
       End With 
      Else 
       'This will run if r is not set to a range. 
      End If 
    Else 
     'This will occur if the sheet isn't set properly. 
    End If 

    Me.TextBox_Search_Data.SetFocus 
    MsgBox "Data Updated Sucessfully" 

    'clear the data 
    Me.TextBox_EmployeeNumber.Value = "" 
    Me.TextBox_EmployeeName.Value = "" 
    Me.TextBox_FatherHusbandName.Value = "" 
    Me.ComboBox_Designation.Value = "" 
    Me.ComboBox_Category.Value = "" 

End Sub