check all check box based on 0ne master

[dixxy12]

Hi,

I would like to know if there is a way to check a checkbox in every record base on 1 check box outside that form?

The main form has the checkbox 'chkReceivedAll' and the subform 'frmReceivedSud' has a checkbox on every record call 'chkReceived'.

So when the user check the 'main' checkbox i would like that all checkboxes in the subform to be'check'.

I'm playing with this code with not much luck:

Dim ctr As Control
Dim FirstNull As CheckBox
For Each ctr In Me.Controls
If ctr.ControlType = acCheckBox Then
  If IsNull(ctr) Then
    If FirstNull = "" Then
    ctr.SetFocus
    ctr.Checked = True
    End If
  FirstNull.Value = True
  End If
End If
Next

Can this be done?

Thanks

 

[dixxy12]

this is the message in the immediate window:

UPDATE tblPODoorHistory SET [Received] = -1 WHERE [tblPODoorHistory]![PONumber] = 9999-003;

 

[Remou]

It looks like your PONumber is a text field, is that correct? If so, you need some single quotes:

strSQL = "UPDATE tblPODoorHistory " & _
         "SET [Received] = " & Me.chkAllRec & _
         " WHERE [tblPODoorHistory]![PONumber] = '" & Me!cboDoorPO & "'"

 

[dixxy12]

those darn single quotes will get you EVERY time right????

so just to make sure i understand. when dealing with a text feild we need to have single quotes? right?

if the field is numeric no single quotes?

Thanks so much for your help

 

[Remou]

That is right, with one small extra problem: if it is a date you need hash signs (#).

 

[dixxy12]

Got it!!!! thanks again for your help on this one

Thanks to AceMan also.