Solved

VB.Net code Just not working

Posted on 2014-04-06
11
252 Views
Last Modified: 2014-04-07
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

Open in new window

0
Comment
Question by:mickeyshelley1
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 4
11 Comments
 
LVL 63

Expert Comment

by:Fernando Soto
ID: 39982063
Hi mickeyshelley1;

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.


From Microsoft documentation:
IsDBNull returns True if the data type of Expression evaluates to the DBNull type; otherwise, IsDBNull returns False.

The System.DBNull value indicates that the Object represents missing or nonexistent data. DBNull is not the same as Nothing, which indicates that a variable has not yet been initialized. DBNull is also not the same as a zero-length string (""), which is sometimes referred to as a null string.
0
 

Author Comment

by:mickeyshelley1
ID: 39982071
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
0
 
LVL 63

Expert Comment

by:Fernando Soto
ID: 39982077
Hi mickeyshelley1;

Change your If state to this and give it a try.

If String.IsNullOrEmpty(txtComEditNar.Text) Then
    ' ...
Else
    ' ...
End If

Open in new window

0
Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

 
LVL 29

Expert Comment

by:Paul Jackson
ID: 39982079
try :

If  txtComEditNar.Text = String.Empty Then
0
 

Author Comment

by:mickeyshelley1
ID: 39982085
If txtComEditNar has no data then i get the word "false" if there is data the code runs correctly
0
 

Author Comment

by:mickeyshelley1
ID: 39982098
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

Open in new window

0
 

Author Comment

by:mickeyshelley1
ID: 39982105
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

Open in new window

0
 

Author Comment

by:mickeyshelley1
ID: 39982122
I've requested that this question be closed as follows:

Accepted answer: 0 points for mickeyshelley1's comment #a39982105

for the following reason:

Solved
0
 
LVL 63

Accepted Solution

by:
Fernando Soto earned 500 total points
ID: 39982114
First you are assigning the value on the right to the same variable on the left twice so the code snippet removes that second variable. I can not see this code assigning false to the text box. You should get the date and the text in the label.

txtComEditNar.Text = DateTime.Now.ToString("MM/dd/yyyy-HH:mm") & " [" & UCase(CAD.lblOperator.Text) & "]:" & vbCrLf & " " & cmdinfo
1:

Open in new window

0
 
LVL 63

Expert Comment

by:Fernando Soto
ID: 39982123
The code I posted was used to correct the problem. The points should be awarded.
0
 

Author Closing Comment

by:mickeyshelley1
ID: 39983683
that was the issue
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
Microsoft Reports are based on a report definition, which is an XML file that describes data and layout for the report, with a different extension. You can create a client-side report definition language (*.rdlc) file with Visual Studio, and build g…
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.

724 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question