Search results

I have the following code Public Sub MergeNotes() Dim db As Database Dim rs As Recordset Dim strSQL As String Dim x As String strSQL = "SELECT Note.NoteID, [noteTime] & ' - ' & [Reason] & ' - ' & [Result] & ' - ' & [NoteContact] & ' - ' & [NoteText] AS NoteDetail " _ & "FROM ([Note] INNER JOIN...

<?xml version="1.0" ?> - <compactdiscs> - <compactdisc> <artist type="individual">Frank Sinatra</artist> <title numberoftracks="4">In The Wee Small Hours</title> The above is a sample of code from an xml file. I have code to read the tags <compactdisc> <artist> and the data Frank...

For sometime now I have been suffering and struggling to find a solution to my problem. I have a number of customers using my products very successfully on Win 98 Pier to Pier networks. When they upgraded to Windows XP they commented on how slow the db was to open when more than one person was...

I have a database which is split FE on workstation BE on server (usually a workstation serving the data file pier to pier). With Windows 98 and 2000 everything is OK, with windows XP the opening speed of the database is OK when the first person opens it, but as soon as a second person enters it...

I have a tiff image displayed on a form. I need to be able to rotate this image 90 degrees to the left or right. Is there any code to acheive this? John

I am using keycodes to move dates in a text box forwards and backwards. Keycodes 189 & 187 represent the + and - on the QWERTY part of the keyboard. I want to use Shift and + but don't know how to get the two to work together. What I have so far is posted below. Private Sub...

I have the following sql statement. strSQL = "SELECT RevEntry.OperatorID, RevEntry.RevTypeID, RevEntry.CampaignID, RevEntry.HolidayProgramID, " _ & "RevEntry_Sub.MemberID, Sum(RevEntry_Sub.Pax) AS SumOfPax, Sum(RevEntry_Sub.Bookings) AS SumOfBookings, " _ & "Sum(RevEntry_Sub.Revenue) AS...

I have a problem with the code below. The sql statements work fine, the line giving me the problem is Reports!R_RevenueByOp.RecordSource = strSQL When I open the db and run the code it works perfectly. When I run the code for a 2nd time it crashes the db. It exits in less than 1/2 a second and...

Does anyone know of an easy way to set up a report showing the top 10 results only? I Can do this using the counter method and cancel event etc but the totals on the report footer sum all of the figures in the query and so are incorrect. I know microsoft document a Dynamic Counter but due to...

I have created the following function Public Function CompileDb() If Not IsCompiled Then DoCmd.RunCommand acCmdCompileAndSaveAllModules End If End Function If I run this from within the code window it works fine, however if I run it from a cmdbutton or a macro it errors out: Error 2046 the...

How do you find your computer's workgroup through code? I have the computer name but am stuck on finding the workgroup

I would like Access to check which version of windows is running on the PC. I do not need to know which service release, just Win98, Win2000, Winxp...etc. This I can then use to determine where certain Windows apps are i.e. Calculator. All help greatly appreciated.

On some computers the send object works fine to outlook or outlook express but in a couple of instances i get the error message 2287 can't open a mailsession. Ive checked to see that outlook express is the default program but can't find out why the error occurs.

If this works Dim dbs as Database Dim D Set dbs = Currentdb D = Year(Forms!F_Archive!EndDate) ‘ e.g. 15/12/2000 dbs.Execute "Insert Into ArcHD Select * From Holiday_Details WHERE ((Year(Date_of_Departure)<=" & D & " AND (HolidayID)>" & 1 & "));" with Year, why doesn’t it work below without...