vbstreets konferencia - Téma megtekintése - hogyan zárja az űrlapot

Prompt hogyan kell helyesen távolítja el az űrlapot a VB6 nem számít?

Van elsődleges MDI-alakú.

Hívom formában nyomdai bevételek és a pénzügyi megbízás a menüből (frmPKO).
Kód: Egész kiválasztása Private Sub mnuPKOrderItem_Click () „kitöltése és nyomtatása készpénz érdekében
frmPKO.Show vbModal
End Sub

Csak a menüt (még) hívja formában nyomdai tanúsítványok adóhatóság.
Kód: Egész kiválasztása Private Sub mnuIFNSItem_Click () „töltse ki és pecsét tanúsítvány IFTS
frmIFNS.Show vbModal
End Sub

Egyénileg, minden működik.

Az egyszerűség kedvéért a nyomtatni kívánt végén az SSP az azonos penész okoz az IRS segíteni pecsét.
Kód: Egész kiválasztása Ha MsgBox ( "Nyomtatás az igazolást az IRS?", VbYesNo + vbQuestion, "Súgó nyomtatás") = vbYes Ekkor
frmIFNS.Show vbModal
End If

És mozgoklyuystvo itt kezdődik:
Kód: Egész kiválasztása Dim rsIFNS Ahogy ADODB.Recordset
„Töltse ki a»Fizetési összeg«
Set rsIFNS = Új ADODB.Recordset
sSQL = "SELECT * FROM WHERE PKO nKart =„" numKart „„”
rsIFNS.Open sSQL, cnDB, adOpenStatic, adLockReadOnly
Ha rsIFNS.recordCount = 0 Then „először levelet FFP
MsgBox „a” txtFIOnp.Text vbNewLine A „nem kiadott készpénz elfogatóparancsot!”, VbCritical „Ne lemerült PKO”
„Options ************
cmdExit_Click
„Set rsIFNS = Semmi
„Tehermentesítése Me
„Exit Sub
„Options ************
End If
rsIFNS.Close

Private Sub cmdExit_Click ()
Set rsIFNS = Semmi: Rakodjon Me
End Sub

Ha megyek át cmdExit_Click (), vagy kiveszi a forma pimasz eljárás hiba 364 - objektum már megtöltve.
„1. változat:
Kód: Egész kiválasztása cmdExit_Click
„Set rsIFNS = Semmi
„Tehermentesítése Me
„2. változat:
Kód: Egész kiválasztása „cmdExit_Click
Set rsIFNS = Semmi
kirak Me

Ha át távoznak (3. lehetőség)
Kód: Egész kiválasztása „cmdExit_Click
„Set rsIFNS = Semmi
„Tehermentesítése Me
Exit Sub

amelyek származhatnak, és mindegyik meg kell szüntetni külön-külön. Ez legyőzi a célja a „kényelem”.

Ez valami ilyesmi. Akkor, persze, hülye menü okoz minden formáját, és mindegyik külön zárás. De - SSP és segítséget összefüggenek egymással, és szeretnék, hogy a felhasználó kapcsolni őket logikusan.
Mondja valaki, hogy? Külön kérte a hacker - pozhalysta, ne küldjenek a keresést. Azt már ott volt.

Osteon írta (a): alibek. Azt vízforraló VB, nem rejti véka alá. De tudja mit VB6 .Prepare

Néha, amikor inicializálása formában meg kell hívni valamilyen eljárással rá. Ami például húzza az adatbázis, és hoz egy listát a lehetséges értékek, és így tovább - ezt az eljárást alibek hagyományosan úgynevezett Készítsünk. A lány meg kell írni. Lehet, hogy nem. Aztán, persze, annak okát, és ez nem szükséges. Írhat kódot abban az esetben inicializálása / Load / Show formájában -, akkor ez nem számít (a guru, ha nem, helyes).

Programozó - ez egy helyi isten (C) I

Nos, én is gyanítják, hogy egy eljárás .Prepare jelentette nincs beépített eljárás, és a felhasználó (azaz az eljárást írt a felhasználó által) néhány inicializálási folyamatot.

Törekedjen arra, hogy keres, talál, és perepryatat

Won Cho. Most bevágás. Köszönöm-prespasibo.
Ie alatt
Kód: Egész kiválasztása frm.Prepare „, ha a forma inicializálás
kedves alibek azt jelentette, hogy ellenőrzi, hogy az űrlap betöltése előtt?

Nem.
Úgy értem, hogy a kód formájában, akkor állapítsa meg a nyilvánosság tagja függvényében Készítsünk, amely elvégzi néhány előkészítő lépést megelőzően a kijelző formájában. Például inicializálni az adatbázis kapcsolat, vagy ellenőrizze a jogosultságokat.
Kód: Egész kiválasztása.
Ha frm.Prepare () Akkor
frm.Show vbModal
más
MsgBox „A művelet megszakításához, az ok” frm.Tag
End If
kirak frm
Állítsa frm = Semmi

Lasciate ogni speranza, voi ch'entrate.