[pt-br-usuarios] [base] abrir outro formulario atraves de um botão

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 usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/