Form not displaying data correctly when scrolling through

[nika.duncan]

Good day All


Need some serious help trying my best to learn as much as possible. Hope you will be able to help again.

I am working with two forms frmManager and frmMMeasures where based on selection from the combo box of frmManager of the department, position and staff member frmMMeasures is loaded where MUserLoginID and MPositionName is populated based on selection from frmManager. This is what I use to populate the MUserLoginID field for the control source " =[Forms]![frmManagers]![cboStaff] ".

My problem is when I go to the next record on the form those two fields do not change from what was picked up from the form frmManager.

I don't know how to ensure that the correct data is displayed.


Please any help will be appreciated.
Nika

[June7]

Not understanding. Need more info. Is this a form/subform arrangement? The controls are on which form? Is cboStaff a bound control?

If you want to provide db for analysis, follow instructions at bottom of my post.

[Dal Jeanis]

If your Manager form is controlling/filtering those values on the subform, then the values SHOULD NOT CHANGE when you go to another record. If you want them to change, then you probably need to use a recordset and repositioning rather than a filter... but I'd have to know more about your application to give specific advice.

[nika.duncan]

I have attached the db for you to have a look at it. Let me explain how it works. I have a login form - frmLogin1 which based on who logs in opens a specific form frmManager, frmSupervisor or frmStaff. I have only worked on the frmManager form - to select the staff to be evaluated. Then frmMMeasure opens base on selection from frmManager. The frmMMeasure opens to enter the data for each staff. The frmMMeasure has a subform frmSubMeasure where the areas for evaluation are entered. The problem lies here the fields in the main form frmMMeasure does not change when I go from record to record and if I add a record yes it is updated in table but I would have to scroll through to find it and even then the data displayed on the main form is not correct.

I hope I was able to explained clearly, I am presently learning and any help is welcomed.

Nika

[June7]

The frmMMeasures opens to all records in tblMeasure. The frmMMeasures textbox referencing cboStaff on frmManagers is meaningless and misleading. Bind MUserLoginID textbox to the field.

If you want frmMMeasures to open with only those records for the user/manager logged in, then filter the dataset. Create a textbox on frmManagers and populate it with the userID from the login form. Then open frmMMeasures with:

DoCmd.OpenForm "frmMMeasures", acNormal, , "MUserLoginID='" & Me.tbxUserID & "'", acNormal

tblMeasure is not saving the UserLoginID, it is saving the UserSName.

Why isn't UserID the primary/foreign key?

There is a circular relationship between tblDepartment, tblPosition, tblUser. Department should not be in both tblUser and tblPosition.

[nika.duncan]

Thanks for all the help so far. I need some more guidance as to how to pass the fields from the frmManager to frmMMeasures. I have attached the database for you to see the changes that I have made in terms of the relationship and the forms.

Please any help will be appreciated.

Regards,
Nika

[June7]

tblMeasure records do not have values in MUserLoginID field. Makes it hard to filter the records by user.

Is form tblMeasure no longer needed?

Suggestion for code behind frmLogin1:

Private Sub cmdExit_Click()
DoCmd.OpenForm "frmManager", , , "MUserLoginID=" & Me.txtUserID
DoCmd.Close acForm, "frmLogin1"
End Sub

[nika.duncan]

Hi
I hope I am explaining clearly what I want to happen. I want when I select the staff on form frmManager2 it is saved in the table tblMeasure as MUserLoginID, then when I enter form frmMMeasures it is reflected on the form in the textbox MUserLoginID. Based on the code posted above I added the lines in red to the cmdMeasures_Click () but it still is not recorded in the tblMeasure and the value is not passed to the form open. Any help will be welcomed.

Thanks.

Private Sub cmdMeasures_Click()
    On Error GoTo cmdMeasures_Click_Err
    If IsNull(Me.cboDeptName) Then
        MsgBox "You need to select a Department!", vbCritical
        Me.cboDeptName.SetFocus
    Exit Sub
    End If
    
    If IsNull(Me.cboPositionName) Then
        MsgBox "You need to selct the Position!", vbCritical
        Me.cboPositionName.SetFocus
    Exit Sub
    End If
    
    If IsNull(Me.cboStaff) Then
        MsgBox "You need to select the staff being appraised!", vbCritical
        Me.cboStaff.SetFocus
    Exit Sub
    End If
    
DoCmd.OpenForm "frmMMeasures", , , "MUserLoginID = " & Me.cboStaff  
DoCmd.Close acForm, "frmManager2"
 

cmdMeasures_Click_Exit:
    Exit Sub

cmdMeasures_Click_Err:
    MsgBox Error$
    Resume cmdMeasures_Click_Exit

End Sub

[Dal Jeanis]

1) I would generally save the selected value into a TempVar variable, where it would be automatically available everywhere.

2) I don't see any problems with the code you posted, but it doesn't do what you think it does. It opens the form, using a filter that limits the results of the record's query to those records where MUserLoginID is equal to the value in Me.cboStaff.

If you are expecting to create a new record, then you probably need to also set the default value for MUserLoginID in the form, and possible also set the dataentry mode to yes.