Access can't find my project or Library

[Grimmabeast]

When I try to bring up a database it gives me A error "Your Machinery Customers database or project contains a missing or broekn reference to the file 'FPDTC.DLL' version 1.0. To ensure that your database or project works properly, you must fix this reference." I clicked on "Show Help" and I went to Tools>References and unchecked the reference like it said. I looked up the FTDTC.DLL and it said that it was for another program, so I thought I was safe. It did not fix it. When I try to compile the database it shows, "Compile Error, Cannot find project or library". I clicked on help and all it tells me is to go to reference and uncheck the box that is showing missing. The references is now grayed out and I cannot select it. In the window it shows the following:


Sub Form_Current()
On Error GoTo Form_Current_Err

If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

If ChildFormIsOpen() Then
CloseChildForm
Else
OpenChildForm
FilterChildForm
End If

ToggleLink_Click_Exit:
Exit Sub

ToggleLink_Click_Err:
MsgBox Error$
Resume ToggleLink_Click_Exit

End Sub
Private Sub FilterChildForm()

If Me.NewRecord Then
Forms![Service Work Orders 2].DataEntry = True
Else
Forms![Service Work Orders 2].Filter = "[CustomerID] = " & Me.[CustomerID]
Forms![Service Work Orders 2].FilterOn = True
End If

End Sub
Private Sub OpenChildForm()

DoCmd.OpenForm "Service Work Orders 2"
If Not Me.[ToggleLink] Then Me![ToggleLink] = True

End Sub
Private Sub CloseChildForm()

DoCmd.Close acForm, "Service Work Orders 2"
If Me![ToggleLink] Then Me![ToggleLink] = False

End Sub
Private Function ChildFormIsOpen()

ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Service Work Orders 2") And acObjStateOpen) <> False

End Function


