bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
XML da ribbon - abrir formulário Folha de Dados

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,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: