डेटाबेस में पहली खाली पंक्ति खोजने में त्रुटि (एक्सेल/वीबीए/फॉर्म)

मैं एक्सेल और वीबीए का उपयोग कर एक फॉर्म बनाने की कोशिश कर रहा हूं। मुझे "रन-टाइम त्रुटि <कोड> 9 1 कहने में त्रुटि मिलती है: ऑब्जेक्ट वैरिएबल या ब्लॉक वैरिएबल के साथ सेट नहीं किया गया जब मैं फॉर्म जमा करने का प्रयास करता हूं। जब मैं डीबग करता हूं तो एरर लाइन 7 iRow = ws.Cell ... पर होती है किसी भी प्रकार के मदद की बहुत सराहना की जाएगी! ठीक बटन पर क्लिक करने के लिए कोड नीचे दिया गया है:

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a Name number
If Trim(Me.TextBox_Name.Value) = "" Then
Me.TextBox_Name.SetFocus
MsgBox "Please complete the form"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextBox_Name.Value
ws.Cells(iRow, 2).Value = Me.TextBox_Desc.Value
ws.Cells(iRow, 3).Value = Me.Frame_Group.Value
ws.Cells(iRow, 4).Value = Me.ComboBox_Location.Value
ws.Cells(iRow, 5).Value = Me.Frame_Time.Value
ws.Cells(iRow, 6).Value = Me.Frame_Life.Value

MsgBox "Data added", vbOKOnly + vbInformation, "Data Added"
'clear the data
Me.TextBox_Name.Value = ""
Me.TextBox_Desc.Value = ""
Me.Frame_Group.Value = ""
Me.ComboBox_Location.Value = ""
Me.Frame_Time.Value = ""
Me.Frame_Life.Value = ""
Me.TextBox_Name.SetFocus
End Sub
0
मुझे यह कहते हुए एक त्रुटि मिलती है कि "रन-टाइम त्रुटि 91: ऑब्जेक्ट वेरिएबल या ब्लॉक वैरिएबल के साथ सेट नहीं है आपका उत्तर है यहां
जोड़ा लेखक Siddharth Rout, स्रोत
दूसरे शब्दों में आप सुनिश्चित हैं कि शीट खाली नहीं है?
जोड़ा लेखक user2140261, स्रोत
<कोड> iRow = ws.Cells (ws.Rows.Count, "ए")। अंत (xlUp) .ow + 1
जोड़ा लेखक tigeravatar, स्रोत

1 उत्तर

iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

0
जोड़ा