Search results

  1. B

    Error 13 Type mismatch

    Just glad you have it working :) Peter
  2. B

    Let's rebuild!

    Unless you seek serious information about what is happening :( Then you have to try to mine the nuggets of information out of pages of dross. My sugestion was not to do away with your playground but to add a fenced off area for those who dont want to play games. Peter Peter
  3. B

    Query into Variable

    try this mod to get the Parameters in place then Dim qdf As DAO.QueryDef Dim prm As DAO.Parameter Dim rst As DAO.Recordset Dim Point As Integer Set qdf = CurrentDb.QueryDefs("QryMagicPoints") For Each prm In qdf.Parameters prm.Value = Eval(prm.Name) Next prm Set rst = qdf.OpenRecordset()...
  4. B

    Error 13 Type mismatch

    You are overcomplicating the call, replace:- Dim MnFrm As Form Set MnFrm = Forms(Application.CurrentObjectName) modCreateTable.CreateNewTableFromTextboxes (Forms(MnFrm).Form) With:- Call CreateNewTableFromTextboxes(Me) HTH Peter
  5. B

    Configuring primary key

    in tblCounty you would add the primary key from tblState as a forign key Peter
  6. B

    Query into Variable

    Try it his way Dim rst As DAO.Recordset Dim Point As Integer Set rst = CurrentDb.OpenRecordset("QryMagicPoints") Point = rst!Points set rst = nothing HTH Peter
  7. B

    Yet another Merging Question (Word not involved)

    I think that because of the incompleteness of the data you are going to have problems. I would work first on reducing the number of records you have to vet by matching all fields and deleting those that match form the smaller table. How well formed are the address fields between the tables...
  8. B

    Building A String From Multiple Records

    Glad you have it sorted :)
  9. B

    relink code not working

    Yes it does :) Checking with a DB linked to my c drive I get td. connect = ";DATABASE=C:\12345\bencal.mdb" Mid(td.Connect, 11) ="C:\12345\bencal.mdb" Dir(Mid(td.Connect, 11)) = "bencal.mdb" The dir function proves the file/path exists. I think you need to add some debugging code to check just...
  10. B

    Let's rebuild!

    And maybe a more serious "watercooler" area with no flaming and threads are not hijacked. This will give more chance for disscussion about the forums and how they are run and new ideas to appear. Not saying that the old should go :) just to add a moderated section. Peter
  11. B

    Building A String From Multiple Records

    It looks to me like you need to normalise your data. Split the old data table in two with one table having InfrustructureID and ORG_ABBR the other with everything but ORG_ABBR. But can join them back together in a query to get what you have now or run the original code to 'string' ORG_ABBR...
  12. B

    Type Declaration error

    In any module go Tools>References... Scroll down and select "Microsoft DAO 3.6 Object Library" Ref number may vary! Change the to Dims to Dim DbsAtual As Dao.Database Dim RstRel As Dao.Recordset HTH Peter
  13. B

    Building A String From Multiple Records

    Create another table called ClientsText with the same structure as Clients and see if this code does what you need. Function MakeList() Dim rst As DAO.Recordset Dim rstSave As DAO.Recordset Dim strSql As String Dim tmpID As Long Dim tmpStr As String strSql = "SELECT Clients.* FROM Clients ORDER...
  14. B

    Use word from Access

    Not tested but this should work. Dim appWord As Object Dim wdDoc As Object Dim strFilePath As String strFilePath = "C:\Stachel\db3\Feld.doc" Set appWord = CreateObject("Word.Application") Set wdDoc = appWord.Documents.Open(strFilePath) wdDoc.Variables("Produkt").Value = "SMC ßßßßßßß"...
  15. B

    Scrollig SelectedItem in LB

    you will need to either put the records in using Callback (see so you pick the order or have a hidden field that controlls the sort order and change that to reflect the selection and...
  16. B

    Let's rebuild!

    Maybe a little traitorous, but I have just downloaded OO2 and am bound to need help with it! So maybe a forum for OO2? Peter
  17. B

    Short cut to insert text

    Lowe case "m" I think. The code as is will only work in the field its coded to run in. to make it run at anytime you will need to do as ghudson says and run the code from the forms keypress event. to find kecodes use debug.print KeyCode in the event and it will print each press to the debug...
  18. B

    What happened to the forum?

    The forum has been Hijacked, check out the water cooler for details. Peter
  19. B

    Has the forum been hijacked?

    It seems to be loggin related. I get the same with Bat17 and had to create this new nick to use the forums :( Peter
  20. B

    Date Conversion

    if you rename the file to a text file then you will get a Wizard when you import which will give you more choices. You could use a update query to put real dates into a new column in the table MyDate :dateserial(right([TextDate],4),left([textDate],2),mid([textdate],3,2)) Air code :) but...
Top Bottom