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é 5x 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!
| Não há comentário |
