Goedemiddag dames en heren
Ik ben momenteel bezig om een "dagrapport" te maken voor de teamleiders op het werk (neem het even aan).
1 van de modules waar ik nu mee aan het werk ben, omhelst een formulier "TeamindelingKeuze", welke weer bestaat uit subformulieren (TeamindelingCalc en TeamindelingAgents)
In het formulier TeamindelingKeuze kan een teamleider geselecteerd worden, die aan de hand van het MedewID informatie doorgeeft aan de onderliggende subformulieren.
Zo rekent TeamindelingCalc het aantal medewerkers uit die nog toegevoegd kunnen worden aan het betreffende team en toont TeamindelingAgents alle agents die onder deze teamleider horen.
Mijn probleem ligt momenteel bij het volgende:
Ik probeer een nieuw formulier te openen door middel van een agent te dubbelklikken in het subformulier TeamIndelingAgents.
Het formulier (AgentInfo) is gemaakt, en het dubbelklikken werkt ook, maar het formulier toont enkel de teamleider van deze medewerker in plaats van de medewerker zelf, of vraagt om een nieuw record (wat zeker niet de bedoeling is).
Het formulier TeamleiderAgents is gebaseerd op een Query die de volgende onderdelen bevat.
Twee dezelfde tabellen (medewerker), waarvan 1 genaamd teamleider en 1 genaamd medewerker (MedewID Teamleider s gekoppeld aan SuperID in Medewerker).
Query: Teamleider.MedewID/Uren/AantalvanMedewID/Medewerkernaam/uit dienst/Medewerker.MedewerkerID
Ik kan nog een boel meer informatie geven, maar om het concreet te maken, als ik nu in de gebeurtenisprocedure onderstaande regels probeer, krijg ik altijd de Teamleider.MedewID.
Private Sub Medewerkernaam_DblClick(Cancel As Integer)
Dim strFrmName As String, strWhere As String
strFrmName = "AgentInfo"
strWhere = "[Medewerker.MedewID]=" & Me.MedewID
Call DoCmd.OpenForm(FormName:=strFrmName, WhereCondition:=strWhere)
End Sub
Of in het kort:
DoCmd.OpenForm "AgentInfo", , ,"[Medewerker.MedewID] = " & Me.MedewID.
Wat doe ik verkeerd? (buiten erg moeilijk om na )
Ik ben momenteel bezig om een "dagrapport" te maken voor de teamleiders op het werk (neem het even aan).
1 van de modules waar ik nu mee aan het werk ben, omhelst een formulier "TeamindelingKeuze", welke weer bestaat uit subformulieren (TeamindelingCalc en TeamindelingAgents)
In het formulier TeamindelingKeuze kan een teamleider geselecteerd worden, die aan de hand van het MedewID informatie doorgeeft aan de onderliggende subformulieren.
Zo rekent TeamindelingCalc het aantal medewerkers uit die nog toegevoegd kunnen worden aan het betreffende team en toont TeamindelingAgents alle agents die onder deze teamleider horen.
Mijn probleem ligt momenteel bij het volgende:
Ik probeer een nieuw formulier te openen door middel van een agent te dubbelklikken in het subformulier TeamIndelingAgents.
Het formulier (AgentInfo) is gemaakt, en het dubbelklikken werkt ook, maar het formulier toont enkel de teamleider van deze medewerker in plaats van de medewerker zelf, of vraagt om een nieuw record (wat zeker niet de bedoeling is).
Het formulier TeamleiderAgents is gebaseerd op een Query die de volgende onderdelen bevat.
Twee dezelfde tabellen (medewerker), waarvan 1 genaamd teamleider en 1 genaamd medewerker (MedewID Teamleider s gekoppeld aan SuperID in Medewerker).
Query: Teamleider.MedewID/Uren/AantalvanMedewID/Medewerkernaam/uit dienst/Medewerker.MedewerkerID
Ik kan nog een boel meer informatie geven, maar om het concreet te maken, als ik nu in de gebeurtenisprocedure onderstaande regels probeer, krijg ik altijd de Teamleider.MedewID.
Private Sub Medewerkernaam_DblClick(Cancel As Integer)
Dim strFrmName As String, strWhere As String
strFrmName = "AgentInfo"
strWhere = "[Medewerker.MedewID]=" & Me.MedewID
Call DoCmd.OpenForm(FormName:=strFrmName, WhereCondition:=strWhere)
End Sub
Of in het kort:
DoCmd.OpenForm "AgentInfo", , ,"[Medewerker.MedewID] = " & Me.MedewID.
Wat doe ik verkeerd? (buiten erg moeilijk om na )