Database Challenged
Registered User.
- Local time
- Today, 08:37
- Joined
- Jun 2, 2010
- Messages
- 15
So, I'm a little further along in my updating/modification of my database. We paid someone last year to do some VBA coding for us and - to be honest - I'm clueless as to how it works. (But we have no money to get someone to do all THIS work so....I'm doing it.)
Anyway, I'm getting an error that says:
tblResources is a linked table with some properties that can’t be modified.
Anyone have any idea what this means? It's in English but it might as well be in Swahili. I did some modifications to the back end to a field that should have been a lookup but kept coming up as a yes/no, despite the fact I was inputting everything AS a lookup. So I deleted that field and re-formatted it/input it/whatever you want to call it and now the front end is harassing me!
Thoughts?
Ok, I went back in. It seems the changes I made are sticking but the data in the back end is not being "linked" to the data in the front end. I got this error.
Private Sub Active_Title_AfterUpdate()
On Error GoTo ErrHandler
If MsgBox("Make " & Me.Parent.lboResSelect.Column(1) & " inactive?", vbOKCancel, "Inactive Confirmation") = vbOK Then
DoCmd.Save
Forms!frmARM!lboResSelect.SetFocus
Forms!frmARM!lboResSelect.Requery
Forms!frmARM!txtResSelLstCount.Value = Forms!frmARM!lboResSelect.ListCount
Forms!frmARM!lboResSelect.Value = 0
Forms!frmARM!lboCompList.RowSource = "SELECT tblComponents.ComponentID, tblLnkResComp.ResourceID, " _
& "tblComponents.Description, tblComponents.DateofExecution " _
& "FROM tblComponents INNER JOIN tblLnkResComp ON tblComponents.ComponentID = tblLnkResComp.ComponentID " _
& "WHERE (((tblLnkResComp.ResourceID) = 0)) " _
& "ORDER BY tblComponents.Description;"
Forms!frmARM!txtCompListCount.Value = Forms!frmARM!lboCompList.ListCount
Forms!frmARM!TabCtlResource.Visible = False
Forms!frmARM!TabCtlComponents.Visible = False
Else
Me.ActiveTitle.Value = 1
End If
ExitSub:
Exit Sub
ErrHandler:
If Err.Number <> 2046 Then
MsgBox "Error in Active_Title_AfterUpdate: " & Err.Number & " - " & Err.Description
End If
Resume ExitSub
End Sub
Anyway, I'm getting an error that says:
tblResources is a linked table with some properties that can’t be modified.
Anyone have any idea what this means? It's in English but it might as well be in Swahili. I did some modifications to the back end to a field that should have been a lookup but kept coming up as a yes/no, despite the fact I was inputting everything AS a lookup. So I deleted that field and re-formatted it/input it/whatever you want to call it and now the front end is harassing me!
Thoughts?
Ok, I went back in. It seems the changes I made are sticking but the data in the back end is not being "linked" to the data in the front end. I got this error.
Private Sub Active_Title_AfterUpdate()
On Error GoTo ErrHandler
If MsgBox("Make " & Me.Parent.lboResSelect.Column(1) & " inactive?", vbOKCancel, "Inactive Confirmation") = vbOK Then
DoCmd.Save
Forms!frmARM!lboResSelect.SetFocus
Forms!frmARM!lboResSelect.Requery
Forms!frmARM!txtResSelLstCount.Value = Forms!frmARM!lboResSelect.ListCount
Forms!frmARM!lboResSelect.Value = 0
Forms!frmARM!lboCompList.RowSource = "SELECT tblComponents.ComponentID, tblLnkResComp.ResourceID, " _
& "tblComponents.Description, tblComponents.DateofExecution " _
& "FROM tblComponents INNER JOIN tblLnkResComp ON tblComponents.ComponentID = tblLnkResComp.ComponentID " _
& "WHERE (((tblLnkResComp.ResourceID) = 0)) " _
& "ORDER BY tblComponents.Description;"
Forms!frmARM!txtCompListCount.Value = Forms!frmARM!lboCompList.ListCount
Forms!frmARM!TabCtlResource.Visible = False
Forms!frmARM!TabCtlComponents.Visible = False
Else
Me.ActiveTitle.Value = 1
End If
ExitSub:
Exit Sub
ErrHandler:
If Err.Number <> 2046 Then
MsgBox "Error in Active_Title_AfterUpdate: " & Err.Number & " - " & Err.Description
End If
Resume ExitSub
End Sub
Last edited: