dminx13
asked on
Drop down box not showing all columns
Hello~
I've got multiple down down boxes that in my conversion from 2003 to 2010 are not showing all the columns. Not sure why?? I've attached the code behing the Row Source Type (fillcert) and the code for the GetCertCodes. As well as a screen shot of what is showing up and the properties of the form in access. I have another one that is working but I have no idea why one is and the others are not. The code looks the same.
Any help appreciated.
Function-FillCert.docx
I've got multiple down down boxes that in my conversion from 2003 to 2010 are not showing all the columns. Not sure why?? I've attached the code behing the Row Source Type (fillcert) and the code for the GetCertCodes. As well as a screen shot of what is showing up and the properties of the form in access. I have another one that is working but I have no idea why one is and the others are not. The code looks the same.
Any help appreciated.
Function-FillCert.docx
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Never existed in 2003 so didn't even know about that!!!! Thank you!
ASKER
Private Function FillOpenReqs(fld As Control, ID, row, col, Code)
' Procedure is used to fill open requisitions combo box
Select Case Code
Case 0
Call GetOpenRequisitions
FillOpenReqs = True
Case 1
FillOpenReqs = Timer
Case 3
FillOpenReqs = intOpenReqCount
Case 4
FillOpenReqs = 4
Case 5
If col = 0 Then
FillOpenReqs = 700
ElseIf col = 1 Then
FillOpenReqs = 1100
ElseIf col = 2 Then
FillOpenReqs = 2500
Else
FillOpenReqs = 650
End If
Case 6
If col = 0 Then
' Req number
FillOpenReqs = varOpenReqs(0, row)
ElseIf col = 2 Then
' Department
FillOpenReqs = varOpenReqs(1, row)
ElseIf col = 3 Then
' Title
FillOpenReqs = varOpenReqs(2, row)
ElseIf col = 1 Then
' Open Date
FillOpenReqs = CStr(Format(varOpenReqs(3,
End If
End Select
End Function
' procedure is used to fill the varOpen Req variable
Dim db As Database
Dim rs As Recordset
Dim sSQL As String
sSQL = "SELECT Requisitions.ID, Department.Description AS Department, "
sSQL = sSQL + "JCC.Description AS Title, Requisitions.OpenedDate "
sSQL = sSQL + "FROM (Requisitions INNER JOIN JCC ON Requisitions.JobClassCodeI
sSQL = sSQL + "INNER JOIN Department ON Requisitions.DepartmentID = Department.Department "
sSQL = sSQL + "WHERE (((Requisitions.Status) = 1)) "
sSQL = sSQL + "ORDER BY Department.Description, JCC.Description; "
Set db = ServerDB
Set rs = db.OpenRecordset(sSQL, dbOpenDynaset, dbSeeChanges)
With rs
.MoveLast
.MoveFirst
varOpenReqs = .GetRows(.RecordCount)
intOpenReqCount = .RecordCount
.Close
End With
Debug.Print intOpenReqCount
Set rs = Nothing
Set db = Nothing
End Sub