jrbarnett > I just did everything you said.
I set permission for ROLE and added the member to that role and also i give individual permission to user for SP.
It is working with SA (DBO) very fine, but not with other accounts even having full permission i am really confused.
is there anyother way to or CODE to user instead of
DoCmd.OpenStoredProcedure......
here is my code have a look
-----------------------------------------------------------
Dim msg, Style, Title, Response
msg = "The pipeline contract will permanently be converted to an actual contract" & vbNewLine & "Do you want to accept this conversion to occur?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "convertion" ' Define title.
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then: GoTo nextmain
'ElseIf Response = vbNo Then ' User chose No.
Me.Undo
Exit Sub
nextmain:
DoCmd.SetWarnings False
If Me.CRIS_No.Value <= 10001 Then
MsgBox ("Please enter a Real CRIS number and then convert")
Me.CRIS_No.SetFocus
Else: GoTo nextcondition
End If
Exit Sub
nextcondition:
Dim strvisitid As Integer
On Error GoTo Err_CRIS_NO_AfterUpdate
'Call DoCmd.RunCommand(acCmdSaveRecord)
Me.SetFocus
If Me.Dirty = True Then
DoCmd.RunCommand acCmdSaveRecord
End If
'DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenStoredProcedure "Contract_Temp_converter", acViewNormal, acReadOnly
DoCmd.OpenStoredProcedure "Contract_Temp_Deleter", acViewNormal, acReadOnly
DoCmd.OpenStoredProcedure "Contract_temp_forecast_deleter", acViewNormal, acReadOnly
DoCmd.OpenForm "Contract_temp_convert_timer", acNormal
DoCmd.Close acForm, "contract_temp_singleed"
DoCmd.SetWarnings True
Exit_CRIS_NO_AfterUpdate:
Exit Sub
Err_CRIS_NO_AfterUpdate:
If (Err.Number <> "30014") Then
MsgBox Err.Description
Else
Me.SetFocus
If Me.Dirty = True Then
DoCmd.RunCommand acCmdSaveRecord
End If
'DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenStoredProcedure "Contract_Temp_converter", acViewNormal, acReadOnly
DoCmd.OpenStoredProcedure "Contract_Temp_Deleter", acViewNormal, acReadOnly
DoCmd.OpenStoredProcedure "Contract_temp_forecast_deleter", acViewNormal, acReadOnly
DoCmd.OpenForm "Contract_temp_convert_timer", acNormal
DoCmd.Close acForm, "contract_temp_singleed"
DoCmd.SetWarnings True
End If
Resume Exit_CRIS_NO_AfterUpdate
DoCmd.SetWarnings True
----------------------------------------------------------
regards,