Private Sub Combo38_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CustomerID] = " & Str(Nz(Me![Combo38], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Combo40_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CustomerID] = " & Str(Nz(Me![Combo40], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Add_New_Customer_Click()
On Error GoTo Err_Add_New_Customer_Click


DoCmd.GoToRecord , , acNewRec

Exit_Add_New_Customer_Click:
Exit Sub

Err_Add_New_Customer_Click:
MsgBox Err.Description
Resume Exit_Add_New_Customer_Click

End Sub
Private Sub Command46_Click()
On Error GoTo Err_Command46_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Command46_Click:
Exit Sub

Err_Command46_Click:
MsgBox Err.Description
Resume Exit_Command46_Click

End Sub
Private Sub Search1_Click()
On Error GoTo Err_Search1_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Search1_Click:
Exit Sub

Err_Search1_Click:
MsgBox Err.Description
Resume Exit_Search1_Click

End Sub
Private Sub Combo48_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CustomerID] = " & Str(Nz(Me![Combo48], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub List50_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CustomerID] = " & Str(Nz(Me![List50], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Combo52_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CustomerID] = " & Str(Nz(Me![Combo52], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Customer_Report_Click()
On Error GoTo Err_Customer_Report_Click

Dim stDocName As String

stDocName = "Service Work Orders"
DoCmd.OpenReport stDocName, acPreview

Exit_Customer_Report_Click:
Exit Sub

Err_Customer_Report_Click:
MsgBox Err.Description
Resume Exit_Customer_Report_Click

End Sub

 

[Minty]

What happens if you try and compile it.

(In VBA editor Mneu - Debug¬Compile )

 

[Grimmabeast]

On the error that I put above the words error and Sub ToggleLink_Click()
are hightligted. The word Error$ is hightlighted in blue and the Sub ToggleLink_Click() is highlighted in yellow and has a arrow pointing to it.

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

End Sub
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err

 

[Grimmabeast]

I found another forum that speaks of the same thing of going under references and unchecking the missing file and I did this and saved the file. It got rid of the message but now when I select "view invoices" the only thing that comes up is a blank form to fill out. It is supposed to show all invoices for that customer and you should be able to scroll through them to find the one you need or add a new one.

 

[Gasman]

You can't just remove the missing reference if you are using functions that exist in it.

Normally you would identify the missing reference and then locate it.
Either that or do not use the functions that are in it. Possibly late binding might work, but I do not have much experience with that.

Though this post https://www.office-forums.com/threads/missing-or-broken-reference-to-fpdtc-dll.360245/ seems to infer a compile after unchecking will also work.?

See post 2 here for the full name of the dll http://www.utteraccess.com/forum/Missing-Broken-Reference-t1951332.html

 

[Grimmabeast]

Yes, that is the one missing FPDTC.DLL 1.0. That is the file that I unchecked. Now it won't do anything. I see what you are saying but I am very new at this and I don't know what you are telling me. I have several copies of this database so I can try again. I just don't understand what you are telling me. I don't know what Access year this was created in. I know that this company had 2003 and 2007. When we first realized this, I had just downloaded 2019 on a client's computer and he was checking that Access was working and this came up. The other databases that he had on this same server came up fine. It is not far fetched to think that it may have been 2003 or earlier when it was created I know that he has been using 2010 to edit it recently and I am using 2007. So if you can, dumb your answer down and give me a step by step fix please. If you can't that is ok, I will figure out something.

 

[isladogs]

Thanks to Gasman's very helpful link, I now know its a reference to the Front Page application which was dropped from Office after version 2000 or thereabouts. Do a search for that file on your workstation. If it exists (very unlikely) you will be able to restore the reference.
However if not on your PC, you will EITHER need to obtain a copy from someone/somewhere, then register it and then restore the reference OR replace all code that depends on it.
Someone will explain the next steps if and when you get hold of the file.

 

[Gasman]

I think that link has a link to the file, or google and get from a MS site.
However that thread states that they fixed it by taking the tick out (as you have done previously) and then compiled using Debug/Compile, so it is worth trying that first.?

 

[isladogs]

Hi Gasman

Back in post 4, the OP said that after removing the reference, she now gets a blank form. So whilst worth a try, I think its unlikely that the existing code will compile and work correctly without that reference.

 

[Grimmabeast]

I have found a link to microsoft for the download of the file front page. fphtml.exe. I tried to send you the link so you could check it to see if that is what you are talking about. but I have not had 10 posts yet so it will not let me add the link so I am putting the link without the www infront of it. microsoft.com/en-us/download/details.aspx?id=8139

 

[isladogs]

That link seems to be for fphtml.dll. You previously said it was FPDTC.DLL
Therefore its probably not what you want

 

[Grimmabeast]

You are right. I am just so anxious to get this fixed. I will continue looking. Thank you

 

[Grimmabeast]

how about this one? search-dll.com/dll-files/download/fpdtc.dll.html

 

[isladogs]

Quite possibly but such sites are not always reputable.
The files are not always genuine and in some cases may contain viruses.
If possible use an official MS download... if its is available

 

[Grimmabeast]

I found it in this thread forum office-forums.com/threads/fpdtc-dll-version-1-0-error.635761/

 

[isladogs]

Probably OK but I'd virus check it anyway as with anything whose origin you can't guarantee.

Then you'll need to install to the correct location - as you removed the old reference, I can't advise on the location.
You may well need to register that using regsvr32 - Google the approach needed

Do bear in mind I have never used that reference & its unlikely that many forum members will have done so - not for many years anyway.
So to some extent, you are 'on your own' here.

 

[isladogs]

Just to say that I have a copy of Office 2000 with Front Page installed on a virtual machine. Just looked for that file but its not present on my machine

 

[Grimmabeast]

That is crazy, the last thing I need to do is ruin it for everyone. Is there anyway to recreate this data base by exporting the information and then creating a new data base using the excel file you exported?

 

[Grimmabeast]

Well, I downloaded it, put it in the folder, browsed to where it was at and selected it. It will not come up at all, when you bring up the references it shows it checked off in the list and does not have "missing" infront of it anymore, but it still will not compile and now it does not say anything. it is blank. no error code.

 

[isladogs]

Remember I said that you will probably need to register the file so that it is available for use
Google 'registering a DLL file' and follow the instructions