Codejock Developer Community : Report with comboboxes in cell

Report with comboboxes in cell : Hi Jason, MANY MANY thanks for...

Fri, 29 Feb 2008 16:16:31 +0000

Author: Neil
Subject: 9340
Posted: 29 February 2008 at 4:16pm

Hi Jason, MANY MANY thanks for all of your help so far. I had spotted the bug regarding the Column numbers and had fixed it already. The latest code (although not behaving exactly as I want it to), provides more than enough of a framework for me to extend it to do what I want.

Once again, thank you VERY VERY much, and have a nice weekend.

Report with comboboxes in cell : Ok. This is kinda hacked so if...

Fri, 29 Feb 2008 15:59:50 +0000

Author: jcollier
Subject: 9340
Posted: 29 February 2008 at 3:59pm

Ok. This is kinda hacked so if someone knows a better way, please let me know.
Add Dim blnNumericOnly As Boolean to General Declaration of the form

Private Sub wndReport_MouseDown(Button As Integer, Shift As Integer, x As Long, y As Long)

    Dim hitItem As ReportRecordItem

    Set hitItem = wndReport.HitTest(x, y).Item

    If Not hitItem Is Nothing Then
        If hitItem.Index = COLUMN_EMPLOYEE_AGE Then
            blnNumericOnly = True
        Else
            blnNumericOnly = False
        End If
    End If

End Sub

Private Sub wndReport_PreviewKeyDown(KeyCode As Integer, ByVal Shift As Integer, Cancel As Boolean)

    If blnNumericOnly = False Then Exit Sub

    If (KeyCode < 48 Or KeyCode > 57) And KeyCode <> 8 Then
        Cancel = True
    End If

End Sub

Report with comboboxes in cell : Ignore the PreviewKeyDown part....

Fri, 29 Feb 2008 15:47:57 +0000

Author: jcollier
Subject: 9340
Posted: 29 February 2008 at 3:47pm

Ignore the PreviewKeyDown part. It's not right.

Report with comboboxes in cell : Try this:Private Sub wndReport_PreviewKeyDown(KeyCode...

Fri, 29 Feb 2008 15:39:38 +0000

Author: jcollier
Subject: 9340
Posted: 29 February 2008 at 3:39pm

Try this:

Private Sub wndReport_PreviewKeyDown(KeyCode As Integer, ByVal Shift As Integer, Cancel As Boolean)

    If (KeyCode < 48 Or KeyCode > 57) And KeyCode <> 8 Then
        Cancel = True
    End If

End Sub

I also noticed an error in the form_load event. Notice the changes with the constants:

'Create the second column
        Set Column = .Columns.Add(COLUMN_EMPLOYEE_NAME, "Name", DFLT_COL_WIDTH, True)
        Column.Editable = False

        'Create the third column
        Set Column = .Columns.Add(COLUMN_EMPLOYEE_AGE, "Age", DFLT_COL_WIDTH, True)
        Column.Editable = True

Report with comboboxes in cell : Thanks Jason - it now does EXACTLY...

Fri, 29 Feb 2008 15:31:24 +0000

Author: Neil
Subject: 9340
Posted: 29 February 2008 at 3:31pm

Thanks Jason - it now does EXACTLY what I want it to do.

One last question though, if I may. Do you know how I can restrict the value a user types into the cell of a column (e.g. the 'Age' column), so that only numbers can be typed into that column?

MTIA

Report with comboboxes in cell : Just got it now - I was away for...

Fri, 29 Feb 2008 15:16:53 +0000

Author: Neil
Subject: 9340
Posted: 29 February 2008 at 3:16pm

Just got it now - I was away for a few hours. I'll give you feedback ASAP.

Thanks

Report with comboboxes in cell : I sent it back to you. Let me...

Fri, 29 Feb 2008 13:42:43 +0000

Author: jcollier
Subject: 9340
Posted: 29 February 2008 at 1:42pm

I sent it back to you. Let me know if you didn't get it.

Report with comboboxes in cell : Thank you

Fri, 29 Feb 2008 12:25:53 +0000

Author: Neil
Subject: 9340
Posted: 29 February 2008 at 12:25pm

Thank you

Report with comboboxes in cell : I got it. I've found the...

Fri, 29 Feb 2008 12:19:03 +0000

Author: jcollier
Subject: 9340
Posted: 29 February 2008 at 12:19pm

I got it. I've found the problem. I'm fixing it and will return it shortly.

Report with comboboxes in cell : I sent the demo to the email address...

Fri, 29 Feb 2008 12:18:21 +0000

Author: Neil
Subject: 9340
Posted: 29 February 2008 at 12:18pm

I sent the demo to the email address you kindly provided - I hope you can help point out what I may be doing incorrectly