Replies

Hans,

I want to link more then one file to a record.
So I created a file that will link to my main table with an ID
Now I want to make a continious form that shows me all the links of a record.
That is working…. but I like your solution for changing the hyperlink field by a button

Is it possible to have a button next to hyperlinkfield?

>>> OKAY I just sould have tried it before I started asking… it is just working the way you descriped it… great thanks

Hans,

Yes, all pivot tables have the same base table, so the same pagefiled names
and the error is already showing at the first pivottable update

Hello Hans,

Here is the code:

Workbooks.Open FileName:=strWrkbookPath & “” & strTmpFile, UpdateLinks:=True
strWrkbookFile = strTmpFile
Set objWS = ActiveSheet
Set objPT = objWS.PivotTables(1)
Set objPF = objPT.PageFields(1)

For Each objPI In objPF.PivotItems
With ActiveWorkbook
For intCount1 = 1 To .Worksheets.Count
.Worksheets(intCount1).Select
ActiveSheet.PivotTables(1).PageFields(1).CurrentPage = objPI.Name
Next intCount1
End With
strFileName = strMI & ” ” & Range(“B1″).Value & ” ” & strMnd & “.xls”
strChkFile = objFS.BuildPath(strWrkbookPath, strFileName)
‘start procedure copy all to new workbook
‘start procedure copy – paste special values
‘start procedure page setup
‘If Not Dir(strChkFile) = “” Then
‘Kill strChkFile ‘verwijder bestand als deze al bestaat
‘End If
‘ActiveWorkbook.SaveAs FileName:=strTmpFile, FileFormat:=xlNormal, Password:=””, WriteResPassword:=””, ReadOnlyRecommended:=False, CreateBackup:=True
‘close workbook
Next
ActiveWorkbook.Close SaveChanges:=False ‘sluit het werkbestand

(I will be on holliday for the next week)

Yes, you are correct… typo in this form… it is pi.name in my code

Hello Hans,

Thanks for the code, but it is giving an error on the line pf.CurrentPage = piName
Fout ‘1004’ tijdens uitvoering : Eigenschap _Default van klasse Pivotitem kan niet worden ingesteld.

what is going wrong?

Hello Hans,

Thanks for the reply.
Unfortunaly this will not help, because I have already more sheets in the workbook, and every sheet has a pivottable that I first have to update an then I have to save the workbook.
Any other ideas?

sorry, that was a typo in the message, the function was correct in Access.

I found the solution by adding the following to the SQL

PARAMETERS [Tot en met welke datum?] DateTime;

Thanks anyway for thinking with me Fran

I found the solution by adding the following to the SQL

PARAMETERS [Tot en met welke datum?] DateTime;

Thanks anyway for thinking with me Fran

Hello Francois,

Thanks for the reaction. We have a dutch version here so the format is dd/mm/yyyy. I tried different formats
Here is the SQL statement:

SELECT CallFormulier.BerekendeDeadline, CallFormulier.DatumIn, Date()-[BerekendeDeadline] AS [Dagen te laat], CallFormulier.Probleembeschrijving, CallFormulier.Callnummer, CallFormulier.OpenCalls, CallFormulier.TijdsduurGeschat, CallFormulier.NG, CallFormulier.GH, CallFormulier.JV, CallFormulier.PS, CallFormulier.Status.Status
FROM CallFormulier
WHERE (((CallFormulier.BerekendeDeadline)<=[Tot en met welke datum?]) AND ((CallFormulier.OpenCalls)=-1) AND ((CallFormulier.GA)=-1))
ORDER BY CallFormulier.BerekendeDeadline;

If I replace [Tot en met welke datum?] with 30-09-2004 the result is up to 30-08-2004, but if I run the query the way it is en type 30-09-2004 in the popup te result shows date up to 14-10-2004

Hello Francois,

Thanks for the reaction. We have a dutch version here so the format is dd/mm/yyyy. I tried different formats
Here is the SQL statement:

SELECT CallFormulier.BerekendeDeadline, CallFormulier.DatumIn, Date()-[BerekendeDeadline] AS [Dagen te laat], CallFormulier.Probleembeschrijving, CallFormulier.Callnummer, CallFormulier.OpenCalls, CallFormulier.TijdsduurGeschat, CallFormulier.NG, CallFormulier.GH, CallFormulier.JV, CallFormulier.PS, CallFormulier.Status.Status
FROM CallFormulier
WHERE (((CallFormulier.BerekendeDeadline)<=[Tot en met welke datum?]) AND ((CallFormulier.OpenCalls)=-1) AND ((CallFormulier.GA)=-1))
ORDER BY CallFormulier.BerekendeDeadline;

If I replace [Tot en met welke datum?] with 30-09-2004 the result is up to 30-08-2004, but if I run the query the way it is en type 30-09-2004 in the popup te result shows date up to 14-10-2004

I already found a solution:

Sub DeleteBadLines()
Application.ScreenUpdating = False
Dim BadLine As Long
With ActiveDocument
For BadLine = .Paragraphs.Count To 1 Step -1
If Len(.Paragraphs(BadLine).Range.Text) < 2 Then
.Paragraphs(BadLine).Range.Delete
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Tanks anyway for thinking with me.

I already found a solution:

Sub DeleteBadLines()
Application.ScreenUpdating = False
Dim BadLine As Long
With ActiveDocument
For BadLine = .Paragraphs.Count To 1 Step -1
If Len(.Paragraphs(BadLine).Range.Text) < 2 Then
.Paragraphs(BadLine).Range.Delete
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Tanks anyway for thinking with me.

Great Hans,

Thanks, I understand the problem now

Great Hans,

Thanks, I understand the problem now