Como recriar esta macro do VBA / MSAccess para o OoBasic do LibreOffice Base?
Fala galera, to tentando migrar um bd de Access para Base, mas possui macro VBA e nunca vi material na net que ensinasse o OooBasic, ele não tem o recurso que o access tinha de ao digitar o "." ponto) abrir uma janela com métodos e propriedades que a gente podia usar ali no controle. segue o código.
Private Sub btnExcluir_Click()
On Error GoTo Err_btnExcluir_Click
Dim item As Variant
Dim S As String
Dim M As String
For Each item In lstSoftware.ItemsSelected
S = "'" & lstSoftware.ItemData(item) & "'"
M = "'" & txtMicro & "'"
DoCmd.RunSQL ("DELETE * FROM licenca " _
& "WHERE cod_hw = " & M & " AND software = " & S & ";")
Next item
lstSoftware.Requery
Exit_btnExcluir_Click:
Exit Sub
Err_btnExcluir_Click:
MsgBox "Exclusão Cancelada"
Resume Exit_btnExcluir_Click
End Sub
Private Sub btnIncluir_Click()
On Error GoTo Err_btnIncluir_Click
DoCmd.RunSQL ("INSERT INTO licenca (cod_hw,software) " _
& "VALUES (txtMicro, txtSoftware);")
txtSoftware = ""
lstSoftware.Requery
Exit_btnIncluir_Click:
Exit Sub
Err_btnIncluir_Click:
MsgBox ("Inclusão Cancelada")
Resume Exit_btnIncluir_Click
End Sub
Private Sub txtMicro_AfterUpdate()
lstSoftware.Requery
End Sub
Private Sub txtMicro_Change()
End Sub
Private Sub btnFechar_Click()
On Error GoTo Err_btnFechar_Click
DoCmd.Close
Exit_btnFechar_Click:
Exit Sub
Err_btnFechar_Click:
MsgBox Err.Description
Resume Exit_btnFechar_Click
End Sub
------------------------------------------------------------------------------------
Option Compare Database
Option Explicit
Private Sub btnFechar_Click()
On Error GoTo Err_btnFechar_Click
DoCmd.Close
Exit_btnFechar_Click:
Exit Sub
Err_btnFechar_Click:
MsgBox Err.Description
Resume Exit_btnFechar_Click
End Sub
Private Sub txtSoftware_AfterUpdate()
lstMicro.Requery
txtLic = txtSoftware.Column(1)
txtInst = lstMicro.ListCount
If IsNumeric(txtLic) Then
txtSaldo = txtLic - txtInst
Else
txtSaldo = ""
End If
End Sub
------------------------------------------------------------------------------------
Option Compare Database
Option Explicit
Private Sub txtMicro_AfterUpdate()
lstSoftware.Requery
End Sub
Private Sub txtMicro_Change()
End Sub
Private Sub btnFechar_Click()
On Error GoTo Err_btnFechar_Click
DoCmd.Close
Exit_btnFechar_Click:
Exit Sub
Err_btnFechar_Click:
MsgBox Err.Description
Resume Exit_btnFechar_Click
End Sub
-----------------------------------------------------------------------
Por favor esse código em VBA em compreendo, mas não sei nada na sintaxe do OoBasic, as macros em Basic são completamente malucas pq não sei como é a API UNO do Libre.
comentar
