Página 1 de 1

Texto Personalizado

Enviado: 11 Jul 2018, 14:13
por marcelo3092
Bom Dia pessoal estou com mum probleminha aqui ja resolvi antes a um tempo atras porem esqueci como fiz.
o que acontece e que estou tentando personalizar o texto da msgbox.

Public Function NomeSistema()
Dim Texto1

Texto1= DLookup("[SistemaNome]", "[Configuração]")
End Function

o que eu estou tentando e buscar o nome do sistema na tabela configuração para usar no texto da msgbox sem a necessidade de colocar o nome manualmente nelas todas

exemplo:

If MsgBox("Deseja Incluir Despesa com Transporte no Conta a Pagar? " & (Format(Me!Frete, "currency")) & " ?", vbYesNo, NomeSistema) = vbYes Then

Else
End If

Porem ele não aparece o nome e quando aparece aparece 0.
Coloquei uma um botão para chamar o função
ela me retorna o nome certo usando
msgbox nomesistema
alguem pode me ajudar?

Re: Texto Personalizado

Enviado: 14 Jul 2018, 19:21
por marcelo3092
Ola Pessoal pra quem quiser consegui fazer para mostrar o nome do aplicativo no texto das mensagens padrao do access para não aparecer microsoft access. ao inves disso ele busca o nome em um campo texto em uma tabela especifica.
Basta criar um modulo global e colocar


Public Function NomeAplicativo()



NomeAplicativo = DLookup("[SistemaNome]", "tblCaminhoBe")



End Function



ai na msgbox coloca









If DCount("*", "Lista_Saida") = 0 Then
MsgBox "Não Há Compra com os Critérios Informado. ", vbCritical, NomeAplicativo()

Else
Lista_Saida_Sub.Requery
Me.Refresh
End If