[Resolvido] Comando do Access - Executar via ASP
Bom Dia!!!
Tenho um Sstema de Parcelamento de Contratos desenvolvido em Access, Gostaria de executá-lo via ASP.
Código Abaixo:
Sub cmdParcelas_Click()
If Me.curValor <= 0 Then 'Se valor do contrato for <= 0
Exit Sub
End If
'Salva o contrato
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim db As Database, rs As Recordset
Dim ValParc As Currency, I As Byte
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas
ValParc = Me.curValor / Me.bytParcelas 'Valor de cada Parcela
For I = 1 To Me.bytParcelas 'Insere as Parcela na Tabela
rs.AddNew
rs("lngNumContrato") = Me.lngNumContrato
rs("bytParcela") = I
rs("curValor") = ValParc
'Calcula as datas de Vencto através da função DateAdd()
rs("dtVencimento") = DateAdd("m", I - 1, Me.dtContrato)
rs.Update
Next
rs.Close
db.Close
Me.subfrm_Parcelas.SetFocus 'Foco no SubForm Parcelas
Me.cmdParcelas.Enabled = False 'Desativa o botão Parcelas
Me.subfrm_Parcelas.Requery 'Atualiza o SubForm Parcelas
End Sub
Alguem tem uma Idéia ou Conhecimento para o Código em ASP.
Valeu.
Célido
Discussão (7)
Carregando comentários...