Notifications
Clear all

Banco de dados fechado

9 Posts
4 Usuários
0 Reactions
1,586 Visualizações
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Boa tarde Pessoal

utilizo o código abaixo para que meu banco de dados seja aberto no momento em que ativo minha planilha onde contem os dados para inserir as informações..

Private Sub Workbook_Open()
Workbooks.Open (ThisWorkbook.Path & "BD.xlsm")
End Sub

Como posso fazer com que meu banco de dados fique fechado ao inserir minhas informações?

Welington Gonçalves

 
Postado : 05/11/2014 10:05 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Geralmente depois de abert osalva e fecha o arquivo.
http://msdn.microsoft.com/pt-br/library ... =office.15).aspx

Neste post foi demonstrado como fazer.
viewtopic.php?f=10&t=13366

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/11/2014 10:17 am
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Sim, mas o meu problema é a adptação que preciso..
não posso apenas colocar uma Sub Importar.

No meu caso queria q funcionasse exatamente no modelo anexo porém com meu banco de dados fechado.

Welington Gonçalves

 
Postado : 05/11/2014 10:26 am
(@denisw)
Posts: 64
Trusted Member
 

InSIRA ESTA MACRO NO BOTÃO No BD
Sub Botão1_Clique()

Application.Visible = False

userform.Show
Application.Visible = True
End Sub
'para abrir o BD'
'na pasta projeto

Private Sub Workbook_open()
Application.Visible = False
userform.Show 'inicio é o nome da userform
Application.Visible = True
End Sub

 
Postado : 05/11/2014 1:11 pm
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Denis, show a sua dica..

mas ainda não é oq preciso.. no meu caso, gostaria q apenas o meu banco de dados ficasse fechado.. e a planilha que contem o meu form continuasse aberta tbm.. no caso desse código ele oculta toda minha planilha e só deixa o meu form visivel.

Welington Gonçalves

 
Postado : 05/11/2014 1:21 pm
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Creio que o que deseja é uma conexão Ado, de uma olhada no modelo postado pelo Mauro Coutinho em viewtopic.php?t=9061&p=47692 ou no forum do ThomasVasquez

Reinaldo

 
Postado : 05/11/2014 3:06 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ola Welington,

Voce quer evitar que o usuário altere algum dado de forma manual na planilha, correto ?

Deixar fechado penso que complicaria, como o Reinaldo citou, em ADO seria bacana, mas é bem mais complexo.

Porque não deixa as abas ocultas, e desoculta elas apenas quando houver inserção de dados por meio do seu formulário?

Penso que seria uma solução mais prática e de certa forma até elegante.

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/11/2014 8:12 pm
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Então... esse projeto de cadastro é muito interessante, estou estudando sobre conexões agora e to meio leigo ainda.

Minha intenção seria Iniciar o meu form sem carregar os registros, carregar a combobox com o código dos fornecedores e dai então ele preencheria as textbox, seria possível fazer essa adaptação?

Welington Gonçalves

 
Postado : 14/11/2014 9:27 am
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

O modelo é o da versão 3.

Welington Gonçalves

 
Postado : 14/11/2014 9:28 am