VB.NET Forum RSS Feed

Get Printer Status after PDF file is printed

Mon, 15 Mar 2010 17:10:29 -0700

Hi,
I am writing a vb.net windows application to send pdf files to printer, one at time, after file is printed I want to get the status from printer as "Printed".

so far I have the code (working) which can send the selected pdf to printer.
Now I am trying to use this following code to get the status of printer, after the file is printed. but, not working.

objCollection value is being "printer property evaluation failed"

Please help me if anyone knows how to do it.

Imports System.Management 'used namespace

Private objOS As ManagementObjectSearcher
Private objCollection As ManagementObjectCollection
Private objMgmt As ManagementObject

Dim jobName As String
Dim documentName As String
Dim PrinterStatus As String
Dim PrinterStatus1 As String

Dim searchQuery As String
Dim objMgmt As ManagementObject
searchQuery = "SELECT * FROM Win32_PrintJob"
objOS = New ManagementObjectSearcher(searchQuery)
objCollection = objOS.Get()

Try
For Each objMgmt In objCollection
jobName = objMgmt.Properties("Name").Value.ToString()
documentName = objMgmt.Properties("Document").Value.ToString()
PrinterStatus = objMgmt.Properties("Status").Value.ToString()
PrinterStatus1 = objMgmt.Properties("StatusMask").Value.ToString()
If PrinterStatus1 = "128" Then '128 means Printed
Change_Status()'write the status to database as printed
Else
MsgBox("objMgmt: " + documentName + "Status: " + PrinterStatus1, vbExclamation)
End If
Next

Catch ex As Exception
End Try

Thanks in advance!
Anita.

Designing and Planning programs/applications

Mon, 15 Mar 2010 10:40:04 -0700

I'm a self taught programmer still learning but i've got a major problem.
When i want to write an application i just imagine the form and start writing codes and so on and i know that is so wrong.
My question how do you plan/design an application??? deciding what should be a class, e.t.c??

Connecting to MySQL and general DB question?

Sun, 14 Mar 2010 23:28:59 -0700

Hello All,

I am getting back into the programming world after a long time away. I am trying to develop some custom programs for personal use, as well as to get back into the hang of programming. My major interest is in MySQL database management. I have the database connector downloaded and installed. the following is my program:

Public Class Form1
    Dim myConnectionString As String


    Private Sub btn_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Connect.Click
        myConnectionString = "server=localhost;" _
          & "uid=XXXXX;" _
          & "pwd=XXXXX;" _
          & "database=XXXXX;"
        Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectio
nString)

        Try
            conn.Open()
        Catch ex As MySql.Data.MySqlClient.MySqlException
            MessageBox.Show(ex.ToString)
            Select Case ex.Number
                Case 0
                    MessageBox.Show("Cannot connect to server. Contact administrator")
                Case 1045
                    MessageBox.Show("Invalid username/password, please try again")
            End Select
        End Try


        conn.Close()
    End Sub
End Class

I would like to now begin by displaying the small amount of info in the DB, but am not sure how to proceed.

PS- I will use this thread/program to develop the tools I will need to build my other programs.

USING VISUAL STUDIO 2008

Thank You in Advance for your Help!!!!!

Log Based Intrusion Detection System ....

Sat, 13 Mar 2010 09:57:52 -0700

Need to develop an log based IDS system in VB.NET ...
Has Read the System Logs ... but now how do i proceed ...
Could anyone help me in starting the project ....
And how do i get the EVENT ID of the Events from the EVENT LOG using .NET ???

Windows Serice project in VB.NET

Fri, 12 Mar 2010 07:15:00 -0700

Hi,
I created a windows service in vb.net 2005. and added the following functionality. I am trying to update the label on the form for ever5 five seconds. It works fine when I created the VB.net windows application with the same code. But not in service. when I install the service and start it, doesn't do anything.

Please reply if anyone knows about the windows service.

Thanks in advance!
Anita Tirumalareddy.

