Recent content by bigstav

Hi, i am using the code below to export a Query to Excel ... Dim sSQL as String sSQL = "qry_CustomerDataIO_EncompassSiteTemplate" DoCmd.TransferSpreadsheet acExport, , sSQL, exportFilePath, False ... the problem is that on just 1 particular PC (out of 12), the 1st column does not get populated...

Hi, does anyone have a sample .mdb that can store software Test Cases in a suitable format to conform to the IEEE 829 Standard ?. Many thanks. Mark. mark.davies@rwe.com

Hi , is it possible to colourcode rows in a subform datasheet based upon them being higher / lower than the previous row ? ... Subform datasheet has, e.g. Row1 £12.50 Row2 £10.25 Row3 £15.50 So, i would want Row2 to be Red because it is less than Row1 value, but then Row3 to be Green because...

Hi, does anyone know if / how it's possible to download data from a Psion Organiser into an MS Access database ?. I presume i will need to link the Psion to PC, download the Psion data (in ? format. .txt / .scv ?) and then load it into Access tables ?. Any ideas most appreciated.

Hi , i'm trying to execute the following ... DoCmd.RunSQL "UPDATE tbl_Sites RIGHT JOIN (qry_ExportCARLock_DCDA INNER JOIN tbl_MPANs ON qry_ExportCARLock_DCDA.MPANCore = tbl_MPANs.MPANCore) ON tbl_Sites.SiteRef = tbl_MPANs.SiteRef SET [tbl_Sites].[CALock_DCDA] = Now();" and am getting the error...

Even better Hi Guus, i agree your code is tidier. To be honest i just nicked the Random bit off the web for the sake of speed - i was more concerned with GavZ some ideas of how to Loop and insert values into table whilst checking for duplicates.

Acc 97 code Try this ... Public Sub Insert_Access97() Dim strRandNo As String Dim strSQL As String Dim Check Dim db As DAO.Database Set db = CurrentDb() Dim n As Long n = 0 Do If n = 20000 Then MsgBox "Finished" Exit Sub End If TryAgain: strRandNo =...

Repeat Post ????? Hi Gav, i have provided you with the code to do this in your last post, just add below to the OnOpen() of the form, or the GotFocus() of the Text box ... Public Sub Insert() Dim strRandNo As String Dim Conn As ADODB.Connection Dim strSQL As String Dim Check Set Conn =...

Update Moniker is right, DLookup() will check for duplicates b4 insert, code to test will now look something like this ... Public Sub Insert() Dim strRandNo As String Dim Conn As ADODB.Connection Dim strSQL As String Dim Check Set Conn = CurrentProject.Connection Dim n As Long n = 0 Do...

Randoms .... Not sure how you're getting duplicates. I have just run this code to generate 100,000 records, and there are no duplicates - how many are you using ? ! ... Public Sub Insert() Dim strRandNo As String Dim Conn As ADODB.Connection Dim strSQL As String Set Conn =...

Random Number generator ? Hi Gav, try this :- Public Function GenRand() Dim strRandNo As String strRandNo = CStr((Int((999 - 100 + 1) * Rnd + 100))) + "-" + CStr((Int((999 - 100 + 1) * Rnd + 100))) + "-" + CStr((Int((999 - 100 + 1) * Rnd + 100))) MsgBox strRandNo End Function

Many thanks Bob, never thought of that - works a treat !

Hi, i am using the following DLookup in the On_Load() event of my form :- txtNextBillDue = DLookup("[NextBillDue]", "[tbl_BillitReportHistory]", "[SiteRef]='" & Forms![frm_Site]![AccountNo] & "'") It works fine but the problem is that there are multiple values for the "NextBillDue" result...

Try This ! Hi Rob, still not sure why you have a problem, your code looks ok to me. Please see attached .mdb - i have tried to emulate your situation as close as i can and it works fine. There is just 1 Table, 1 Query (to show length of string in Table), 1 Form (to show long string text...

INSERT with Long Strings Hi Rob, i have no problems doing this. I am using Access 2002 (SP03) and the following works fine (The Notes Field is Memo datatype) :- Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String Set Conn = CurrentProject.Connection Set rs = New...