Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Não Subscrever informação
Não Subscrever informação
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.
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.
Re: Não Subscrever informação
Boa noite!
Se você criou um banco em Excel, deverá compartilhar esta base para ser alimentada simultaneamente.
Magushi
Se você criou um banco em Excel, deverá compartilhar esta base para ser alimentada simultaneamente.
Magushi
Re: Não Subscrever informação
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
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
-
- Colaborador
- Mensagens: 58
- Registrado em: Sex Fev 13, 2015 11:58 am
Re: Não Subscrever informação
Me desculpa pela demora na resposta. Ocorreram alguns probleminhas.
A senha é Controle210985
A senha é Controle210985
-
- Colaborador
- Mensagens: 58
- Registrado em: Sex Fev 13, 2015 11:58 am
Re: Não Subscrever informação
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
Controle210985
Do jeitinho que está acima. Com "C" maiúsculo e os números juntos
-
- Colaborador
- Mensagens: 58
- Registrado em: Sex Fev 13, 2015 11:58 am
Re: Não Subscrever informação
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
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
Re: Não Subscrever informação
Obrigado rafael,
Consegui ter uma noção de como comandar o arquivo.
Obrigado pela ajuda.
Consegui ter uma noção de como comandar o arquivo.
Obrigado pela ajuda.