Getting an error when deleting data in my employee database

[iot123]

Hi please help with these code, this actual works fine, it's just that after the data has been deleted it gives me a run time error that says: Item with specified name not found and the code line that is color red below is highlighted.

Seems because I deleted a record but still I don't want to have that error every time I delete something.


Here's my code:


Private Sub cmdDelete_Click()
TRows = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count
Dim strDel
strDel = MsgBox("Delete ?", vbYesNo, "Delete")
If strDel = vbYes Then
For i = 2 To TRows
If Trim(Worksheets("Data").Cells(i, 1).Value) = Trim(ComboBox1.Text) Then

Worksheets("Data").Range(i & ":" & i).Delete
Worksheets("ImageData").Shapes("img" & Strings.Trim(txtEmpNo.Text)).Delete

txtEmpNo.Text = ""
txtEmpName.Text = ""
txtAdd1.Text = ""
txtAdd2.Text = ""
txtEmail.Text = ""
txtContact.Text = ""
txtDesignation.Text = ""
txtDOB.Text = ""
txtSSS.Text = ""
txtTin.Text = ""
txtPagibig.Text = ""
txtPhilhealth.Text = ""
txtDOH.Text = ""
txtVL.Text = ""
txtVL1.Text = ""
txtVL2.Text = ""
txtSL.Text = ""
txtSL1.Text = ""
txtSL2.Text = ""
imgEmp.Picture = Nothing
Call prComboBoxFill

Exit For
End If
Next i
If Trim(ComboBox1.Text) = "" Then
cmdSave.Enabled = False
cmdDelete.Enabled = False
Else
cmdSave.Enabled = True
cmdDelete.Enabled = True
End If
cmdNew.Enabled = True
cmdClose.Caption = "Close"

End If

If Trim(txtEmpNo.Text) = "" Then
cmdSave.Enabled = False
cmdDelete.Enabled = False
Frame2.Enabled = False

Else
cmdSave.Enabled = True
cmdDelete.Enabled = True
Frame2.Enabled = True

End If
End Sub

[Logit]

.

Worksheets("ImageData").Shapes("img" & Strings.Trim(txtEmpNo.Text)).Delete



Does your workbook have a sheet named : "ImageData" ?

Does your workbook have a shape named : "img" located on sheet named "ImageData" ?

[TMS]

Maybe try:

Please Login or Register  to view this content.

[TMS]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[iot123]

Yeah I have sheet named Image Data I think the problem is when I'm deleting a employee on our database that has no user image? How to go on that?

[TMS]

See post #3