1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45:
Private " notpretty " () Sul riassunto di errore dopo Command12.Enabled = falso Option1.Enabled = falso Option2.Enabled = falso Moving_Rec (InputBox (“entrare nel numero dell'appunto„)) Concludere il sommergibile Moving_Rec secondario riservato (lsno come doppio) 'Sull'errore NGPErrPara di avanzamento: RsCounter fioco come nuovo ADODB.Recordset BNo fioco Text1 (18) .text = lsno Collegamento del '''''''''' per la lima di Mover.MDB per i dati di trasferimento da Trant.MDb a Mover.MDB Se RecvKKL_Cnn.State = 1 allora RecvKKL_Cnn.Close RecvKKL_Cnn.Open “Provider=Microsoft.Jet.OLEDB.3.51; Dati Source=„ & App.Path &„ \ Mover.mdb; Getto OLEDB: Base di dati Password=xxxxxxxxxxxxx " ''''''''' Recordset locale che si collega a B_Detail Se RecvLCL.State = 1 allora RecvLCL.Close RecvLCL.Open “selezionano * a partire da B_Detail DOVE LsNo =„ & Text1 (18) .text & “e controllo = 1„, imbroglione, adOpenKeyset, adLockOptimistic Se RecvKKL.State = 1 allora RecvKKL.Close RecvKKL.Open “selezionano * a partire da B_Detail„, RecvKKL_Cnn, adOpenKeyset, adLockOptimistic Se RecvKKL! btno > 0 allora BNo = RecvKKL! btno Con RecvLCL .AddNew ! btno = RecvKKL! btno ! Modo = RecvKKL! Modo