Recent content by vodafrog

  1. V

    Macro issues

    Hello mcbass1 Problem 1 - although your macro spots the problem and halts, the code continues to run step by step, therefore it will continue to carry out the remaining steps. I would suggest that you carry out your checks with code, for example: - IF ME.otherfieldname="Other" and...
  2. V

    is null

    Try an IIF statement in your query, you can then it to give you a value, for example:- IIF(critria,true,false) syntax example IIF(ISNULL(Field1),"Empty","OK") this would show the word Empty if Field1 is null, and OK if it contains any other value. You can change these This IIF...
  3. V

    Detect existence of Exchange Server

    Before you attempt to send any mails you eant to check the status, see the following document, although this uses VBScript you will see the code is very similar to VBA used within Access...
  4. V

    VBA to determine Windows logon time

    Hello GetTickCount only really shows the last time the machine was started up and not the actual user login times. See the following for a method of obtaining the user login times :- http://www.codeproject.com/useritems/Get_Logon_times.asp
  5. V

    Form Filters and use of Me keyword

    This sample database uses five comboboxes in order to choose upto five filters. To cut down the amount code used to create the relevant search criteria they have used the following: - Me("Filter" & intCounter) This peice of code refers to the following Me = refers to the form ("Filter"...
  6. V

    Overflow Error '6' Help

    Overflow error '6' is normally caused by attempting to pass a long value into an integer field. Are you using any code during this process, if so ensure that you have not defined a variable as an integer and then trying to pass a long value to it.
  7. V

    Form autoresizing

    Try Docmd.Maximise on the forms load event
  8. V

    Bring up Shortcut menu on Left-Click

    In MS Access create a blank menu and assign this to the form your control is on. Then create a menu with the options you wish have for your control, and give this a name. On your control enter the name of your shortcut menu in the Shortcut menu bar. it is unusual for any windows application...
  9. V

    I want to print a report and programmatically set the printer name and 'Print to File

    See the following articel os Microsofts website: - http://support.microsoft.com/kb/319317 this is a straight forward approach
  10. V

    How to make a Save File Dialog Box

    See the following thread http://www.access-programmers.co.uk/forums/showthread.php?t=90363&highlight=common+dialog+api You will need to put this code into a module and call it accordingly.
  11. V

    suppress error message

    in the notinlist event use Response=0 then you can add addtional code after it to carry out the next steps.
  12. V

    Access Imports Blank Validation Cells from Excel

    You could create a named range in the Excel spreadsheet that contains the required data, and then import this only. Normally Acess will import the whole worksheet, this is the reason why your validation cells are also being imported.
  13. V

    finding nth record in sql server 7.0 on group

    You should ideally run this as a stored procedure on your SQL server, you can then call the procedure and get the result. See example code below, I assume you have an ODBC datasource, this also assumes you are not using trusted connections to your SQL server: - You will need a userID, password...
  14. V

    Import XL and Update fields

    You could create various update queries to carry out the required updates and then use the following code to execute a query: - DoCmd.OpenQuery "queryname", acNormal, acEdit repeat the instruction for each query you wish to run. You may wish to turn warnings off before you start to run...
  15. V

    combo to text

    if you are using the not in list event you can pass the NewData value to your new form's control: - Private Sub Combo0_NotInList(NewData As String, Response As Integer) DoCmd.openform "Addrecord" Forms![Addrecord].[NewType] = NewData End Sub
Back
Top Bottom