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 " () No resumo do erro em seguida Command12.Enabled = falso Option1.Enabled = falso Option2.Enabled = falso Moving_Rec (InputBox (“incorporar o número do memorando”)) Terminar o submarino Moving_Rec secundário confidencial (lsno como o dobro) 'No erro NGPErrPara empreendedores: RsCounter não ofuscante como ADODB.Recordset novo BNo não ofuscante Text1 (18) .text = lsno Conexão do '''''''''' para a lima de Mover.MDB para dados de transferência de Trant.MDb a Mover.MDB Se RecvKKL_Cnn.State = 1 então RecvKKL_Cnn.Close RecvKKL_Cnn.Open “Provider=Microsoft.Jet.OLEDB.3.51; Origem de dados =” & App.Path &” \ Mover.mdb; Jato OLEDB: Base de dados Password=xxxxxxxxxxxxx " ''''''''' Recordset local que coneta a B_Detail Se RecvLCL.State = 1 então RecvLCL.Close RecvLCL.Open “selecionam * de B_Detail ONDE LsNo =” & Text1 (18) .text & “e verificação = 1”, engodo, adOpenKeyset, adLockOptimistic Se RecvKKL.State = 1 então RecvKKL.Close RecvKKL.Open “selecionam * de B_Detail”, RecvKKL_Cnn, adOpenKeyset, adLockOptimistic Se RecvKKL! btno > 0 então BNo = RecvKKL! btno Com RecvLCL .AddNew ! btno = RecvKKL! btno ! Modalidade = RecvKKL! Modalidade