Code:

Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.
Timer1.Start()
Timer1.Enabled = True
End Sub

Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your service.
Timer1.Stop()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lblDateTime.Text = Now.ToLongTimeString.ToString()
Timer1.Interval = 5000
End Sub

' The main entry point for the process
<MTAThread()> _
<System.Diagnostics.DebuggerNonUserCode()> _
Shared Sub Main()
Dim ServicesToRun() As System.ServiceProcess.ServiceBase

' More than one NT Service may run within the same process. To add
' another service to this process, change the following line to
' create a second service object. For example,
'
' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
'
ServicesToRun = New System.ServiceProcess.ServiceBase() {New Timer_Service1()}

System.ServiceProcess.ServiceBase.Run(ServicesToRu n)
End Sub

Add your code snippets, get links to your site

Thu, 11 Mar 2010 12:22:05 -0700

Curious if anyone here would like to help add some commonly used code snippets to a freeware code repository project at http://www.snippetmanager.net

You can post a link to your code on the blog if you would like to participate: http://blog.snippetmanager.net

VB.net is great but code for PHP, SQL, VB6, C#, C++, Delphi and others is also needed.

This is a non-profit project but contributors may include a comment in each snippet file with a site link for free promotion.

Thanks

Query Database

Wed, 10 Mar 2010 09:39:38 -0700

Hi i've got a form with six option boxes. i want to query my database based on any of the option box checked. all six boxes can be checked.
how do i go about this??
I've tried multiple If...Else statements but it dosent give me the required result..

NullReferenceException was unhandled

Tue, 09 Mar 2010 08:34:50 -0700

Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
Select Case btnNew.Text
Case "&New"

txtBookTitle.ReadOnly = False
txtAuthor.ReadOnly = False

