Recent content by groupy

  1. G

    References

    Hi, I have a problem with removing and adding of references. I already looked on the internet for hours, but cannot find a solution. The problem is that my database is used on different Operating Systems and different version of Word (not access). So what i want is, when on a computer is Word...
  2. G

    Public Variables

    OK, Thanks for your replies. I will use the suggestion you came with, in fact I already using it. But it is a stupid that my suggested solotion is not possible. Maybe in a newer version of Access (Access 2006 ????). Best regards
  3. G

    Public Variables

    Hi, I'm sorry but maybe I not clear enough. I have some code like this: Module basTest --------------------------- Public test1 As STring Public test2 As String etc until 15 Function getTestV(varName As String) As String 'This part is not working yet If(basTest(varName) = "") Then...
  4. G

    Public Variables

    Thanks for your reply. But it is not exactly what I looking for, because it still not possible to make the following methode. Public Function getVariable(varName As STring) getVariable = basTest("test1") End function I want to pass a varName As String and not a number. Is this possible?
  5. G

    Public Variables

    Hi Pat or others, I really want to go that fancy way. Because this will make my code must smaller and in my case I can use a loop in stead of using the same code 10 times (setting 10 public variables) But I have no idea how I can refer to a public variable on a variable way. I fancy functions...
  6. G

    Speed Issue

    Thanks for you're reply. About the first question, when I will use the following code: ................... Docmd.setwarnings false Docmd.openquery "YourQueryName" Docmd.setwarnings true ................... Can I replace the "YourQueryName" with a Stored Procedure when I transfer my back-end to...
  7. G

    Speed Issue

    Running query (speed issue) Hi, I have the following question, which way of running query is in general faster or best to use: -------------------------------------------------- DoCmd.SetWarnings False DoCmd.RunSQL ("[SQL STATEMENT]") DoCmd.SetWarnings True...
  8. G

    Label printing

    Thanks a lot for your input. I will give it a try.
  9. G

    Label printing

    Hi, One of the users of my ms access database had the following request: The user want to print 1 special label and 4 normal address labels in one action (special label report). At the moment the user must start the special label report, print 1 label. Close report, open standard address label...
  10. G

    Set Printer Settings (Please help)

    Hi, I tried to set the printer setting's before I start a report. In Access 2002 it works easy (see code below) ********************************* 'Change printer settings Set prtFirst = Application.Printers(0) With prtFirst .PaperSize = nPaperSize .Orientation = nOrientation...
  11. G

    Runtime error '3075' in CreateQueryDef

    Hi, After lots of trying I found the solution. You can change the ' in "". Example: SELECT tblClIENTClients.clientCode & "" "" & ""10C"" & tblPUBLinkClientPub.copies AS Code, etc. I hope this can help also other people.
  12. G

    Runtime error '3075' in CreateQueryDef

    Hi, I have a problem. I made a sql query in the query part of MS Access. The query works fine so now I want to create the query in VBA with the command CreateQueryDef. But the query gave the 3075 error. exportDefinition = "SELECT tblClIENTClients.clientCode & ' ' & '10C' &...
  13. G

    Basic thinks

    Hi Mile-O-Phile, Thanks for your answers (again). But only my following question was not clear enough I think: How can I disable for example 20 lines of code. I mean, when I have writen a lots of good, but I want to disable big parts because I have error's, how can I do that. sub example...
  14. G

    Basic thinks

    Yes, I found a other answer, now on the question "How can I test of a table, report or form exist." Answer: If (IsNull(DLookup("MSysObjects.Name", "MSysObjects", "MSysObjects.Name = " _ & "'" & [name object] & "'")) = False) Then Else messageBox "[name object] don't exist!"...
  15. G

    Basic thinks

    You're right, but it is not easy, so I put everythink I can find in this thread. When there question are left, I will ask again. Answer on question, 'How can I get a list of all table, report, for example to use in a combo box': SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects; With...
Back
Top Bottom