First, VB doesn't use wild cards comparing strings. It also doesn't do regular expressions natively. You could use a third party regular expression control like the Regular Expression Library (http://download.com.com/3000-2070-5588590.html?tag=lst-4-10) to validate the input. The other option would be to build another string by scanning the input string and replacing each number with a # character and each letter with a % character. Then your code snippet would work.

If you're trying to insert into a database, just double-up the quotes, so : INSERT INTO table VALUES 'O'Connor' becomes INSERT INTO table VALUES 'O'**'**Connor' have some functions to do this, or just use a replace. This approach has the advantage that the string is stored with the apostrophe in place "Now I guess I'll sit back and watch people misinterpret what I just said......" Christian Graus At The Soapbox

The error you mention generally occurrs when attempting to open an ADODB.Recordset object when it's already open - if you're reporting from a DB, this will prob be the cause, but suspect that it won't be in your code? Does that help? "Now I guess I'll sit back and watch people misinterpret what I just said......" Christian Graus At The Soapbox

try this and let me know :) If RS.BOF And RS.EOF Then MsgBox "No orders yet today", vbExclamation, "No records returned" Conn.Close rs.Close Set Conn=Nothing Set rs=Nothing Unload Me Exit Sub End If

You can use RTF (using msWord for example) and convert them to *.hlp file (traditional Winhelp) I read about that in (SAMS teach yourself VB6 in 12 days).. but I did not try it myself

If I'm following you correctly, what you're wanting to do is capture the delete keypress for the datagrid. The only useful way I've found for doing this is to inherit your own datagrid and then override PreProcessMessage to check for the delete key. I use this to confirm deletion before actually carrying it out. The class looks something like this: Public Class DataGridConfirm > Inherits DataGrid Public Overrides Function PreProcessMessage(ByRef msg As System.Windows.Forms.Message) As Boolean > > > Dim keyCode As Keys = CType((msg.WParam.ToInt32 And Keys.KeyCode), Keys) ' If this is a "KeyDown" message and the key pressed was "Delete" ' then we need to verify that the user actually wants to delete ' the record by presenting a messagebox ' Win32.Msg.WM_KEYDOWN just points to an Enum: WM_KEYDOWN=&H100 If msg.Msg = Win32.Msg.WM_KEYDOWN And keyCode = Keys.Delete Then > > > > > If ((MessageBox.Show("Are you sure you want to delete?", "AppTitle", _ MessageBoxButtons.YesNo)) = DialogResult.No) Then ' They've selected no, so simply return Return True End If > > > > End If ' If the user has not canceled the request, flow into the normal ' message processing of the base control Return MyBase.PreProcessMessage(msg) > > End Function End Class After creating this class, just substitute it for the regular DataGrid your currently using. Hope that helps!

this mat be the problem Set RS = Conn.Execute(uSQL) you need to call Conn.Open

No, use a 3rd party control. Or use a ListView and add controls to edit the ListView above it with a Checkbox for the Field you'd edit.

try decreasing the report size in the design...i.e. pull the side inwards a little bit....

im new to programming... but couldn't you use the IsNumeric() function, if u get true back, just convert it to whichever type u need? CInt, CSng, CDec...etc. Sorry if i don't know what i'm talking about ______________________________________________ "I'm not me when I dream...anymore." -TRUSTcompany

Why dont' you try a DTPicker control - resembles a Combo, but when you hit the drop-down, it shows a Month in a calendar control. Still possible to directly enter a date, but won't let you enter an invalid one. To use, right click your toolbox and select components. Scroll down the resulting list, and select "Microsoft Windows Common Controls 2 6.0 SP4", or browse to MSCOMCTL2.ocx. This will add the control to your toolbox, and can be used in the normal way. Help for the control is in MSDN under VBReference->Controls Reference->ActiveX COntrols (Apologies if the preceeding is teaching my granny to suck eggs!)

You don't need the comma after the txtDesc.text. So the correct SQL command should work with: updateSQL = "UPDATE Product SET Description = '" & txtDesc.text & "'" & _ "WHERE Code = '" & txtCode.text & "'" Set RS = Conn.Execute(updateSQL) HTH:cool:

Anonymous wrote: findSQL = "SELECT Price.ProductCode, Product.Description, Price.Price " & _ " FROM ProductType INNER JOIN (Product INNER JOIN (PriceDescription INNER JOIN Price ON PriceDescription.PriceCode = Price.PriceCode) ON Product.Code = Price.ProductCode) ON ProductType.TypeCode = Product.TypeCode " & _ " WHERE (((PriceDescription.PriceDesc) = '" & strDesc & "') AND ((ProductType.Description)='" & strType & "'))" You are selecting data from the Price and Product tables. Which colunns are being edited? To update the Description, you need the primary key of the Product table to be included in the data. To update the ProductCode or Price columns, you need the primary key of the Price table in the data. Without the primary key columns in the data, the proper row can't be located for updating.