Keskustelu: Ohjelmointikysymykset: VB6: MsgBox + käyttäjän valinta

Morjens,

Tälläinen pitäisi saada:

Kun käyttäjä on sulkemassa access-lomaketta ikkunansulkemispainikkeesta,kysytään häneltä "oletko varma?"

-jos ei ole,niin palataan lomakkeeseen ,jota yritettiin sulkea
-jos on (eli paina yes),suljetaan lomake.

Minun rävellystä:

Private Sub Form_Close()
    MsgBox "Oletko varma?", vbYesNo, "Kysy"
    Exit Sub
    If Yes Then
    Exit Sub
    End If
    End Sub

Tiedän...ei toimi. Milläs saisin silleen että painettaessa "No",käyttäjä ohjataan palaamaan lomakkeelle?. Kiitos paljon neuvoista

Kirjoita koodi Unload-tapahtumaan ja muuta Cancel-parametrin arvoksi True, jos lomaketta ei pidäkään sulkea.

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Oletko varma?", vbYesNo) = vbNo Then
        Cancel = True
    End If
End Sub

Lisää tietoa: Unload-tapahtuma, MsgBox

Jos mietit että mikä koodissasi oli väärää, niin heti kun msgboxia oli klikattu (kumpaa vaihtoehtoa vaan) niin aliohjelmasta poistuttiin eikä tarkistusta tehty loppuun.
Eli "Exit Sub" suoritettaessa poistutaan aliohjelmasta eikä sen jälkeen olevaa koodia suoriteta.

Kiitos jälleen kerran avusta.Siitä on suuri apu.

Voisitteko kertoa/antaa vinkkiä,mikä voisi olla hyvä kirja tälläiseen "käytännönläheiseen" Visual basic+access jne ohjelmointiin,tarkoitan siis,että siinä olisi esim vastaavanlaisia toimintoja ohjeistettu,tai vaikkapa joku esimerkki kanta,johon toimintoja koodataan.

Kiitti vielä

offtopic: Visual Basic-oppaista sen verran että kun painaa kakkosta, niin otsikkona on "Osa 3 - Muuttujat ja taulukot" Ja kun taas painaa kolmosta niin sen otsikkona on "Osa 4...". Sitten kun painaa nelosta nii otsikko on "Osa 2..."

Sama asia kannattaa tehdä muuttujalla jos valintoja on kolme tai enemmän.

Private Sub Form_Unload(Cancel As Integer)
    Kysy = MsgBox("Oletko varma", vbYesNoCancel, "kysy")
    If Kysy = vbYes Then
        'Tapahtuma
    Elseif Kysy = vbNo Then
        'Tapahtuma
    Else
        'Tapahtuma
    End If
End Sub

zigilii: Opassarja on uudistumassa, minkä takia jotkut vanhat oppaat ovat jo korvautuneet uusilla. Numerointikin on eri.

petrinm: Tai ehkä kannattaa käyttää Select Case -rakennetta, jolloin erillinen muuttuja ei ole tarpeen.

hienomma! Mua on tää problem0 vaivannu pitkään (2 päivää kun en ole ohjelmoinut kauempaa) =D