Avatar billede joggeren Nybegynder
09. maj 2005 - 21:17 Der er 16 kommentarer og
1 løsning

Pop-up menu

Jeg vil gerne have et formularvindue til at poppe up, hvis der et bestemt kriterie der er opfyldt.

Det skal ske, hvis "*Underformular* Afs_Kalkantal" er mindre eller lig med felt "Tekst9". Værdien i tekst9 findes ved Dlookup og felt "*Underformular* Afs_Kalkantal er en underformular.
Avatar billede jesperfjoelner Nybegynder
09. maj 2005 - 21:45 #1
Hvornår skal den poppe op? Når der er indtastet i feltet Afs_kalkantal?
Sidder feltet Afs_kalkantal på under underformularen?
Sider text9 på hovedformularen?
Jeg forstår ikke helt hvad du mener med: "*Underformular* Afs_Kalkantal".
Hvis jeg lige får disse skulle det hurtigt kunne laves.
Er popuppen for øvrigt en anden formular, som du har klar?
Avatar billede joggeren Nybegynder
09. maj 2005 - 21:53 #2
Den skal poppe ud, når "Afs_Kalkantal" er mindre eller lig med felt "Tekst9".

Ja.. Afs_Kalkantal er i en underformular.

Ja.. den kan jeg hurtigt have klar..
Avatar billede jesperfjoelner Nybegynder
09. maj 2005 - 22:05 #3
Jeg antager at begge felter sidder på underformularen er det korrekt?

Kan du måske bruge noget i stil med følgende:

(i Afs_kalkantals afterupdate / efteropdatering)

Private sub Afs_kalkantal_afterupdate()
If me.afs_kalkantal <= me.tekst9 Then
  docmd.openform "navnpådinpopupform"
End if
End Sub
Avatar billede joggeren Nybegynder
09. maj 2005 - 22:07 #4
tekst9 er i hovedformularen.. og jeg fra tidligere at det nemt kan drille med det underformular...
Avatar billede joggeren Nybegynder
09. maj 2005 - 22:10 #5
Hvor skal den hændelse sættes ind? i formularen eller i et felt?

Den skal kunne poppe op når formularen åbnes og når man ændrer i feltet Afs_kalkantal.

har prøvet din kode - det virkede ikke.
Avatar billede jesperfjoelner Nybegynder
09. maj 2005 - 22:11 #6
Nå ja det kan virkelig drille.
virker dettte? (kaldt fra underformularen når feltet afs_kalkantal forlades).

Private sub Afs_kalkantal_afterupdate()
If me.afs_kalkantal <= forms!navnpåhovedformular!underformularnavn.form!tekst9 Then
  docmd.openform "navnpådinpopupform"
End if
End Sub

Her er for øvrigt i et rigtig godt link til den slags.
http://www.mvps.org/access/forms/frm0031.htm
Avatar billede jesperfjoelner Nybegynder
09. maj 2005 - 22:12 #7
når du har formularen i designvisning skal du højreklikke på feltet afs_kalkantal > vælge egenskaber. På fanene hændelser vælger du event'en EfterOpdatering.
Koden der skal indsættes i vba-editoren skulle være som ovenstående.
Avatar billede jesperfjoelner Nybegynder
09. maj 2005 - 22:16 #8
jeg tror det er sådan:

Private sub Afs_kalkantal_afterupdate()
If me.afs_kalkantal <= forms!navnpåhovedformular!tekst9 Then
  docmd.openform "navnpådinpopupform"
End if
End Sub
Avatar billede joggeren Nybegynder
09. maj 2005 - 22:17 #9
hmm.. virkede ikke.. indsatte hændelsen i selve underformularen - kunne ikke indsætte den i hovedformularen.
Avatar billede joggeren Nybegynder
09. maj 2005 - 22:20 #10
Kommer med følgende fejl:

Der opstod en komp. fejl.

Metoden eller datamedlemmet blev ikke fundet.

Så er dette markeret i koden: .Afs_Kalkantal i første linie.
Avatar billede jesperfjoelner Nybegynder
09. maj 2005 - 23:00 #11
Jeg har lige testet følgende her som virker.
text0 sidder i en underformular og text1 på hovedformularen.
Hovedformularen hedder form1.

Private Sub Text0_AfterUpdate()
If Me.Text0 <= Forms!form1!text1 Then
    MsgBox "ok"
End If
End Sub
Avatar billede joggeren Nybegynder
10. maj 2005 - 18:28 #12
Så virker det.. tak..
Avatar billede joggeren Nybegynder
10. maj 2005 - 18:31 #13
Hov.. lidt for hurtigt.. den popper op når jeg ændret i feltet.. men den skal også poppe up.. hvis kriteriet ikke er opfyldt når formularen åbnes i første omgang.
Avatar billede jesperfjoelner Nybegynder
10. maj 2005 - 19:06 #14
Så sætter du koden

If Me!underformularnavn.form!afs_kalkantal <= me!tekst9 then
  docmd.openform "navnpådinpopupform"
End if

In i formularens OnLoad hændelse
Syntaxen skulle vændes til om da det kaldes fra hovedformularens OnLoad hændelse.
Sig til hvis det ikke virker.
Avatar billede joggeren Nybegynder
10. maj 2005 - 19:38 #15
Ja... et lille problem... den formular der popper op.. ligger sig bag den anden formular.. hvordan får jeg den frem..?
Avatar billede jesperfjoelner Nybegynder
10. maj 2005 - 20:17 #16
virker dette?

If Me!underformularnavn.form!afs_kalkantal <= me!tekst9 then
  docmd.openform "navnpådinpopupform"
End if
forms!navnpådinpopupform.setfocus
Avatar billede joggeren Nybegynder
10. maj 2005 - 21:06 #17
Tak...
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester