Recent content by bat1799

  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...
Top Bottom