mickeyshelley1
asked on
VB.Net code Just not working
I cant seem to get this code straight i know the sendkeys seem to be a problem but even when I comment them out the code still ignore the first if statement
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim cmdinfo As String
cmdinfo = CAD.txtUnit.Text & " " & "ADV EST" & " " & CAD.txtLocation.Text & " " & "COMMAND"
If IsDBNull(txtComEditNar) = True Then
txtComEditNar.Text = DateTime.Now.ToString("MM/dd/yyyy-HH:mm") & " [" & UCase(CAD.lblOperator.Text) & "]:" & vbCrLf
txtComEditNar.Text = txtComEditNar.Text = DateTime.Now.ToString("MM/dd/yyyy-HH:mm") & " [" & UCase(CAD.lblOperator.Text) & "]:" & vbCrLf & " " & cmdinfo
txtComEditNar.Focus() 'Goes to the appropriate control
SendKeys "{f2}" 'Switches from navigation to text entry mode _
SendKeys "{end}" 'Goes to the end of the field
Exit Sub
Else
Dim nicholas As String
nicholas = txtComEditNar.Text
txtComEditNar.Text = nicholas & vbCrLf & DateTime.Now.ToString("MM/dd/yyyy-HH:mm") & " " & " [" & UCase(Environ$("Username")) & "] " & vbCrLf & " " & cmdinfo
txtComEditNar.Focus() 'Goes to the appropriate control
SendKeys "{f2}" 'Switches from navigation to text entry mode
SendKeys "{end}" 'Goes to the end of the field
End If
End Sub
End Class
ASKER
txtComEditNar is a multi line textbox that may or may not contain text, i also tried txtComEditNar .text ="" but it didnt seem to make a difference
Hi mickeyshelley1;
Change your If state to this and give it a try.
Change your If state to this and give it a try.
If String.IsNullOrEmpty(txtComEditNar.Text) Then
' ...
Else
' ...
End If
try :
If txtComEditNar.Text = String.Empty Then
If txtComEditNar.Text = String.Empty Then
ASKER
If txtComEditNar has no data then i get the word "false" if there is data the code runs correctly
ASKER
The problem seems to be in this line
txtComEditNar.Text = txtComEditNar.Text = DateTime.Now.ToString("MM/dd/yyyy-HH:mm") & " [" & UCase(CAD.lblOperator.Text) & "]:" & vbCrLf & " " & cmdinfo
ASKER
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim cmdinfo As String
Dim nicholas As String
nicholas = txtComEditNar.Text
cmdinfo = CAD.txtUnit.Text & " " & "ADV EST" & " " & CAD.txtLocation.Text & " " & "COMMAND"
If String.IsNullOrEmpty(txtComEditNar.Text) = True Then
txtComEditNar.Text = DateTime.Now.ToString("MM/dd/yyyy-HH:mm") & " [" & UCase(CAD.lblOperator.Text) & "]:" & vbCrLf
txtComEditNar.Text = nicholas & DateTime.Now.ToString("MM/dd/yyyy-HH:mm") & " " & " [" & UCase(Environ$("Username")) & "] " & vbCrLf & " " & cmdinfo
MsgBox(cmdinfo)
Exit Sub
Else
txtComEditNar.Text = nicholas & vbCrLf & vbCrLf & DateTime.Now.ToString("MM/dd/yyyy-HH:mm") & " " & " [" & UCase(Environ$("Username")) & "] " & vbCrLf & " " & cmdinfo
End If
End Sub
ASKER
I've requested that this question be closed as follows:
Accepted answer: 0 points for mickeyshelley1's comment #a39982105
for the following reason:
Solved
Accepted answer: 0 points for mickeyshelley1's comment #a39982105
for the following reason:
Solved
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
The code I posted was used to correct the problem. The points should be awarded.
ASKER
that was the issue
Is the object type of txtComEditNar a database value? IsDBNull can not test to see if an object is Nothing. DBNull and Nothing are two different types.