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

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.

Open v3

 


 

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: