If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

 
Go Back  dBforums > PC based Database Applications > Microsoft Access > a "workflow" form and table, issue with openrecordset

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old
Registered User
 
Join Date: Oct 2011
Posts: 11
a "workflow" form and table, issue with openrecordset

Hello,
This is my first post .. so please be gentle.. I have a fairly simply "workflow" type of form .. basically to ask the user a question, and based on the answer, it would display the next assigned record or "step" .. answers could be yes / no / ok / or mult choice .. i had copied most of the code from a previous co-workers db, which worked fine .. it was built in access 2000, now i'm using 2003, there was a a few things i had to change .. anyway, no matter which option i choose (yes/no/etc), it gives error 3021, no current record, and stops at the .MoveFirst line .. here is the code, wasn't sure how much to include, so this is all:

Option Compare Database
Const HandleErrors As Boolean = True

Private Sub Close_Click()
On Error GoTo Err_Close_Click


DoCmd.Close

Exit_Close_Click:
Exit Sub

Err_Close_Click:
MsgBox Err.Description
Resume Exit_Close_Click

End Sub

Private Sub Form_Load()
NextStep 1

End Sub

Private Sub No_Click()
NextStep CInt(NoStep)

End Sub

Private Sub Ok_Click()
NextStep CInt(OkStep)

End Sub

Private Sub Response_Values_AfterUpdate()

If Left(Me.[Response Values], 1) = "1" Then
NextStep CInt(Response1Step)
ElseIf Left(Me.[Response Values], 1) = "2" Then
NextStep CInt(Response2Step)
ElseIf Left(Me.[Response Values], 1) = "3" Then
NextStep CInt(Response3Step)
ElseIf Left(Me.[Response Values], 1) = "4" Then
NextStep CInt(Response4Step)
End If

End Sub

Private Sub Start_over_Click()
NextStep 1

End Sub

Private Sub Yes_Click()
NextStep CInt(YesStep)

End Sub

Sub NextStep(NewStep As Integer)
[Current Step].SetFocus
Dim rsCouncilWorkflow As Object
Set rsCouncilWorkflow = CurrentDb.OpenRecordset("SELECT * FROM [Council Workflow] WHERE [Current Step] = " & NewStep & ";")
rsCouncilWorkflow.MoveFirst
[Current Step] = rsCouncilWorkflow![Current Step]
[Question] = rsCouncilWorkflow![Question]
[Yes].Visible = False
[No].Visible = False
[Ok].Visible = False
[Response Values].Visible = False

YesStep = Null
NoStep = Null
OkStep = Null
Response1Step = Null
Response2Step = Null
Response3Step = Null
Response4Step = Null

If IsNull(rsCouncilWorkflow![Yes]) = False Then [Yes].Visible = True: YesStep = rsCouncilWorkflow![Yes]
If IsNull(rsCouncilWorkflow![No]) = False Then [No].Visible = True: NoStep = rsCouncilWorkflow![No]
If IsNull(rsCouncilWorkflow![Ok]) = False Then [Ok].Visible = True: OkStep = rsCouncilWorkflow![Ok]
If IsNull(rsCouncilWorkflow![Response Values]) = False Then
[Response Values].Visible = True
[Response Values].RowSource = rsCouncilWorkflow![Response Values]
Response1Step = rsCouncilWorkflow![Response 1]
Response2Step = rsCouncilWorkflow![Response 2]
Response3Step = rsCouncilWorkflow![Response 3]
Response4Step = rsCouncilWorkflow![Response 4]
End If

rsCouncilWorkflow.Close

End Sub
-----------------------

**added info .. the first couple rows of the table to help make sense .. in the attachment
Attached Images
File Type: bmp untitled.bmp (139.4 KB, 3 views)

Last edited by snoodledorf; 12-13-12 at 00:28. Reason: additional info at the bottom
Reply With Quote
  #2 (permalink)  
Old
Registered User
 
Join Date: Oct 2011
Posts: 11
got it figured out, missing controls on the form, embarassing
Reply With Quote
Reply

Tags
movefirst, openrecordset, select statement, workflow

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On