Private VorcmdMove_Click ()
Auf Störungs-Zusammenfassung zunächst
Command12.Enabled = falsch
Option1.Enabled = falsch
Option2.Enabled = falsch
Moving_Rec (InputBox („die Protokoll-Zahl eingeben“))
Unterseeboot beenden
Privates VorMoving_Rec (lsno als Doppeltes)
'Auf Störung Goto- NGPErrPara:
Schwaches RsCounter als neues ADODB.Recordset
Schwaches BNo
Text1 (18) .text = lsno
'''''''''' Anschluss für Mover.MDB Akte für bringendaten von Trant.MDb zu Mover.MDB
Wenn RecvKKL_Cnn.State = 1 dann RecvKKL_Cnn.Close
RecvKKL_Cnn.Open „Provider=Microsoft.Jet.OLEDB.3.51; Datenquelle =“ u. App.Path u.“ \ Mover.mdb; Strahl OLEDB: Datenbank Password=xxxxxxxxxxxxx "
''''''''' Lokales Recordset, das an B_Detail anschließt
Wenn RecvLCL.State = 1 dann RecvLCL.Close
RecvLCL.Open „* von B_Detail IN DEM LsNo =“ u. Text1 (18) .text u. „und Überprüfung = 1“, Betrug, das adOpenKeyset vorwählen, adLockOptimistic
Wenn RecvKKL.State = 1 dann RecvKKL.Close
RecvKKL.Open „wählen * von B_Detail“, RecvKKL_Cnn, das adOpenKeyset vor, adLockOptimistic
Wenn RecvKKL! btno > 0 dann
BNo = RecvKKL! btno
Mit RecvLCL
.AddNew
! btno = RecvKKL! btno
! Modus = RecvKKL! Modus
|