MS Access Form-ból Form megnyitása

MS Access Form-ból Form megnyitása
2010-06-07T13:24:58+02:00
2010-06-07T15:43:22+02:00
2022-11-18T00:41:32+01:00
Gerson
Van egy Projectem, mely MS SQL 08.00.2039-re csatlakozik
Ez a proj tartalmaz egy alkalmazottak, és egy eszközök űrlapot
Az alkalmazottak lapon van egy lista az alkalmazott által használt eszközökről, melyre ha ráklikkel, akkor megnyitja az eszközök űrlapot, és rákeres az eszközre.
A gond az, hogy ha meg van nyitva mindkét form, akkor jól működik a program, ha viszont az eszközök form nincs megnyitva, akkor megnyitja, majd "Run-time error '2001': Megszakította az előző műveletet" hibával leáll.

Private Sub Eszköz_DblClick(Cancel As Integer) Dim frm As Form_frmEszkoz Dim rs As Recordset DoCmd.OpenForm "frmEszkoz" Set frm = Me.Application.Forms("frmEszkoz") Set rs = frm.Recordset.Clone rs.Find "Eszkoz_ID = " & Str(Eszkoz_ID) If Not rs.EOF Then frm.Bookmark = rs.Bookmark End Sub
A kritikus pontnak a "frm.bookmark = rs.Bookmark" pontot mutatja.

Miért áll le?
Hogy tudom megoldani?
Mutasd a teljes hozzászólást!
késleltetni kell!

Private Sub Eszköz_DblClick(Cancel As Integer) DoCmd.Close acForm, "frmEszkoz" DoCmd.OpenForm "frmEszkoz", , , , , , "bla bla bla" End Sub


és a megnyíló űrlapon:
Private Sub Form_Open(Cancel As Integer) if me.openargs="bal bla bla" then me.ontimer="[event procedure] me.timerinterval=500 end if End Sub Private Sub Form_Timer() me.ontimer="" me.timerinterval=0 me.eszkoz_id.Setfocus docmd.FindRecord nz(forms!ElőzőŰrlapNeve!Eszkoz_ID, 0) End Sub

az access hamarabb megnyitja az űrlapot, mintsem betöltené a a mögötte lévő összes rekordot. Ezért nem árt egy pici időt adni neki.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd