Solved

VB.Net code Just not working

Posted on 2014-04-06
11
245 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
  • 6
  • 4
11 Comments
 
LVL 62

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 62

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
 
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

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 62

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 62

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Code enhancement 5 22
Spacing between controls 4 30
Help with deleting records by comparing two files using VB.NET 8 56
Vb.Net Date Formatting Assistance 4 35
A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Along with being a a promotional video for my three-day Annielytics Dashboard Seminor, this Micro Tutorial is an intro to Google Analytics API data.
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.

910 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now