Combo box with a red border

[gscott1]

I am working with a large Access database and recently added a combo box to a form. The values that can be chosen from in the combo box are from a table I created with 6 possible choices. When I created the combo box the border showed up red. Now when I select one of the 6 choices in the combo box, it automatically populates this choice into all 6,000 records. How do I change it so I can pick one value for record #1 and then go to record #2 and choose a different value?

Thanks

[gscott1]

This is Access 2003.

[mshmyob]

Can you post the code you have behind the Combo Box?

I am working with a large Access database and recently added a combo box to a form. The values that can be chosen from in the combo box are from a table I created with 6 possible choices. When I created the combo box the border showed up red. Now when I select one of the 6 choices in the combo box, it automatically populates this choice into all 6,000 records. How do I change it so I can pick one value for record #1 and then go to record #2 and choose a different value?

Thanks

[gscott1]

I'm not sure if this helps at all.This is what I got when I right clicked on the combo box in design view and selected Build Event...Code Builder. Is this what you're talking about?
Thanks
----------------------------

 Option Compare Database 
 
Private Sub Combo59_BeforeUpdate(Cancel As Integer)
 
End Sub
 
Private Sub Date_Completed_BeforeUpdate(Cancel As Integer)
 
End Sub
 
Private Sub Find_PAR_Click()
On Error GoTo Err_Find_PAR_Click
 
 
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
 
Exit_Find_PAR_Click:
Exit Sub
 
Err_Find_PAR_Click:
MsgBox Err.Description
Resume Exit_Find_PAR_Click
 
End Sub
Private Sub Print_Form_Click()
On Error GoTo Err_Print_Form_Click
 
 
DoCmd.PrintOut
 
Exit_Print_Form_Click:
Exit Sub
 
Err_Print_Form_Click:
MsgBox Err.Description
Resume Exit_Print_Form_Click
 
End Sub
Private Sub Print_Record_Click()
On Error GoTo Err_Print_Record_Click
 
 
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection
 
Exit_Print_Record_Click:
Exit Sub
 
Err_Print_Record_Click:
MsgBox Err.Description
Resume Exit_Print_Record_Click
 
End Sub

[mshmyob]

Nothing there for your combo box. Tell me what your property settings are for your Data TAB. Such as

Control Source
Row Source
Row Source Type
etc. etc.

I'm not sure if this helps at all.This is what I got when I right clicked on the combo box in design view and selected Build Event...Code Builder. Is this what you're talking about?
Thanks
----------------------------


Option Compare Database

Private Sub Combo59_BeforeU pdate(Cancel As Integer)

End Sub

Private Sub Date_Completed_ BeforeUpdate(Ca ncel As Integer)

End Sub

Private Sub Find_PAR_Click( )
On Error GoTo Err_Find_PAR_Cl ick


Screen.Previous Control.SetFocu s
DoCmd.DoMenuIte m acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Find_PAR_C lick:
Exit Sub

Err_Find_PAR_Cl ick:
MsgBox Err.Description
Resume Exit_Find_PAR_C lick

End Sub
Private Sub Print_Form_Clic k()
On Error GoTo Err_Print_Form_ Click


DoCmd.PrintOut

Exit_Print_Form _Click:
Exit Sub

Err_Print_Form_ Click:
MsgBox Err.Description
Resume Exit_Print_Form _Click

End Sub
Private Sub Print_Record_Cl ick()
On Error GoTo Err_Print_Recor d_Click


DoCmd.DoMenuIte m acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection

Exit_Print_Reco rd_Click:
Exit Sub

Err_Print_Recor d_Click:
MsgBox Err.Description
Resume Exit_Print_Reco rd_Click

End Sub