Spiel79

Thanks JABE, that works. :D

Hello everyone. I have a datagrid with a few columns. What is the code to if I wanted to change the cursor to a hand everytime the mouse passes over any cell in the first column? Thanks.

Hello everyone. I am trying to have two listboxes with two buttons (Add/Remove). Each time the highlight is on a particular item in listbox 1 and the user clicks Add, that item is cut from box 1 and pasted in box 2. The reverse happens when the Remove button is clicked (ie, cut from 2, paste in 1). Any suggestions? Thanks.

Hello everyone. I created a datagrid in which I programmatically added the tables and columns. There is a slight problem. I am trying to get only the header text to be displayed in bold lettering. I can't seem to. Whenever I change the properties for HeaderFont only to bold in design time, it doesnt work. I have to change both the Font and HeaderFont properties to bold. When I do that both the column headings and the entries are in bold which is not what I want. How do I make only the column headers bold? Thanks.

Thanks for that Spiro. Works now. :D

Hello all. I have a timer in a form. I want this timer to check at the given interval, to see if the form has been minimised and if so, to restore it. Can someone please let me know what the code should be to achieve this? Thanks.

Hello everyone. I have a form which has about ten radio buttons. When the user doesnt make any selection, how do I catch this in code? I am presently doing the following since its only ten radio buttons, but what happens if I have a 100?! How do I loop all the radiobuttons checked status? Thanks. If Me.RadioButton1.Checked = False And Me.RadioButon2.Checked = False And '.... continues for ALL the buttons Then MsgBox("Please make a selection") End If

You need to add another single quote before your quote: Dim strName As String = "Michael J''son" Hope that helps.

Hello everyone, I have a form which has a CR Viewer. I declared a statement as follows: Dim crReportDocument As Summary 'And elsewhere in the code crReportDocument = New Summary() I then go on to add Summary.rpt to my project and it works fine. However, the minute I make changes to the .rpt file, I am unable to run the program. I get an error saying that type 'Summary' is not found. Anyone knows how to get around this? Thanks.

You might want to dispose of any commands before closing the connection: Dim MyCommand As New OledbCommand("your command string here") Dim MyReader As OledbReader(MyCommand, MyConnection) MyReader.ExecuteReader() 'Continue with the rest of the code... MyCommand.Dispose() MyConnection.Close() Hope that helps

Hello everyone. Presently, only when you use a Warning, Stop or no style, you get a sound for a message box. Is there a way to include a sound when using the Question Mark style? Thanks.

Thanks for that sjn78, works now.

Hello everyone. I have a datetime picker whose display value is set to Today(). Is there anyway I can disable past dates so that the user can select a value only starting from today and after? Thanks.

Will try it out, the one who was. I just need to change the "2004" to Today.Date. Otherwise, I will only be working with 2004 and years which are NOT 2004. And I don't intend to modify the code once every year :p. Oh, and yes, there are always 3, and only 3, characters before the year. Thanks.

Thanks the one who was. I guess the idea is to look at the LAST row entry in the database read off the 4th to 7th characters and compare them with Today.Year. If its the same, I can use the old method. Otherwise, I would re-initialise the last seven digits to Today.Year & 001, and subsequently increment this by one for each added row. Will try working on it but if anyone else has any other pointers, please post them. Regards.