Usando Access

XML da ribbon - abrir formulário Folha de Dados

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

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!

An Invitation

Meet the first tool in the world, developed in Microsoft Access, for the configuration and creation of custom ribbons.   Ribbons have come to stay, therefore it is crucial that you get to know and learn this application!

Click here and get to know everything about this amazing tool!

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |