15. april 2014 - 12:05Der er
9 kommentarer og 1 løsning
Få navnet fra en form i vba
Hej Alle
Ikke sikker på hvordan jeg skal forklare det, men prøver alligevel.
Jeg har: Form4 Form1 Form2 Form3
Form 4 kan åbnes fra 1, 2 og 3 med en knap.
I 'On load' event for Form 4 er: Dim YesOrNoAnswerToMessageBox As String Dim QuestionToMessageBox As String If Me.RecordsetClone.RecordCount = 0 Then QuestionToMessageBox = "Der findes ingen data i øjeblikket. Vil du se om der er nogen der er oplært i Hovedrollen?" & frnName & "" YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "Ingen data") If YesOrNoAnswerToMessageBox = vbNo Then DoCmd.Close Else DoCmd.Close DoCmd.OpenForm "frmShowMainRoles", , , "JobsId =" & Forms![Form1]![txtMainJobId] & "" End If Else Me.Caption = "Trænet personale for Subrolle: " & DLookup("[SubRoleTitle]", "tblJobs", "[JobsId] =" & [JobsId] & "") & "" End If
Så hvis Record er 0 skal brugeren omdirigeres med: DoCmd.OpenForm "frmShowMainRoles", , , "JobsId =" & Forms![Form1]![txtMainJobId] & ""
Det virker så fint fra Form1, men hvis jeg klikker på samme knap i Form2 og 3 virker linien selvfølgelig ikke.
Kan jeg på nogen måde få formens navn ind automatisk i onload event for form4?
Hvis du læser mit spørgsmål igen, kan jeg godt få det til at virke fra én af formene ved at angive formens navn. Men da form4 kan åbnes fra 2 andre har jeg jo brug for at skifte navnet ud. :-)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.