hehe, I didn't think about it, I did ... oh never mind :doh:

Way to go Susie :) Susie gets a 5+

You could use the FlatStyle options, Unpressed is Standard, Pressed I believe if represented as Flat.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.FlatStyle = FlatStyle.Flat Then
Button1.FlatStyle = FlatStyle.Standard
'Change The Appearance Back To UnPressed
Else
Button1.FlatStyle = FlatStyle.Flat
'Go And Do Whatever And Look Like The Button Is Pressed
End If
End Sub

Hope this helps :)

Here have a 5 for patience and being...

really an export in SQL

;)

Ditto, 5 just because of the results of your investigation :)

Seems everybody is paying Afghanistan money. Our Prime Minister (the ginger ninger) has just announced that we will be giving Afghanistan three hundred million dollars to help them adjust prior to our troop withdrawal in 2014. I wonder where that money will be spent or perhaps who's pocket. :~

Yes that's right, you keep the values you are inserting/updating/deleting then call a routine to record the changes in the ascii text audit file. :) Re Getting data from the DB, I'm sorry but I don't know how to retrieve data from SQLServer from past transactions, I'm sure it's possible from the transaction log. But in my circumstances it's been easier to just store the old values and new values when they happen to variables then send to the ascii log file.

Hi jojoba2011, You get the values you need to save from the front end application, what I mean to say is the values you are using in the database insert or update query are also used for the text report audit trail. In the case of the original values that are being replaced, they are stored as a variable when the update/insert page is first populated. Do you understand what I'm saying?

Sure, this is a snippet from a routine in VB6, but it would be easy to convert it to VB.Net. In this instance I'm recording the method of payment and amounts from each transaction. If the log.txt file does not exist then create it, otherwise append to it. You will notice this particular log file is called LogReturns.txt and it's in the root directory of the program executable. Hope this is what you are looking for.

On Error Resume Next
Dim fso As New Scripting.FileSystemObject
Dim mFile As String
Dim txtfile As Object
mFile = "/LogReturns.txt"
If fso.FileExists(App.Path & mFile) Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.OpenTextFile(App.Path & "/LogReturns.txt", ForAppending)
Else
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile(App.Path & "/LogReturns.txt", True)
End If
Dim mVar As Integer
txtfile.WriteLine (" ")
txtfile.WriteLine ("Receipt Number : " & recReceipt.Fields("ReceiptNum"))
txtfile.WriteLine ("Member Number : " & recReceipt.Fields("MembNum"))
For mVar = 0 To intMoviesReturnCount - 1
txtfile.WriteLine ("Movie Number(s): " & arrMoviesReturned(mVar))
Next mVar
txtfile.WriteLine ("Rec Date & Time: " & recReceipt.Fields("ReceiptDateTime"))
txtfile.WriteLine ("Amount Payable : " & Format(recReceipt.Fields("Amount"), "$0.00"))
' v1.0.159 : 26-Jul-2006 : JPG : Added CashNett value to report
txtfile.WriteLine ("Cash Nett : " & Format(recReceipt.Fields("CashNett"), "$0.00"))
txtfile.WriteLine ("Cash Tendered : " & Format(recReceipt.Fields("CashTendered"), "$0.00"))
txtfile.WriteLine ("Eftpos Selected: " & Format(recReceipt.Fields("Eftpos"), "$0.00"))
txtfile.WriteLine ("Cheque Provided: " & Format(recReceipt.Fields("Cheque"), "$0.00"))
txtfile.WriteLine ("Credit Card : " & Format(recReceipt.Fields("CreditCard"), "$0.00"))
txtfile.WriteLine ("GiftCard Used : " & Format(recReceipt.Fields("GiftCardUsed"), "$0.00"))
txtfile.WriteLine ("Discount : " & Format(recReceipt.Fields("Discount"), "$0.00"))
txtfile.WriteLine ("Transfer : " & Format(recReceipt.Fields("DebitMemberBalance"), "$0.00"))

txtfile.WriteLine (" ")
txtfile.WriteLine ("\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*")
txtfile.Close
Set fso = Nothing

May the force be with you.... yeah right :laugh:

If all the PC's are the same type, why not use Norton (Symantec) Ghost? All you need to do is install software on one PC, then create a Ghost Image of that computer. Then use that image to re-image all the other computers in the class room. It doesn't matter what the students do to their PC whilst in a class session, once it is finished run the multicast to re-image all the PC's and they are back to where you began before your students started "playing around" with the individual configurations. ;)

Basic I would imagine would have been everybody's first programming language, it was certainly mine and not through and school either. I was in my late thirties when the TRS80 then the Comodore64 were released. I was hooked on computers after those two and moved rapidly to business software on my new IBM. Does anybody remember writing in Clipper and compiling it to an executable? Then using dBIII+ database files to store the data. Times have changed!!! I personally this programmers should be exposed at as many languages as possible, for appreciation of the strengths and weaknesses of them all.

May I offer a possible solution, if all of the database actions are being "called" by a front end application then another method to maintain an audit trail is to simply append and database change details to a ascii log file (simple text file). :) For example where I work if anybody makes a change to any database field the action is recorded also to the log file. Then if we need to access who made the changes and what changes were made on any particular date in time, even years ago it's a simple matter to check the log file. When it get's too big archive it and start a new one. :cool:

perhaps, Nipples are the new fast food. I certainly know I'd go for 'em ;P

As suggested by Richard, the only way to learn is by doing it yourself. I doubt anybody will just create a page and hand you the code. Why not get an understanding of the page you mentioned, by looking at it's source code. Copy the code to notepad or similar, save it with a htm extension, then start modifying the code to understand what's happening and why. Read a good book on HTML, then move onto either JavaScript and CSS. The once you have those skills start adding server functionality to the page using either Classic ASP or ASP.Net

Wow, that's a pisser... much better than Googling "what's the time in such and such" :thumbsup:

You just have to test if the value is a null first. Using a IsDBNull function call. :) http://www.freevbcode.com/ShowCode.asp?ID=5810 or http://msdn.microsoft.com/en-us/library/tckcces5(v=vs.71).aspx

I believe a score up to 2 is considered a down, and 4 upwards an up vote. A 3 is anybodies guess. I know it's confusing, early days I used to give a 2 or 3 if I liked something without knowing I was in fact posting a negative score. :confused:

I loaded the code below and it works, it's a little simplistic however by playing around with it I'm sure you can improve your skills by making adjustments. :-O Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click Dim pRowNo As Integer pRowNo = Val(DataGridView1.SelectedCells(0).RowIndex.ToString()) If DataGridView1.Rows(pRowNo).Cells(0).Value = 1 Then DataGridView1.Rows(pRowNo).Cells(1).Value = DataGridView1.Rows(pRowNo).Cells(2).Value Else DataGridView1.Rows(pRowNo).Cells(1).Value = "" End If End Sub

I find invoking a "Chook" curse aimed at Microsoft works. How do I know this? I rang them one day and asked if they had and Chooks. They replied "No", so it must work!!