Início
![[Resolvido]Chat para Rede de Computadores Empty](https://2img.net/i/empty.gif)
vileman 1/10/2012, 04:07Caro Balem, como estás ? Espero que com saúde e paz. Então, amigo, ao usar tua rotina para Chat em Rede de Computadores preciso da sua ajuda no seguinte, após seguir tuas instruções:
* Uso Access 2003
1) Instrução: Antes de iniciar, altere o caminho do Back-End no Módulo: basMDB.(\\Servidor\Pasta)
Ação: Alterei da seguinte forma:
Function CaminhoMdbRede() As String
Dim dirFE As String
'caminho do Back-End na rede altere apenas aqui
'ORIGINAL: CaminhoMdbRede = "D:\ExemplosAccess\Msg\BalemMSG_BE.mdb"
CaminhoMdbRede = "L:\SIACAP\05.Chat\BalemMsg_BE.mdb"
dirFE = CurrentDb.Name
DirCur = Left(dirFE, InStr(dirFE, Dir(dirFE)) - 1)
End Function
Onde “L” = Unidade da Rede, o restante é o caminho do arquivo mdb.
Mudei a vinculação das Tabelas do arquivo “BalemMsgA2K.mdb” para o caminho acima alterado no Módulo, exceto as tabelas locais.
2) Instrução: Rode o arquivo: RichTxt_Win2K+.bat para registrar a Richtxt32.ocx se estiver usando o Win2000 ou versão maior, ou o RichTxt_Win9x.bat se o Windows for Win9x.
Ação: Rodei o arquivo “RichTxt_Win2k+.bat”, pois uso a versão Windows 7 – 64 bits – Professional, confirma que está correta a opção usada?
3) Instrução: Rode o arquivo cmSystray.bat para registrar a cmsystray.ocx
Ação: Rodei o arquivo acima.
4) Instrução: Tabela vinculada tblNomePCS : Mantenha o nome -:Todos:- na Tabela do Gerente do Sistema ou da Loja assim mesmo, como está escrito, com o traço na frente para mantê-lo como primeiro da lista de contatos. Ele serve para enviar avisos simultâneos para todos os PC’s conectados.
Ação: Mantive conforme orientação acima.
5) Macro: Autoexec – Instruções abaixo
Fiz o seguinte, considerando a contagem a partir da 1ª linha do seu arquivo original:
• Retirei as 02 primeiras linhas, conforme texto;
• Dúvida: Retirei a Condição “Falso” das 03 Colunas, ou é apenas para retirar das 02 linhas 8 e 9, após texto que diz: “Para usar as linhas seguintes, retire as condições Falso, das linhas”, e deixar a Condição “Falso” da linha 5 ?
Após as Ações e Dúvidas a esclarecer acima, gostaria de confirmar ainda as seguintes questões:
A) O arquivo: “BalemMsgA2K.mdb” que seria o Front-End eu coloco em todas as máquinas que irão usar o Chat ?
B) Preciso copiar e rodar para todas as máquinas que vão usar o Chat, a rotina e os arquivos dos itens 1, 2, 3, 4 e 5 acima, além dos outros arquivos que vieram junto a estes mencionados, ou seja, os ícones, bmp e outros tipos? Ou apenas alguns deles ? Quais seriam ?
C) A Consulta de Exclusão: “Consulta1” pode Renomear ou Excluir ?
D) A Tabela "Leiame" do arquivo “BalemMsgA2K.mdb” pode excluir?
E) Para usar esse Chat com vários usuários em Rede, posso usá-lo separadamente de um sistema que já é utilizado por todos, e mesmo assim, o chat, vai funcionar?, ou seja, em paralelo com esse outro sistema? ou posso incorporar ao mesmo, e se fosse o caso, como seria?
6) TESTES:
Após executar os itens do 1 ao 5 acima, fiz alguns testes e resultou no seguinte:
Observação: Para adiantar o entendimento da rotina do Chat fiz os testes em casa mesmo, então não usei Rede de Computadores, pois só poderei fazer isto quando estiver no trabalho.
a)Ao executar o arquivo "BalemMsgA2.mdb" e abrir o Formulário: "frmPrincipal" aparecem os “Contatos” que estão como: "-:Todos:-" e abaixo "Comp01", mas não aparece o nome do meu Computador, que por sua vez está na tabela “tblNomePCS”, porque ?
b)Após clicar 2 vezes na 1ª opção de Contatos, abre uma tela para digitar a mensagem, e após digitar a mesma e teclar Enter (conforme orientação do formulário), fica travado. Após destravar com Ctrl+Alt+Del, fiz novo teste e após digitar uma mensagem e teclar Enter, o cursor sai do campo da caixa de mensagem e fica piscando abaixo do campo da mensagem e não acontece mais nada. Para testar fiquei teclando Enter e cada vez aparece o mesmo formulário para envio de mensagem, mas ao teclar Enter novamente o cursor sai do campo da caixa de mensagem, ou seja, fica nesse ciclo, então fechei esse formulário e cliquei no Botão “cmdOcultar” ao lado do rótulo “Contatos” e o formulário realmente fica oculto, mas o BD fica travada, pois não consigo abrir novamente o arquivo “BalemMsgA2.mdb”, para novos testes, a não ser usando os comandos Ctrl+Alt+Del do Windows.
* Uso Access 2003
1) Instrução: Antes de iniciar, altere o caminho do Back-End no Módulo: basMDB.(\\Servidor\Pasta)
Ação: Alterei da seguinte forma:
Function CaminhoMdbRede() As String
Dim dirFE As String
'caminho do Back-End na rede altere apenas aqui
'ORIGINAL: CaminhoMdbRede = "D:\ExemplosAccess\Msg\BalemMSG_BE.mdb"
CaminhoMdbRede = "L:\SIACAP\05.Chat\BalemMsg_BE.mdb"
dirFE = CurrentDb.Name
DirCur = Left(dirFE, InStr(dirFE, Dir(dirFE)) - 1)
End Function
Onde “L” = Unidade da Rede, o restante é o caminho do arquivo mdb.
Mudei a vinculação das Tabelas do arquivo “BalemMsgA2K.mdb” para o caminho acima alterado no Módulo, exceto as tabelas locais.
2) Instrução: Rode o arquivo: RichTxt_Win2K+.bat para registrar a Richtxt32.ocx se estiver usando o Win2000 ou versão maior, ou o RichTxt_Win9x.bat se o Windows for Win9x.
Ação: Rodei o arquivo “RichTxt_Win2k+.bat”, pois uso a versão Windows 7 – 64 bits – Professional, confirma que está correta a opção usada?
3) Instrução: Rode o arquivo cmSystray.bat para registrar a cmsystray.ocx
Ação: Rodei o arquivo acima.
4) Instrução: Tabela vinculada tblNomePCS : Mantenha o nome -:Todos:- na Tabela do Gerente do Sistema ou da Loja assim mesmo, como está escrito, com o traço na frente para mantê-lo como primeiro da lista de contatos. Ele serve para enviar avisos simultâneos para todos os PC’s conectados.
Ação: Mantive conforme orientação acima.
5) Macro: Autoexec – Instruções abaixo
Fiz o seguinte, considerando a contagem a partir da 1ª linha do seu arquivo original:
• Retirei as 02 primeiras linhas, conforme texto;
• Dúvida: Retirei a Condição “Falso” das 03 Colunas, ou é apenas para retirar das 02 linhas 8 e 9, após texto que diz: “Para usar as linhas seguintes, retire as condições Falso, das linhas”, e deixar a Condição “Falso” da linha 5 ?
Após as Ações e Dúvidas a esclarecer acima, gostaria de confirmar ainda as seguintes questões:
A) O arquivo: “BalemMsgA2K.mdb” que seria o Front-End eu coloco em todas as máquinas que irão usar o Chat ?
B) Preciso copiar e rodar para todas as máquinas que vão usar o Chat, a rotina e os arquivos dos itens 1, 2, 3, 4 e 5 acima, além dos outros arquivos que vieram junto a estes mencionados, ou seja, os ícones, bmp e outros tipos? Ou apenas alguns deles ? Quais seriam ?
C) A Consulta de Exclusão: “Consulta1” pode Renomear ou Excluir ?
D) A Tabela "Leiame" do arquivo “BalemMsgA2K.mdb” pode excluir?
E) Para usar esse Chat com vários usuários em Rede, posso usá-lo separadamente de um sistema que já é utilizado por todos, e mesmo assim, o chat, vai funcionar?, ou seja, em paralelo com esse outro sistema? ou posso incorporar ao mesmo, e se fosse o caso, como seria?
6) TESTES:
Após executar os itens do 1 ao 5 acima, fiz alguns testes e resultou no seguinte:
Observação: Para adiantar o entendimento da rotina do Chat fiz os testes em casa mesmo, então não usei Rede de Computadores, pois só poderei fazer isto quando estiver no trabalho.
a)Ao executar o arquivo "BalemMsgA2.mdb" e abrir o Formulário: "frmPrincipal" aparecem os “Contatos” que estão como: "-:Todos:-" e abaixo "Comp01", mas não aparece o nome do meu Computador, que por sua vez está na tabela “tblNomePCS”, porque ?
b)Após clicar 2 vezes na 1ª opção de Contatos, abre uma tela para digitar a mensagem, e após digitar a mesma e teclar Enter (conforme orientação do formulário), fica travado. Após destravar com Ctrl+Alt+Del, fiz novo teste e após digitar uma mensagem e teclar Enter, o cursor sai do campo da caixa de mensagem e fica piscando abaixo do campo da mensagem e não acontece mais nada. Para testar fiquei teclando Enter e cada vez aparece o mesmo formulário para envio de mensagem, mas ao teclar Enter novamente o cursor sai do campo da caixa de mensagem, ou seja, fica nesse ciclo, então fechei esse formulário e cliquei no Botão “cmdOcultar” ao lado do rótulo “Contatos” e o formulário realmente fica oculto, mas o BD fica travada, pois não consigo abrir novamente o arquivo “BalemMsgA2.mdb”, para novos testes, a não ser usando os comandos Ctrl+Alt+Del do Windows.