Avatar billede banelars Nybegynder
13. februar 2002 - 07:45 Der er 16 kommentarer og
1 løsning

Close-sætning.

Hejsa.

Jeg har en formular med flere kommandoknapper.
Når jeg trykker på én af disse knapper åbnes en anden formular.
Herefter vil jeg godt have, at den første formular lukkes.

Hvordan skal en evt. closesætning se ud og hvor skal den placeres ?
Herunder er koden til én af kommandoknapperne.

Private Sub Indskriv_depeche_Click()
On Error GoTo Err_Indskriv_depeche_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FIndskriv"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
       
Exit_Indskriv_depeche_Click:
    Exit Sub
 
Err_Indskriv_depeche_Click:
    MsgBox Err.Description
    Resume Exit_Indskriv_depeche_Click

End Sub

Avatar billede henrik13 Nybegynder
13. februar 2002 - 07:56 #1
I denn formular du åbner skal der stå I Hændelsen , Ved åbninng . Din lukning af 1 formular.
Avatar billede banelars Nybegynder
13. februar 2002 - 08:04 #2
Hej Henrik.

Man kan lave det i en makro, som man tilknytter "Ved åbning",
men kan man ikke indføre det i formularens underliggende kode ?
Problemet er, at jeg har 4 forskellige formularer med de omtalte kommandoknapper.
Hvis jeg skal bruge dit forslag, skal jeg lave 4 makroer for hver formular.

Hvis man kan lave det i koden på dén formular der skal lukke, så kan jeg nøjes med, at skrive det 4 gange.

Jeg håber du forstår hvad jeg mener.

Lars
Avatar billede henrik13 Nybegynder
13. februar 2002 - 08:07 #3
I denn formular du åbner skal der stå I Hændelsen , Ved åbninng . Din lukning af 1 formular. 
Lukningsordren er i Formular2 er:

DoCmd.Close acForm, "Formular1"
Avatar billede banelars Nybegynder
13. februar 2002 - 08:12 #4
Jeg prøver lige om jeg kan få det til at virke og vender tilbage.
Avatar billede henrik13 Nybegynder
13. februar 2002 - 08:13 #5
Så skal ordren ind her:
Private Sub Indskriv_depeche_Click()
On Error GoTo Err_Indskriv_depeche_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FIndskriv"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, "Formular1"   
Exit_Indskriv_depeche_Click:
    Exit Sub
 
Err_Indskriv_depeche_Click:
    MsgBox Err.Description
    Resume Exit_Indskriv_depeche_Click

End Sub
Avatar billede banelars Nybegynder
13. februar 2002 - 08:38 #6
Jeg har prøvet at indsætte sætningen som du skriver, men den første formular lukker ikke ned.
Kan det være fordi jeg bruger en makro til at åbne den anden formular med ?
Jeg skal lige sige, at jeg ikke har det store kendskab til VBA.
Avatar billede henrik13 Nybegynder
13. februar 2002 - 08:50 #7
Hej Lars. Sætningen:  DoCmd.Close acForm, "Formular1"   
Står  "Formular1"  du skal skrive din formular navn i stedet for.
Fik du ellers det med at spærre dine knapper til at virke...
Avatar billede banelars Nybegynder
13. februar 2002 - 08:57 #8
Hej igen.
Jeg har skrevet navnet på dén formular der skal lukkes i anførselstegn, som du har vist, men spørgsmålet er egentlig om det er en ulempe at bruge makroer til at udføre lukkeordren. Hvad siger du ?

Med hensyn til at spærre lukkeknappen, så virker det fint, at tilknytte en meddelelsesboks på én formular, der står åben. Hvis folk så trykker på lukknappen (X), kommer boksen op og fortæller dem, at de skal bruge knappen i formularen.
Avatar billede banelars Nybegynder
13. februar 2002 - 08:58 #9
Jeg skal lige sige, at du får pointene for din indsats.

Lars.
Avatar billede henrik13 Nybegynder
13. februar 2002 - 09:35 #10
Hej Lars. Vba er ca. 10 gange hurtigere. Det har betydning ved mange poster, tænk på det nu. I access laves makroer om til vba der laves om osv for at ænde som maskinkode. Dvs. du sparre et led.
Avatar billede banelars Nybegynder
13. februar 2002 - 09:39 #11
Jeg bruger faktisk rigtig mange makroer fordi jeg ikke kan kode.
Er der noget med, at man kan konvertere makroer om til VBA og hvordan ?
Dette giver selvfølgelig point.

Lars.
Avatar billede henrik13 Nybegynder
13. februar 2002 - 09:48 #12
Ja . Når du har lavet makroen. Højreklik på makroen oog tryk på Gem som/Ekspotere og derefter Gem som Visiul basic modul.
Jeg er ligeglad med point. Men har de vba'er nogle interesse så skriv der er en spiciel måde at åbne dem på.
Vh. Henrik
Avatar billede banelars Nybegynder
13. februar 2002 - 09:54 #13
Hej Henrik.

Jeg forstår ikke lige det sidste du skriver ?

Lars.
Avatar billede banelars Nybegynder
13. februar 2002 - 10:11 #14
Hej Henrik.

Jeg har prøvet at konvertere en makro om til et modul.
Hvad så nu ?
Kan jeg bare slette den oprindelige makro eller hvordan får jeg modulet til at virke i stedet for ?
Avatar billede henrik13 Nybegynder
13. februar 2002 - 10:38 #15
Hej Lars. Var du intereserede i at vi direkte skrev sammen , jeg kan se din e-mail adresse i sidste spørgsmål.
VH Henrik
Avatar billede henrik13 Nybegynder
13. februar 2002 - 10:52 #16
Hej Lars. Var du intereseret at vi skriverdirekte sammen.
VH Henrik
Avatar billede banelars Nybegynder
13. februar 2002 - 11:01 #17
Hej Henrik.

Det tog lidt tid før jeg fik opdateret siden.
Ja det kan vi godt. lf@bane.dk
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

IT-JOB