txtBookTitle.Clear()
txtAuthor.Clear()
btnNew.Text = "&Save"
btnModify.Enabled = True
btnModify.Text = "&Cancel"
btnRemove.Enabled = False
txtBookTitle.Focus()
Case "&Save"
If txtBookTitle.Text.Trim.Length = 0 Then
MessageBox.Show("Please type a valid Book Title.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If

If txtAuthor.Text.Trim.Length = 0 Then
MessageBox.Show("Please type a valid Author Name.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If

If txtBookCategory.Text.Trim.Length = 0 Then
MessageBox.Show("Please type a valid Book Category.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If

If txtBookCode.Text.Trim.Length = 0 Then
MessageBox.Show("Please type a valid Book Code.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If

If txtVolume.Text.Trim.Length = 0 Then
MessageBox.Show("Please type a valid Book Category.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If

Dim dbDataReader As OleDb.OleDbDataReader = Nothing
Dim sqlCommand As String = "SELECT * FROM BOOKS WHERE BookTitle = '" & txtBookTitle.Text & "'"
dbDataReader = performQuery(connectionString, sqlCommand)

If dbDataReader.HasRows = 0 Then
sqlCommand = "SELECT * FROM BOOKS WHERE Author = '" & txtAuthor.Text & "'"
dbDataReader = performQuery(connectionString, sqlCommand)

If dbDataReader.HasRows = 0 Then
sqlCommand = "SELECT * FROM BOOKS WHERE BookCategory = '" & txtBookCategory.Text & "'"
dbDataReader = performQuery(connectionString, sqlCommand)

If dbDataReader.HasRows = 0 Then
sqlCommand = "SELECT * FROM BOOKS WHERE Volume = '" & txtVolume.Text & "'"
dbDataReader = performQuery(connectionString, sqlCommand)

ERROR -- > If dbDataReader.HasRows = 0 Then
sqlCommand = "INSERT INTO BOOKS (BookTitle, Author, BookCategory, Volume) VALUES ('" & txtBookTitle.Text & "', '" & txtAuthor.Text & "', '" & txtBookCategory.Text & "' , '" & txtVolume.Text & "',)"
If performNonQuery(connectionString, sqlCommand) Then
MessageBox.Show("New contact successfully added.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
txtBookTitle.Clear()
txtAuthor.Clear()
txtBookTitle.Focus()
Exit Sub
Else
MessageBox.Show("Unable to create new BOOK INFORMATION.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
txtBookTitle.Focus()
Exit Sub
End If
Else
MessageBox.Show("BOOK TITLE name already existing.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
txtAuthor.Focus()
Exit Sub
End If
Else
MessageBox.Show("Author Name already existing.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
txtBookTitle.Focus()
Exit Sub
End If
Else
MessageBox.Show("Volume Name already existing.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
txtBookTitle.Focus()
Exit Sub
End If

End If

Case "&Update"
If txtBookTitle.Text.Trim.Length = 0 Then
MessageBox.Show("Please type a valid Mobile Number.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If

Dim dbDataReader As OleDb.OleDbDataReader = Nothing
Dim sqlCommand As String = "UPDATE BOOKS SET BookTitle = '" & txtBookTitle.Text & "' WHERE Author = '" & txtAuthor.Text & "'"
If performNonQuery(connectionString, sqlCommand) Then
MessageBox.Show("Update of Book Information successful.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)

txtBookTitle.Clear()
txtBookTitle.ReadOnly = True
txtAuthor.Clear()
txtAuthor.ReadOnly = True
btnNew.Text = "&New"
btnModify.Text = "&Modify"
btnModify.Enabled = False
btnRemove.Enabled = False

Exit Sub
Else
MessageBox.Show("Unable to update Book Information.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
txtBookTitle.Focus()
Exit Sub
End If

End Select
End Sub

Help! how to display data grid view items in particular textboxes?

Tue, 09 Mar 2010 06:20:29 -0700

HI~

i have DatagridView1 with 5 Columns BookCode, BookCategory, BookTitle, Volume and Author just wondering how can i display thier values at textboxes WHEN I CLICK A ROW in the DATAGRID VIEW
need help please!

NULL REFERENCE ERROR VB.NET URGENT

Tue, 09 Mar 2010 01:02:27 -0700

Dear All,

I am encountering a null reference error on the souce code below. I am trying to save into an Access 2003 database. Please help. I have tried to define the dataset by going to the toolbox menu. However, this code below is the same that I have been using elsewhere for saving and it works with no problem at all.

Dim dsnewrw As DataRow
Dim dshist As New DataSet
Dim dahis As New OleDb.OleDbDataAdapter
Dim cbc As New OleDb.OleDbCommandBuilder(dahis)
Dim Conc As New OleDb.OleDbConnection

'Opening database
Conc.ConnectionString
Conc.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Programming\DbAssetRegister.mdb"
Conc.Open()
dsnewrw = dshist.Tables("TblAssetHistory").NewRow()
' dsnewrw.Item("RrecId") = 1999
dsnewrw.Item("Rserialno") = CboSerialno.Text
dsnewrw.Item("Ractionres") = "Allocation"
dsnewrw.Item("Rdatecreated") = System.DateTime.Now
dsnewrw.Item("Rcreatedby") = "1223"
dsnewrw.Item("Remployeeno") = "test number"
dsnewrw.Item("Rformno") = TxtFormno.Text
dsnewrw.Item("Rdateallocated") = System.DateTime.Now
dshist.Tables("TblAssetHistory").Rows.Add(dsnewrw)
dahis.Update(dshist, "TblAssetHistory")
Conc.Close()

Cant Add New Record to Database

Mon, 08 Mar 2010 08:55:40 -0700

Hi,

Whenever i try to add a new record into the database i got an error - Syntax error in INSERT INTO statement.

What is wrong with this code ? I really cant figure out how to solve the problem. Can someone please help me. Thanks.

I am using VB 2008 with Microsoft Access 2007.

Imports System.Data.OleDb

Public Class Form4
    Dim connStr As String = "PROVIDER=Microsoft.ace.oledb.12.0;Data Source=C:\Testing.accdb"
    Dim sql As String = "SELECT * FROM Product"
    Dim conn As OleDbConnection = New OleDbConnection(connStr)
    Dim comm As OleDbCommand = New OleDbCommand(sql, conn)
    Dim da As OleDbDataAdapter = New OleDbDataAdapter(comm)
    Dim ds As DataSet = New DataSet()


    Private Sub LoadDatabase()
        conn.Open()
        da.Fill(ds, "Product")
        conn.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "Product"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(da)
        builder.GetUpdateCommand()
        da.Update(ds.Tables("Product"))
        MessageBox.Show("Record Successfully Added")
    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadDatabase()
    End Sub
End Class

send information to mobile

Mon, 08 Mar 2010 04:54:43 -0700

On the clik of a button in a web-page information is sent to the mobile phone? How is this accomplished in .NET ? Is it necessary to purchase a gateway SMS ?

Image Viewer (New Buttons)

Fri, 05 Mar 2010 14:08:46 -0700

Hi, I have this little program I found on another site. It's a simple image viewer: Uses a dialog box to open an image from the local computer, and then applies that to a picturebox. I would just like two buttons. One button to go to the next image in the folder, and one button to go back one image in the folder. Once an image is loaded, I would like to have a small textbox to rename the image, but if that's not possible it's fine.

I would also like it if, instead of choosing a single image, this little program would allow the user to choose a specific FOLDER, which would include a number of images, and then cycle through them from there.

I've attached the program with this post. Please help, Collin Helmers.

Attachment: PictureViewer.zip (59079 bytes | downloaded 8 times)

Bug when setting FolderBrowserDialog1.SelectedPath in code

Tue, 02 Mar 2010 10:59:40 -0700

Do you know why this happens?

If (strCampaignFolder <> "") Then
'Next line works fine when strCampaignFolder already has a value set by FolderBrowserDialog1.SelectedPath further below.
FolderBrowserDialog1.SelectedPath = strCampaignFolder
Else 'PROBLEM: Next line causes the external .NET code 'UnsafeNativeMethods' to put the app to sleep when strCampaignFolder has no existing value!
FolderBrowserDialog1.SelectedPath = "L:\InternetMarketing\AdWordsCampaigns\LiveChat-Software"
End If
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
'Get Campaign folder
strCampaignFolder = FolderBrowserDialog1.SelectedPath
End If

Can you suggest a workaround, please?

parsing information from a text file

Mon, 01 Mar 2010 02:51:46 -0700

i have this -for me- major problem

having as definitions a start time and an end time
i have to parse a text file and search from the start time to the end time
i believe i can do this parsing with the .contains
my major main problem is what to use to go from one time to the other?

in example

how can i say

for starttime as 13:46 am to endtime as 14:56 pm step 1 second
.....?

time Zones in Excel sheet

Mon, 01 Mar 2010 02:33:32 -0700

Hello,
I am looking for a list of the standard time zones in Excel format. I have a developer writing a. net application and they want to give the user a drop down to select their time zone. I've been tasked with getting a spreadsheet to populate the drop down. The time zones that Windows displays when you double click the clock is what I'm looking for. This seems like a good standard list to use.

I tried searching for something to download but cant find. I'm sure someone has something. Anybody have a speadsheet I can give to the developer?
Thanks Experts!

Tree view .........very very urgent

Sat, 27 Feb 2010 14:03:43 -0700

I am very new to vb.net.
Suppose i have a page ,on one side i have certain names from the database(tree view).when i click a particular customer name,i have to display the details regarding about this particular customer on the other side of the page in the same form,for that what i have to do.i want codings for thaty

How can I have my VB look at the value of the formula inside the cell?

Thu, 25 Feb 2010 15:45:50 -0700

This is what I have written:

Set valrange = Range("O5:O99")

If Not Intersect(Target, valrange) Is Nothing Then
If Target.Formula = "N" Then
MsgBox "Message here"
End If
End If

Basically I am trying to get VB to display a message anytime the formula in column "O" is returning a N (based on an IF statement inside the cell). can't figure out what is missing in the code!

Any help will be greatly appreciated!!

StatusLabel Control

Fri, 19 Feb 2010 05:01:12 -0700

Hi,

I have a parent form called frmMainMenu and a child form called frmInsertStock with text boxes. On frmMainMenu I have a status panel called panInstruction. I am trying to display a message when a textbox has focus. So in the enter event of the text box I have placed this code:

frmMainMenu.panInstruction.Text = "My name is David"

In the previous version on VB.NET this statement worked. Could you tell me what am I doing wrong and if there is an error in my code.

Thanks,

David

Help with file manipulation...

Fri, 19 Feb 2010 01:32:48 -0700

Alright...here's the deal..i am making a program that has to affect every file in a predefined folder...so i need a sub that is going to select (or rather get the path to) every single file in that folder one at a time...
and alongside that it would be appreciated if you also give me a sub that reads the file info (like comments, author etc. - if i have to specify a file type i would need it for audio files)...
and please post the subs themselves...i am a beginner in vb.net so if you write "use the ___ class(or whatever)" it doesn't mean much to me...i learn more easily if i see the finished code and draw my conclusions from that...

Thanks in advance...

LINQ Query for Sum [with null values Column from Datatable] ?

Fri, 19 Feb 2010 01:25:57 -0700

Hi Sean,
How are you man? Im fine here. After a long gap...

I like to calculate the total to a field [trn_qty] from Dtb1 [Datatable]. For that any ideas...?

My Query is

Dim Numbers = Dtb1.AsEnumerable()
Dim SvQy = (From n In Numbers Select n.Field(Of Decimal)("trn_qty")).Sum()

But Iam not getting any O/P. Also I don't know whether its correct or not... Any better ideas?

Thanks

MDI Forms

Thu, 18 Feb 2010 06:52:15 -0700

Hi,

I have a Parent form and childform.
I have a button on the childform that should call another child form, but it is no displaying.
The code that I am using is in the button click event is:

frmCurrentStock.MdiParent = frmMainMenu
frmCurrentStock.Show()

Thanks David.

Program + Database help

Wed, 17 Feb 2010 10:15:34 -0700

Hi all,

I am in the midst of re-writing a program for it to make use of a database to store data instead of numerous text files.

I am using Access as my database and Visual Studio 2005 (VB.net) to write the program

The purpose of the program is mainly to generate a list of fixtures for a given league, there are currently 3 different leagues. Users will need to be able to add/delete/modify leagues as well as being able to add/delete/modify teams that play in one of the leagues.

The database is needed to hold all the team and team manager details as well as the fixtures. The program is intended to generate the fixtures and once done this it needs to populate the corresponding table and fields in the database.

I was advised to create my database in access (i have access '07 but i am saving as access 2000 files) and then connect it to my program..i have created the database in access but i am struggling to connect the program and database

Firstly..is this the best way of doing it..? If not, how else should i be doing it?

This is the first time i have tried to combine vb.net with databases etc, so any tips, pointers or advice would be much appreciated...

Urgent Solution to treeview

Tue, 16 Feb 2010 06:09:10 -0700

Imports MSComctlLib
Imports System
Imports System.Data.OleDb
Imports ADODB
Public Class Form1

Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim rs As ADODB.Recordset
Dim MyDataFile As String

Dim dbNode As Node
Dim tabNode As Node
Dim fldNameNode As Node
Dim ColHeader() As String
Dim ColHeaders As String

Private Sub cmdLoadData_Click()

Dim strCon As String
Dim tabName As String
Dim fldName As String
Dim n As Integer
Dim c As Integer
Dim i As Integer
Dim j As Integer

On Error Resume Next

MyDataFile = "D:\Documents and Settings\yiacovides\Desktop\" & "final.mdb"

strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyDataFile & ";"

lblDatabase.Text = MyDataFile

'init TreeView
tvdata.Nodes.Clear()

cn = New ADODB.Connection
cn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
cn.Open(strCon)

Cursor = Cursors.WaitCursor

' set root node of TreeView.
dbNode = tvdata.Nodes.Add(, , "RootDB", "Database", "DatabaseClose")
dbNode.Tag = "RootDB"

'rst = cn.OpenSchema(adSchemaTables)
rst = cn.OpenSchema(ADODB.SchemaEnum.adSchemaTables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
rst.MoveFirst()

' set table nodes:
Do Until rst.EOF
If rst("TABLE_TYPE").Value = "VIEW" Or rst("TABLE_TYPE").Value = "TABLE" Then
tabName = rst("TABLE_NAME").Value
tabNode = tvdata.Nodes.Add("RootDB", tvwChild, "X" & tabName, tabName, "TableClose")
tabNode.Tag = "Tables"
End If
rst.MoveNext()
Loop

rst.Close()

If tabNode Is Nothing Then
Cursor = Cursors.Default
Exit Sub
End If

rs = New ADODB.Recordset

c = tvdata.Nodes("RootDB").Children
' first table
n = tvdata.Nodes("RootDB").Child.FirstSibling.Index

For i = n To c + n
tabName = tvdata.Nodes(i).Text
' get field name
rs = cn.Execute("SELECT * FROM [" & tabName & "]", 1, 1)
For j = 0 To rs.Fields.Count - 1
fldName = rs.Fields(j).Name
fldNameNode = tvdata.Nodes.Add("X" & tabName, tvwChild, "X" & fldName, fldName, "imgField")
fldNameNode.Tag = "Fields"
Next j
rs.Close()
Next i

' sort top nodes:
tvdata.Nodes(1).Sorted = True
' collapse top node:
tvdata.Nodes(1).Expanded = False

Cursor = Cursors.Default

End Sub

Private Sub tvData_Expand(ByVal Node As Node)

If Node.Tag = "RootDB" Then
Node.Image = "DatabaseOpen"
ElseIf Node.Tag = "Tables" Then
Node.Image = "TableOpen"
End If

End Sub

Private Sub tvData_Collapse(ByVal Node As Node)

If Node.Tag = "RootDB" Then
Node.Image = "DatabaseClose"
ElseIf Node.Tag = "Tables" Then
Node.Image = "TableClose"
End If

End Sub

Private Sub tvData_NodeClick(ByVal Node As MSComctlLib.Node)

Dim nodTag As String
Dim tabName As String
Dim n As Integer

nodTag = Node.Tag

If nodTag = "Tables" Then
'if no Fields in Table
If Node.Children = 0 Then Exit Sub
'read Table name
tabName = Node.Text
'read Fields name
n = Node.Child.FirstSibling.Index
ColHeaders = Node.Child.FirstSibling.Text

Do Until n = Node.Child.LastSibling.Index
' string includes all Fields name
ColHeaders = ColHeaders & ";" & tvdata.Nodes(n).Next.Text
n = tvdata.Nodes(n).Next.Index
Loop

End If

End Sub

End Class

I did not find a solution so far,
any help would be appriciated. I am using
VB studio 2008 in XP operating system

It sais the tvwchild is not declared

ITS URGENT,DONT TAKING % SYMBOL IN TEXTBOX

Sun, 14 Feb 2010 23:49:57 -0700

'Coding for allowing numeric values,backspace and decimal point
If Not IsNumeric(e.KeyChar) And Not e.KeyChar = Chr(8) And Not e.KeyChar = "." Then
e.KeyChar = ""
Er:
MsgBox(Err.Description = "Only Numeric values allowed", vbCritical, Title:="Only Numerical Values")
End If

//I want to add % symbol also to the text box.Then how can i modify my code.how can i divide the value with % symbol by 100.what is the string function to be used