... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


XML da ribbon - abrir formulário Folha de Dados

Usuário Edson:

Bom dia.

Você pode me ajudar?  Tenho na Xml o seguinte botão, abrindo um formulário:

<!-- *** GRUPO CLIENTES ***-->
<group id = "grCLIENTES"
   <button
   id = "FOR_TBL_CAD_CLIENTE"
   imageMso= "ContactProperties" size= 'large'
   label = "CLIENTES"
   onAction = "= fncAbrirObjeto('FOR_TBL_CAD_CLIENTE',1)"/>
</group>

A minha dúvida é como devo fazer para abrir o formulário no formato Folha de Dados?

Suporte:

Edson,

acrescente a parte em vermelho, na função fncAbrirObjeto().

Public Function fncAbrirObjeto(NomeObjeto As String, tipoObjeto As Byte)
On Error GoTo trataerro

Select Case tipoObjeto
   Case 1 'formulário
      DoCmd.OpenForm NomeObjeto
   Case 2 'relatório
      DoCmd.OpenReport NomeObjeto, acViewPreview
   Case 3 'consulta
      DoCmd.OpenQuery NomeObjeto
   Case 4 'formulário formato Folha de Dados
      DoCmd.OpenForm NomeObjeto, acFormDS
End Select

sair:
    Exit Function
trataerro:
    MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, _
    "Aviso", Err.HelpFile, Err.HelpContext
    Resume sair:
End Function

Altere para 4 (em vermelho) na seguinte linha da sua Xml:

...
onAction = "= fncAbrirObjeto('FOR_TBL_CAD_CLIENTE',4)"/>
...

Usuário Edson:

Avelino, resolvido.

Muito obrigado!


 

 


Não há comentário

Envie seu comentário: