Ik krijg de navolgende melding sinds ik ben overgegaan van Acces 2003 naar Acces 2010;
Het automatiseringsproject categorie bevindt zich niet in het object.
Dit gebeurd in de navolgende procedure;
Public Function funRecordAdd(frmForm As Form, frmSubform As Form, strPopup As String, Optional varOpenargs As Variant) As Long
Dim rst As Recordset
Dim varCurrentKey As Variant
On Error Resume Next
If frmForm.Name = frmSubform.Name Then
If Not funRecht(frmForm.Name, "toevoegen") Then
MsgBox "U heeft niet de rechten om records toe te voegen in dit formulier", vbOKOnly + vbCritical, "records toevoegen"
Exit Function
End If
Else
If Not funRecht(frmSubform.Name, "toevoegen") Then
MsgBox "U heeft niet de rechten om records toe te voegen in dit formulier", vbOKOnly + vbCritical, "records toevoegen"
Exit Function
End If
End If
varCurrentKey = frmForm!txtID
' onthoud current record
If frmForm.Name <> frmSubform.Name Then
If frmForm.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
End If
End If
'geef waarde mee naar popup via OpenArguments
If Not IsMissing(varOpenargs) Then
varOpenargs = varOpenargs & ";"
Else
varOpenargs = ""
End If
varOpenargs = varOpenargs & "titel=record toevoegen"
frmForm.Visible = False
DoCmd.OpenForm FormName:=strPopup, datamode:=acFormAdd, OpenArgs:=varOpenargs, windowmode:=acDialog
frmForm.Visible = True
If Not blnPopupOK Then
Forms(strPopup).Visible = True
DoCmd.RunCommand acCmdUndo
DoCmd.RunCommand acCmdUndo
funRecordAdd = 0
If Not IsNull(varCurrentKey) Then
lngKey = varCurrentKey
End If
DoCmd.Close acForm, strPopup
'cancel
Else
lngKey = Forms(strPopup)!txtID
DoCmd.Close acForm, strPopup
funRecordAdd = lngKey
' haal nieuw sleutel op
If frmForm.Name <> frmSubform.Name Then
frmSubform.Requery
frmForm!txtID.SetFocus
Else
'hoofdformulier
frmForm.RecordSource = frmForm.RecordSource
frmForm!txtID.SetFocus
End If
End If
exitRecordAdd:
End Function
Is er iemand die hier een oplossing voor weet ik ben er te lang uit om dit te vinden heb al van alles geprobeerd.
Groeten,
Chri
Het automatiseringsproject categorie bevindt zich niet in het object.
Dit gebeurd in de navolgende procedure;
Public Function funRecordAdd(frmForm As Form, frmSubform As Form, strPopup As String, Optional varOpenargs As Variant) As Long
Dim rst As Recordset
Dim varCurrentKey As Variant
On Error Resume Next
If frmForm.Name = frmSubform.Name Then
If Not funRecht(frmForm.Name, "toevoegen") Then
MsgBox "U heeft niet de rechten om records toe te voegen in dit formulier", vbOKOnly + vbCritical, "records toevoegen"
Exit Function
End If
Else
If Not funRecht(frmSubform.Name, "toevoegen") Then
MsgBox "U heeft niet de rechten om records toe te voegen in dit formulier", vbOKOnly + vbCritical, "records toevoegen"
Exit Function
End If
End If
varCurrentKey = frmForm!txtID
' onthoud current record
If frmForm.Name <> frmSubform.Name Then
If frmForm.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
End If
End If
'geef waarde mee naar popup via OpenArguments
If Not IsMissing(varOpenargs) Then
varOpenargs = varOpenargs & ";"
Else
varOpenargs = ""
End If
varOpenargs = varOpenargs & "titel=record toevoegen"
frmForm.Visible = False
DoCmd.OpenForm FormName:=strPopup, datamode:=acFormAdd, OpenArgs:=varOpenargs, windowmode:=acDialog
frmForm.Visible = True
If Not blnPopupOK Then
Forms(strPopup).Visible = True
DoCmd.RunCommand acCmdUndo
DoCmd.RunCommand acCmdUndo
funRecordAdd = 0
If Not IsNull(varCurrentKey) Then
lngKey = varCurrentKey
End If
DoCmd.Close acForm, strPopup
'cancel
Else
lngKey = Forms(strPopup)!txtID
DoCmd.Close acForm, strPopup
funRecordAdd = lngKey
' haal nieuw sleutel op
If frmForm.Name <> frmSubform.Name Then
frmSubform.Requery
frmForm!txtID.SetFocus
Else
'hoofdformulier
frmForm.RecordSource = frmForm.RecordSource
frmForm!txtID.SetFocus
End If
End If
exitRecordAdd:
End Function
Is er iemand die hier een oplossing voor weet ik ben er te lang uit om dit te vinden heb al van alles geprobeerd.
Groeten,
Chri