tenho 2 formularios clientes e animal3 , ligadas pelo campo Cad, quando voce
esta no formulario do cliente , clica em animal e aparece as fichas dos
animais deste cliente, ate ai esta funcionando.
O problema e quando vou inserir um novo registro de animal, pois a variavel
cad não fica definida e da um erro. como posso passar o valor do cad ao
iniciar novo registro?
sub pega( oev as variant)
Dim Filter As String
dim odoc,odoc2,oform2,oform as Object
odoc=thiscomponent
oform=odoc.drawpage.forms.getbyindex(0)
'pega o dado da primeira linha(=index =campo Cad no meu caso) do registro
atual
myindex=oform.getstring(1)
'ThisDatabaseDocument.FormDocuments.getByName( "animal3" ).open
oform2=ThisDatabaseDocument.FormDocuments.getByName( "animal3" )
oform2.Open
oform2 = oform2.Component.DrawPage.Forms.getbyindex(0)
'define o filtro para achar os registros
oform2.filter ="animal3.Cad ='" & myindex &"'"
oform2.ApplyFilter= True
oform2.reload
End Sub
--
Você está recebendo e-mails da lista [email protected]
# Informações sobre os comandos disponíveis (em inglês):
mande e-mail vazio para [email protected]
# Cancelar sua assinatura: mande e-mail vazio para:
[email protected]
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/
