Search results

I have 1 user who is constantly getting poor performance from my front end, combo boxes hanging and complete crashes. On investigation it looks like all my recordsets will not close on his machine. I am using the below code to close all of my recordsets at the correct time and searched the...

To do you initilization you could have an AutoExec Macro and leave the startup form as the form for users to see.

Bit of a two sided question this, 1) How can I specify where in a table I want to insert a column, I would like the ID column at the begining, but this code always appends to the end: DoCmd.RunSQL "ALTER TABLE OS_MAINb ADD COLUMN [ID2] BYTE" 2) Now I am sure this is a simple one, how do you...

I am running the below using a function that sets up the recordset and connects to a database. I know this bit works as I use it all through the DB. The only differance in the below is that it is a more complex query envooving left joins. Can I use a left join like this in a recordset...

Got it now! DoCmd.TransferDatabase acExport, "dBASE IV", "c:\temp", acTable, "Currency", "Currency.DBF" Thanks

Hi using access 97 how do I programmatically export a table in DBF format? You can do this by right clicking the table and exporting but I can not find the function in VB. Thanks

Cheers I have got around it by populating a recordset with a query result and putting that in a variable. Much neater. Dim cdoConfig Dim msgOne Dim address As String Dim icdb As Database Dim rst As Recordset Dim SQL As String Dim body As String Dim RST2 As Recordset SQL = "select email from...

Thanks John, I was thinking about doing just that, but i didnt think it was very "neat" as I would end up with a load of files on my C:\ drive. Not really an issue just wanted to keep it all in the code. Cheers Richard

Hi I have got my emails working fine and I can add an atachment from a drive, but how do I add a query or a report as an attachment? Using teh sendobject function its simple but i cant quite get it to work with CDDO. Dim cdoConfig Dim msgOne Dim colAttachFiles() As String Set cdoConfig =...

That looks like what it was there were some missing ActiveX refrences on the users machine. Sorted now. No idea why it was falling over on Ucase:rolleyes:

I have a field that I want always be stored in Upper case so use the Ucase$ function: Forms![CyclicJobInput].JobName = UCase$(Forms![CyclicJobInput].JobName) It works fine on an XP machine but on a Win2K machine it errors saying it cant find the function. Although I can see it in the VB object...

UncleJoe you hit the nail on the head I knew it was something like that but I couldnt quite get teh syntax right. THANK YOU :)

I have done this hundreds of times before but this bit of code just will not work, I am sure its a simple problem but i cant see it. Please help! I am getting a value prompt box when I click OpenQuerys. Private Sub OpenQuerys_Click() Dim v_MONTH As String Dim stLinkCriteria As...

because I am import 60+ files with differant file names and the 60 will change each month.

Thank you Fuga that has put me on the right track DIR() gives me a file name but it defaults to C:\documents and settings\user rather than the loaction I am trying to get it to look in. Private Sub Command0_Click() strtablename = Dir("C:\Temp\CI\*.xls") strfilename = Dir("C:\Temp\CI\*.xls")...

Hi, I am trying to import any spreadsheet that is in a given folder in this case C:\temp\CI. I can only seem to import 1 at a time how do a loop? and how do I make the table name the same as the XLS file it is importing? Private Sub Command0_Click() DoCmd.TransferSpreadsheet acImport...

I had a look at the search results and I couldnt see what I needed. I want to import spreadsheets and create the tables using the files names of the XLS. This is what I have so far anyone able to help? Private Sub Command0_Click() DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97...

Now I never knew that command existed thank you!

I have a bit of code that uses a froms JobNumber (which is an autonumber from a table) and uses it to append some informatin to the same table. My question is, when does the autonumber shown in a form appear in the table. If I use my code as it is now when it pick ups the jobnumbe it is not yet...

I know something is wrong with the update part of this sub can anyone see what i am doing worng? Private Sub Check127_Click() Dim randpass As Integer Dim formJobNumber As Integer Randomize randpass = Int((999999 * Rnd) + 100000) formJobNumber = Forms![CyclicJobInput].JobNumber DoCmd.RunSQL...