Hi Dudes ,
i have a user form that i use it to enter data in a worksheet ,
Now i want to search and edit my data by this user form too, is it possible?
here is the code :
Code
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Forms")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'check for a part number
If Trim(Me.shsanad.Value) = "" Then
Me.shsanad.SetFocus
MsgBox "Forms number pleas ..."
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.shsanad.Value
ws.Cells(iRow, 2).Value = Me.tasanad.Value
ws.Cells(iRow, 3).Value = Me.tarikha.Value
ws.Cells(iRow, 4).Value = Me.TextBox28.Value
ws.Cells(iRow, 5).Value = Me.txtLoc.Value
ws.Cells(iRow, 6).Value = Me.TextBox27.Value
ws.Cells(iRow, 8).Value = Me.jaraem.Value
ws.Cells(iRow, 9).Value = Me.sayer.Value
ws.Cells(iRow, 7).Value = Me.aab.Value
ws.Cells(iRow, 10).Value = Me.TextBox31.Value
ws.Cells(iRow, 12).Value = Me.TextBox12.Value
'clear the data
Me.shsanad.Value = ""
Me.tasanad.Value = ""
Me.tarikha.Value = ""
Me.TextBox28.Value = ""
Me.txtLoc.Value = ""
Me.jaraem.Value = ""
Me.sayer.Value = "0"
Me.aab.Value = "0"
Me.sooratvaziat.Value = ""
Me.TextBox18.Value = ""
Me.TextBox20.Value = ""
Me.jamekosoor.Value = "0"
Me.TextBox12.Value = ""
Unload Me
End Sub
Display More