...
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
Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.
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 |
