Recent content by chriswies

DCOUNT in the query instead of the SELECT-Statement was the solution Christoph

SELECT idAuswertung, fiPrüffeld, fiAuswertungMaster, fiAuswertungTyp, AuswertungName, AuswertungSort, AuswertungActive, (SELECT COUNT ([idDiagramm]) FROM tkey_Diagramm WHERE fiAuswertung = [idAuswertung] ) AS AnzDiagramm FROM tkey_Auswertung; Why can I not edit the results when I use the...

OK, lookup will give you a String Dim strRetValue as String will work Christoph

Please post your revised Code Please post your revised Code

rec = dlookup("algemeenid","woning","Winingid=2") Christoph

Sorry, I now saw StockTemplatePath and StockSaveLocation. That is not the reason. But check on the double objXLApp. Because you loop through your code and each loop reassigns objXLApp -> slow -> within the loop, the Template is still open and NOT saved, but renamed Christoph

You are opening the same Workbook and let the code run on the workbook. So it seems to be clear the objxlws.name = sheetname will crash btw: Set objXLApp = CreateObject("Excel.Application") Set objXLApp = New Excel.Application This is redundant. Kill one line. Christoph

http://www.fmsinc.com/tpapers/vbacode/Debug.asp Search for 'Track line numbers to pinpoint the location of a crash' on the site. Of course, you need their tool to add the line number. But believe me, their tools are worth every Cent you pay! Christoph

I like it. From my point of view, this kind of error trapping is appropiate for commercial databases. It's worth doing this work. I especially like the way you do different actions using the iError constants. This will definitley be used in my current project, thanks. btw, my error trapping is...

ChrisGow, you had not set the Microsoft Excel Reference. Christoph

Try this... Your macro will work if you use Worksheets instead of Sheets. I shortened your code (and did not work with your deletion and sorting) and used your xlSheet Object-Variable. Christoph Sub DelXlSheet() Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim...

Sorry, I had to change plans yesterday. This is the code I use in a class to extract the Bookmarks into a collection Public Function GetDocumentBookmarks(ByVal strFilename As String) As Collection On Error GoTo Fehler Dim bkmrk As Object Dim colBookmarks As New...

Don't use the Word-FileOpen Dialog. Get the Filename and location in Access and use the Filename as Parameter for the OpenDocument-Method of Word dim objDoc as word.document dim wdBkmrk as word.bookmark for each wdBkmrk in objdoc.bookmarks DAO-commands to create records of bookmarks in...

this should work references.remove references!REFNAME for example references.remove references!Word Christoph PS: It would be fine if you post your code so that others can also learn from what you did!

Try this... Hy, just found this board and registered :) #1 eliminate early binding and choose late binding for you lib.mde. #2 dim ref as reference for each ref in references debug.print ref.name & ref.guid & ref.major & ref.minor next this shows you the exact refenrence of your installed...