Snoopy

Alex o seu problema está aqui Private Sub Substitui_Var(Header As String, Data As String) Set objWord = New Word.Application objWord.Documents.Open ("c:\vba\contrato.doc") Toda vez que ele chamar Substitui_Var, ele abrirá uma cópia do arquivo Contrato.doc o que eu acho que te ajudaria, é declarar objWord como pública e retirar as duas primeiras linhas da sub Substitui_VAR. o que aconteceria, no momento que você clicar no botão, ele abriria o arquivo contrato uma vez vinculando as infos com a variavel "objWord". Quando você chamasse a sub Substiruir_Var, ele usaria as propriedades da variavel para substituir o texto Não sei se você me entendeu, mas qualquer coisa posta ai...

você está querendo saber se existe um propriedade que diz que a conexão com o database foi eralizada com sucesso?? ou uma propriedade que diz qual o database que você está conectado?

Ontem eu ainda tinha visto no site do macoratti um exemplo que apresentava o mesmo resultado, não havendo comentário nenhum sobre essa situação... Com certeza é a mesma coisa...

Cara, tb não encontrei diferença entre eles!!! procuraste alguma coisa no msdn???

Sei que o Pedro num gosta de pensar muito hehehehe segue abaixo um pouco mais simplificado o que ele queria Private Sub Image3_Click() Common.Filter = "Arquivo jpg|*jpg" Common.InitDir = "Meus documentos" Common.ShowOpen Picture1.Picture = LoadPicture(Common.FileName) 'Carrega a imagem para determinar as dimensões da picture1 If Picture1.Height > "5175" Or Picture1.Width > "10575" Then 'Se forem maiores que o especificado, limpa a picture1, redimenssiona para o tamanho máximo e posiciona no meio. Picture1.Picture = Nothing Picture1.Height = "5175" Picture1.Width = "10575" Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2) MsgBox ("Desculpe sua imagem é maior que o tamanho que nós dispomibilizamos") Else Picture1.Picture = LoadPicture(Common.FileName) Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2) End If End Sub no seu código Pedro, ele poderia sempre acabar carregando a imagem, caso uma das dimensões estivessem abaixo do que você especificou. debugando manualmente, você veria isso acontecer.

você quer que o Excel reconheça o nome já cadastrado ou o seu programa em VB que deveria identificar que já existe o nome cadastrado?

deixa ver se eu entendi esse seu Dbgrid está vinculado a algum banco de dados e você quer alterar os dados do banco de dados manualmente? ou você quer escrever nas celulas do dbgrid?

ventrue_rj... você deverá declarar uma variavel como GLOBAL e salvar o login do usuário nessa variavel... toda vez que você carregar o outro form, você deverá dizer que o label é igual ao valor da variavel declarada como GLOBAL...

arruma assim para ele salvar com extensão SI Com.FileName = "" 'Definir o filtro de tipos de arquivos Com.Filter = "Arquivo SI |*.si" 'Definir o diretório inicial Com.InitDir = "C:\Windows" Com.ShowSave If Com.FileName = "" Then MsgBox "Nenhum Arquivo Salvo !" Else MsgBox "O Salvo é : " & Com.FileName 'Salva arquivo com nome que você criou na COM SavePicture Picture1, Com.FileName End If Espero ter ajudado

Para você conseguir colocar um picture no meio da tela você deverá fazer achar o meio da Form primeiramente(form1.width / 2 e form1.height / 2) depois você deverá achar o meio da sua sua imagem aberta(picture1.width / 2 e picture1.width / 2) Agora se você diminuir a metade da sua imagem da metade do seu form, você terá a posição inicial. 'Posição na direita. picture1.left = (form1.width / 2)-(picture1.width / 2) 'Posição no topo picture1.top= (form1.height/ 2)-(picture1.height / 2) Se você entedeu beleza... qualquer coisa da um toque ai...

A troca da cor é feita pela propriedade BACKCOLOR da FORM propriedade essa cita pelo fahledu é só clicar na propriedade e escolher a cor desejada. existe a possibilidade de criar uma cor especifica.

Só complementado a minha resposta acima(rs...) o número do erro gerado é 32755 um exemplo de aplicação: On Error Resume Next CommonDialog1.ShowPrinter If Err.Number = 32755 Then 'Realiza o que você quizer quando for cancelado End If