Combobox Logged By moet het volgende doen:
*******************************************************
- een lijst weergeven met de lognames
- bij het intypen van logname die niet in de lijst staat een foutmelding geven
- er mogen geen nieuwe waarden aan deze lijst toegevoegd worden
- een verkeerde logname mag niet bewaard worden
Probleem bij combobox Logged By:
******************************************
- er wordt een correct lijst van lognames getoond
- bij het intypen van logname die niet in de lijst staat wordt geen foutmelding getoond
- er worden geen nieuwe waarden aan de lijst toegevoegd
- een verkeerde logname wordt wel bewaard in de tabel Main
*******************************
* Combobox Logged By *
*******************************
1. Eigenschappen in het formulier:
—————————————————–
- control source = LoggedBy (uit tabel Main)
- row source type = Table/Query
- row source = QryLogNames (query bevat enkel veld LogName uit tabel Users)
- limit to list = No
2. Code:
—————-
Private Sub cmbLoggedBy_NotInList(NewData As String, Response As Integer)
On Error GoTo Err_cmbLoggedBy_NotInList
If Not (NewData = “”) Then
cmbLoggedBy.RowSource = “SELECT ‘” & NewData & "’ FROM UNION SELECT DISTINCT FROM "
Response = DATA_ERRADDED
End If
Exit_cmbLoggedBy_NotInList:
Exit Sub
Err_cmbLoggedBy_NotInList:
MsgBox “Error: General - Not In List Logged By”, vbExclamation + vbOKOnly, “Tasks and Projects - New Entry - FrmNewTP”
Resume Exit_cmbLoggedBy_NotInList
End Sub
Comboboxen CustRequester (idem voor Subcontractor) moet het volgende doen:
*********************************************************************************************
- een lijst weergeven van alle verschillende CustRequesters in de tabel Customer
- een nieuwe custrequester kunnen invullen en die moet toegevoegd worden aan de lijst
Probleem bij Combobox CustRequester (idem voor Subcontractor):
*****************************************************************************
- 1e record in Customer vul ik Alcatel in bij CustRequester
-> in tabel Customer zie ik bij CustRequester Alcatel staan
- ik wil een 2e record invullen in Customer
-> in de combobox staat er niets terwijl er al Alcatel moet staan
- 2e record in Customer vul ik Nokia in bij CustRequester
-> in tabel Customer zie ik bij CustRequester Nokia staan MAAR
CustRequester bij het 1e record is leeg
- ik wil een 3e record invullen in Customer
-> in de combobox staat er nu wel Nokia en ik kan die selecteren MAAR
ik vul Philips in
- 3e record in Customer heb ik Philips ingevuld bij CustRequester
-> in tabel Customer zie ik bij CustRequester Philips staan, Nokia staat nog
steeds bij het 2e record en het 1e record blijft leeg
=> eigenlijk vanaf het 2e record is er geen probleem meer, MAAR het eerste wordt eigenlijk gewist en ik weet niet waarom
********************************************************
* Combobox CustRequester en Subcontractor *
********************************************************
1. Eigenschappen van CustRequester in het formulier:
———————————————————————————
- control source = CustRequester (uit tabel Customer)
- row source type = Table/Query
- row source = SELECT DISTINCT FROM Customer;
- limit to list = No
2. Eigenschappen van Subcontractor in het formulier:
——————————————————————————–
- control source = Subcontractor (uit tabel Customer)
- row source type = Table/Query
- row source = SELECT DISTINCT FROM Customer;
- limit to list = Yes
3. Code van CustRequester:
——————————————–
Private Sub cmbCustRequester_AfterUpdate()
On Error GoTo Err_cmbCustRequester_AfterUpdate
cmbCustRequester.Requery
Exit_cmbCustRequester_AfterUpdate:
Exit Sub
Err_cmbCustRequester_AfterUpdate:
If txtCustomerKeuze.Value = “Edit” Then
MsgBox “Error: Customer - After Update Customer Requester”, vbExclamation + vbOKOnly, “Tasks and Projects - Edit - subFrmCustomer”
ElseIf txtCustomerKeuze.Value = “New” Then
MsgBox “Error: Customer - After Update Customer Requester”, vbExclamation + vbOKOnly, “Tasks and Projects - New Entry - subFrmCustomer”
End If
Resume Exit_cmbCustRequester_AfterUpdate
End Sub
Private Sub cmbCustRequester_NotInList(NewData As String, Response As Integer)
On Error GoTo Err_cmbCustRequester_NotInList
If Not (NewData = “”) Then
cmbCustRequester.RowSource = “SELECT ‘” & NewData & "’ FROM UNION SELECT DISTINCT FROM "
Response = DATA_ERRADDED
End If
Exit_cmbCustRequester_NotInList:
Exit Sub
Err_cmbCustRequester_NotInList:
If txtCustomerKeuze.Value = “Edit” Then
MsgBox “Error: Customer - Not In List Customer Requester”, vbExclamation + vbOKOnly, “Tasks and Projects - Edit - subFrmCustomer”
ElseIf txtCustomerKeuze.Value = “New” Then
MsgBox “Error: Customer - Not In List Customer Requester”, vbExclamation + vbOKOnly, “Tasks and Projects - New Entry - subFrmCustomer”
End If
Resume Exit_cmbCustRequester_NotInList
End Sub
4. Code van Subcontractor:
——————————————-
Private Sub cmbSubcontractor_AfterUpdate()
On Error GoTo Err_cmbSubcontractor_AfterUpdate
If IsNull(cmbCustRequester) Then
cmbSubcontractor.Undo
Else
cmbSubcontractor.Requery
End If
Exit_cmbSubcontractor_AfterUpdate:
Exit Sub
Err_cmbSubcontractor_AfterUpdate:
If txtCustomerKeuze.Value = “Edit” Then
MsgBox “Error: Customer - After Update Subcontractor”, vbExclamation + vbOKOnly, “Tasks and Projects - Edit - subFrmCustomer”
ElseIf txtCustomerKeuze.Value = “New” Then
MsgBox “Error: Customer - After Update Subcontractor”, vbExclamation + vbOKOnly, “Tasks and Projects - New Entry - subFrmCustomer”
End If
Resume Exit_cmbSubcontractor_AfterUpdate
End Sub
Private Sub cmbSubcontractor_NotInList(NewData As String, Response As Integer)
On Error GoTo Err_cmbSubcontractor_NotInList
If Not (NewData = “”) Then
If IsNull(cmbCustRequester) Then
cmbSubcontractor.Undo
Else
cmbSubcontractor.RowSource = “SELECT ‘” & NewData & "’ FROM UNION SELECT DISTINCT FROM "
Response = DATA_ERRADDED
End If
End If
Exit_cmbSubcontractor_NotInList:
Exit Sub
Err_cmbSubcontractor_NotInList:
If txtCustomerKeuze.Value = “Edit” Then
MsgBox “Error: Customer - Not In List Subcontractor”, vbExclamation + vbOKOnly, “Tasks and Projects - Edit - subFrmCustomer”
ElseIf txtCustomerKeuze.Value = “New” Then
MsgBox “Error: Customer - Not In List Subcontractor”, vbExclamation + vbOKOnly, “Tasks and Projects - New Entry - subFrmCustomer”
End If
Resume Exit_cmbSubcontractor_NotInList
End Sub