Recent content by bat1799

Just glad you have it working :) Peter

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

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()...

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

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

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

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

Glad you have it sorted :)

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

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

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

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

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

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 ßßßßßßß"...

you will need to either put the records in using Callback (see http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office03022000.asp?frame=true) so you pick the order or have a hidden field that controlls the sort order and change that to reflect the selection and...