فورم السابق والتالى والبحث واضافة البيانات فيديو 3

Private Sub UserForm_Initialize()
Dim x As Integer
For x = 0 To Me.Lstmydata.ListCount - 1
If Me.Lstmydata.Selected(x) Then Me.Lstmydata.Selected(x) = False
Next x
End Sub

Private Sub cmdadd_Click()
If control1.Value <> "" And control2.Value <> "" And control3.Value <> "" And control4.Value <> "" And control5.Value <> "" And control6.Value <> "" Then
Sheets(1).Activate
lrow = Range("b" & Rows.Count).End(xlUp).Row
Range("b" & lrow + 1).Value = control1.Value
Range("b" & lrow + 1).Offset(0, 1).Value = control2.Value
Range("b" & lrow + 1).Offset(0, 2).Value = control3.Value
Range("b" & lrow + 1).Offset(0, 3).Value = control4.Value
Range("b" & lrow + 1).Offset(0, 4).Value = control5.Value
Range("b" & lrow + 1).Offset(0, 5).Value = control6.Value
control1.Value = ""
control2.Value = ""
control3.Value = ""
control4.Value = ""
control5.Value = ""
control6.Value = ""
Else
MsgBox ("تأكد من وجود جميع البيانات")
End If
End Sub

Private Sub cmdclose_Click()
Unload Me
End Sub

Private Sub cmdrefresh_Click()
Dim x As Integer
For x = 0 To Me.Lstmydata.ListCount - 1
If Me.Lstmydata.Selected(x) Then Me.Lstmydata.Selected(x) = False
Next x
control1 = ""
control2 = ""
control3 = ""
control4 = ""
control5 = ""
control6 = ""
End Sub

Private Sub Cmdsearch_Click()
Dim crow As String
Dim i As Integer
Dim findvalue

On Error GoTo errhandler
crow = Me.Txtsearch.Value
Set findvalue = Sheet1.Range("b:b").Find(what:=crow, LookIn:=xlValues)

cnum = 6
For x = 1 To cnum
Me.Controls("control" & x).Value = findvalue
Set findvalue = findvalue.Offset(0, 1)
Next
On Error GoTo 0
Exit Sub
errhandler::
End Sub

Private Sub control1_Change()

End Sub

Private Sub Listmydata_Click()

End Sub

Private Sub control3_Change()

End Sub

Private Sub Lstmydata_Click()
Dim i As Integer
i = Me.Lstmydata.ListIndex
Me.Lstmydata.Selected(i) = True
Me.control1.Value = Me.Lstmydata.Column(0, i)
Me.control2.Value = Me.Lstmydata.Column(1, i)
Me.control3.Value = Me.Lstmydata.Column(2, i)
Me.control4.Value = Me.Lstmydata.Column(3, i)
Me.control5.Value = Me.Lstmydata.Column(4, i)
Me.control6.Value = Me.Lstmydata.Column(5, i)

End Sub

Private Sub ToggleButton1_Click()
Dim findrow
Dim i As Integer
Dim crow As Integer

On Error Resume Next

crow = Me.control1.Value
Set findrow = Sheet1.Range("b:b").Find(what:=crow, LookIn:=xlValues).Offset(-1, 0)
cnum = 6
For x = 1 To cnum

Me.Controls("Control" & x).Value = findrow
Set findrow = findrow.Offset(0, 1)
Next
On Error GoTo 0


End Sub

Private Sub ToggleButton2_Click()
Dim findrow
Dim i As Integer
Dim crow As String

On Error Resume Next

crow = Me.control1.Value
Set findrow = Sheet1.Range("b:b").Find(what:=crow, LookIn:=xlValues).Offset(1, 0)
cnum = 6
For x = 1 To cnum

Me.Controls("Control" & x).Value = findrow
Set findrow = findrow.Offset(0, 1)
Next
On Error GoTo 0
End Sub