I have been diligently working on creating a userform for a week now and I have learned a great deal.. what I mostly learned was that I don’t much.. But none the less I forged ahead. I was able to accomplish a fair amount via the web not so much MS site but other searches that gave me a great base to learn from. Well I have hit my limit of learning and now I need to turn to the professionals for my last ditch effort. Here is a list of things I’d like my form to do:
1. Ability to navigate between next and previous records via buttons – this I have researched and have found some great source but my limited VB scripting has me a bit in the dark as to what variable to change.
2. Ability to word wrap automatically, for some reason I cannot get my text box to wordwrap when it reached the end of the text box itself.
3. Ability to update/modify an existing record
4. Ability to print directly from the form using a print button
5. Ability to search for a record
6. A drop down box gives me the ability to select from 3 different choices (Pass, Fail or Deferred)
That’s it I hope I am very grateful to anyone who can assist me. I am copying my VB code into the body of the post unfortunately I cannot upload my actual file from work.

Private Sub Label1_Click()

End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub Cmd_Clear_Click()
'Unload Me
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
ctl.Value = ""
ElseIf TypeName(ctl) = "CheckBox" Then
ctl.Value = False
End If
Next ctl
End Sub

Private Sub CMD_Nxt_Click()
With Sheets("Database").Range("B7:B600")
Debug.Print TxtAssetNo.Value
Set c = .Find(TxtAssetNo.Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
currow = c.Row
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Debug.Print currow
currow = currow + 1

TxtAssetNo = Range("B" & currow).Value
TxtboxSupp = Range("C" & currow).Value
TxtboxInvNo = Range("D" & currow).Value
End Sub





Private Sub CMD_Prev_Click()

With Sheets("One_Review_Data").Range("A1:A600")
Debug.Print Txt_WON.Value
Set c = .Find(Me.Txt_WON.Value, LookIn:=xlValues)
If Not c Is Nothing Then
' firstAddress = c.Address
' Do
currow = c.Row
Debug.Print currow
' Set c = .FindNext(c)
' Loop While Not c Is Nothing And c.Address <> firstAddress
End If
currow = currow - 7 ' this will show prevous cell

Txt_WON.Value
End With
'etc....
End Sub

Private Sub CMD_submit_Click()
Dim ctl As Control

Dim rowcount As Long
rowcount = Worksheets("One_Review_Data").Range("A1").CurrentRegion.Rows.Count
With Worksheets("One_Review_Data").Range("A1")
.Offset(rowcount, 0).Value = Me.Txt_WON.Value
.Offset(rowcount, 1).Value = Me.Txt_WO.Value
.Offset(rowcount, 2).Value = Me.Txt_WOM.Value
.Offset(rowcount, 3).Value = Me.Txt_WOG.Value
.Offset(rowcount, 4).Value = Me.Txt_WOMa.Value
.Offset(rowcount, 5).Value = Me.Txt_WOIP.Value
.Offset(rowcount, 6).Value = Me.Txt_WOE.Value
.Offset(rowcount, 7).Value = Me.Txt_WOEE.Value
.Offset(rowcount, 8).Value = Me.Txt_WOT.Value
End With

If Me.Txt_WON.Value = "" Then
MsgBox "Please enter workorder number first.", vbExclamation, "Work Order Number"
Me.Txt_WON.SetFocus
Exit Sub
End If
If Not IsNumeric(Me.Txt_WON.Value) Then
MsgBox "This box must contain number.", vbExclamation, "Work Order Number"
Me.Txt_WON.SetFocus
Exit Sub
End If

If Me.Txt_WOE.Value = "" Then
MsgBox "Please enter Engineers full name.", vbExclamation, "Work Order Number"
Me.Txt_WOE.SetFocus
Exit Sub
End If
If Me.Txt_WOT.Value = "" Then
MsgBox "Please enter Work Order Title.", vbExclamation, "Work Order Number"
Me.Txt_WOT.SetFocus
Exit Sub
End If
If Me.Txt_WOEE.Value = "" Then
MsgBox "Please enter email.", vbExclamation, "Work Order Number"
Me.Txt_WOEE.SetFocus
Exit Sub
End If
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
ctl.Value = ""
ElseIf TypeName(ctl) = "CheckBox" Then
ctl.Value = False
End If
Next ctl
End Sub

Function ValidateEmail(ByVal sEmail As String) As Boolean

Dim oRegularExpression As RegExp

' Sets the regular expression object
Set oRegularExpression = New RegExp

With oRegularExpression
' Sets the regular expression pattern
.Pattern = "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"

' Ignores case
.IgnoreCase = True

' Test email string
ValidateEmail = .Test(sEmail)
End With

End Function


Private Sub Txt_WON_Change()

End Sub

Private Sub UserForm_Click()
Me.PrintForm
End Sub


Thank you,

~r