alexandria
New member
- Local time
- Today, 15:36
- Joined
- May 7, 2011
- Messages
- 6
I'm using the WhereCondition of OpenForm to filter to the correct form. I need to use the values in 2 form controls plus the value of a DCount I perform shortly before the OpenForm. My code sort of works-instead of picking up the DCount's value, I get a popup asking for the parameter value (once entered the correct form opens). Can anyone see a problem in my coding?
Private Sub usOK_btn_Click()
DoCmd.SetWarnings (False)
Dim UpdateCount As Integer
UpdateCount = DCount("*", "qUpdate_RecordCount")
If UpdateCount >= 1 Then
DoCmd.RunSQL "UPDATE ProjectUpdates SET UpdateNumber = " & UpdateCount & " WHERE '" & Forms!Update_SelectName!usResearcher & "' AND '" & Forms!Update_SelectName!usProjectName & "' AND [ProjectUpdates.UpdateNumber] = 0;"
End If
DoCmd.SetWarnings (True)
DoCmd.OpenForm "Update_EnterProject", , , "[ProjectUpdates.Researcher]= '" & Forms!Update_SelectName!usResearcher & "' AND [ProjectUpdates.ProjectName]= '" & Forms!Update_SelectName!usProjectName & "' AND [ProjectUpdates.UpdateNumber] = UpdateCount"
DoCmd.Close acForm, "Update_SelectName"
End Sub
Private Sub usOK_btn_Click()
DoCmd.SetWarnings (False)
Dim UpdateCount As Integer
UpdateCount = DCount("*", "qUpdate_RecordCount")
If UpdateCount >= 1 Then
DoCmd.RunSQL "UPDATE ProjectUpdates SET UpdateNumber = " & UpdateCount & " WHERE '" & Forms!Update_SelectName!usResearcher & "' AND '" & Forms!Update_SelectName!usProjectName & "' AND [ProjectUpdates.UpdateNumber] = 0;"
End If
DoCmd.SetWarnings (True)
DoCmd.OpenForm "Update_EnterProject", , , "[ProjectUpdates.Researcher]= '" & Forms!Update_SelectName!usResearcher & "' AND [ProjectUpdates.ProjectName]= '" & Forms!Update_SelectName!usProjectName & "' AND [ProjectUpdates.UpdateNumber] = UpdateCount"
DoCmd.Close acForm, "Update_SelectName"
End Sub