Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Não Subscrever informação

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Aalec
Colaborador
Colaborador
Mensagens: 18
Registrado em: Ter Jan 27, 2015 5:46 pm

Não Subscrever informação

Mensagem por Aalec »

Boa tarde, mestres do VBA.

Estou enfrentando um problema com meu projeto VB., criei um banco de dados para cadastro de entregas, e ele vai ser usado em mais de um ponto. Então surge o problema, quando vai ser feito o cadastro da Entrega ambos conseguem abrir os forms, porém na hora de salvar o Doc a informação subscreve. Criei a Rotina para cadastro da entrega e logo em seguida salvar o doc, porém se dois usuários abrem o Forms "ao mesmo tempo", na hora de fazer o save aparece que está dando conflitos e abre uma janela no excel "resolver Conflitos".

Poderiam ajudar?

Obrigado.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


magushi
Colaborador
Colaborador
Mensagens: 37
Registrado em: Qua Set 17, 2014 9:42 am

Re: Não Subscrever informação

Mensagem por magushi »

Boa noite!

Se você criou um banco em Excel, deverá compartilhar esta base para ser alimentada simultaneamente.

Magushi


Aalec
Colaborador
Colaborador
Mensagens: 18
Registrado em: Ter Jan 27, 2015 5:46 pm

Re: Não Subscrever informação

Mensagem por Aalec »

Boa noite, Magushi.

Eis que a Mágica acontece, a mensagem de Conflito só aparece porque a pasta de trabalho está compartilhada.

Para melhor entendimento, segue anexo do banco de Dados.

Ps: Senha: 210985
Anexos
Banco de Dados - Controle de Estoque Oficial - 10-03-2015.rar
(688.43 KiB) Baixado 210 vezes


rafaelsetti
Colaborador
Colaborador
Mensagens: 58
Registrado em: Sex Fev 13, 2015 11:58 am

Re: Não Subscrever informação

Mensagem por rafaelsetti »

qual a senha do vba project ???


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Aalec
Colaborador
Colaborador
Mensagens: 18
Registrado em: Ter Jan 27, 2015 5:46 pm

Re: Não Subscrever informação

Mensagem por Aalec »

Me desculpa pela demora na resposta. Ocorreram alguns probleminhas.

A senha é Controle210985


rafaelsetti
Colaborador
Colaborador
Mensagens: 58
Registrado em: Sex Fev 13, 2015 11:58 am

Re: Não Subscrever informação

Mensagem por rafaelsetti »

A senha da proteção do código fonte não é essa!!!


Aalec
Colaborador
Colaborador
Mensagens: 18
Registrado em: Ter Jan 27, 2015 5:46 pm

Re: Não Subscrever informação

Mensagem por Aalec »

Que estranho. Estou com ela aberta aqui no servico e usei essa senha pra abrir.

Controle210985
Do jeitinho que está acima. Com "C" maiúsculo e os números juntos


rafaelsetti
Colaborador
Colaborador
Mensagens: 58
Registrado em: Sex Fev 13, 2015 11:58 am

Re: Não Subscrever informação

Mensagem por rafaelsetti »

O código está ai....

Para salvar a alteração a ser feita é alterar carlossetti\c\user\desktop\ para a sua rede e a pasta compartilhada sua....


Obrigado,

Rafael

Código: Selecionar todos

Private Sub CommandButton1_Click()

Desocultar_Abas
Sheets("Controle de Pedidos").Select

Range("A2").Select

Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox22.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 3) = TextBox3.Value
ActiveCell.Offset(0, 4) = TextBox4.Value
ActiveCell.Offset(0, 5) = TextBox5.Value
ActiveCell.Offset(0, 6) = TextBox6.Value
ActiveCell.Offset(0, 7) = ComboBox2.Value
ActiveCell.Offset(0, 8) = TextBox20.Value
ActiveCell.Offset(0, 9) = TextBox7.Value
ActiveCell.Offset(0, 10) = TextBox8.Value
ActiveCell.Offset(0, 11) = TextBox9.Value
ActiveCell.Offset(0, 12) = TextBox10.Value
ActiveCell.Offset(0, 13) = TextBox11.Value
ActiveCell.Offset(0, 14) = TextBox12.Value
ActiveCell.Offset(0, 15) = TextBox13.Value
ActiveCell.Offset(0, 16) = ComboBox3.Value
ActiveCell.Offset(0, 17) = TextBox14.Value
ActiveCell.Offset(0, 18) = TextBox15.Value
ActiveCell.Offset(0, 19) = TextBox16.Value
ActiveCell.Offset(0, 20) = TextBox17.Value
ActiveCell.Offset(0, 21) = ComboBox4.Value
ActiveCell.Offset(0, 22) = TextBox18.Value
ActiveCell.Offset(0, 23) = TextBox19.Value
ActiveCell.Offset(0, 24) = TextBox24.Value
Dim ws As WorkbookConnection
Set ws = openworkbook("\\carlossetti\c\user\desktop\Banco de Dados - Controle de Estoque Oficial - 10-03-2015.xls")
ws.Save
MsgBox "Pedido Salvo com sucesso"
Ocultar_Abas
Arquivo_CSV

Sheets("Plan1").Select

Unload Me
NC.Show


End Sub


Aalec
Colaborador
Colaborador
Mensagens: 18
Registrado em: Ter Jan 27, 2015 5:46 pm

Re: Não Subscrever informação

Mensagem por Aalec »

Obrigado rafael,

Consegui ter uma noção de como comandar o arquivo.

Obrigado pela ajuda.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder