PiGmEu

Opa Willian.. tipo acho q eu deveria ter falado o que esta acontecendo realmente e dado o exemplo real.. é assim.. abaixo vai meu codigo: Dim objAccess As Access.Application Dim strLvSendKeys As String Set objAccess = New Access.Application strLvSendKeys = strLcDatabasePassword & "~" DoEvents SendKeys (strLvSendKeys) objAccess.OpenCurrentDatabase (caminho_bd) objAccess.DoCmd.RunMacro "relatorio" objAccess.Visible = True objAccess.DoCmd.Maximize Set objAccess = Nothing ai o q eu queria.. q toda a vez q ele abrisse o ACCESS ele abrisse maximizado... mas a unica coisa q ele abre maximizado é o relatorio dentro do access :( se voce puder me solucionar isso... vlw

Bom gente... queria saber se alguém poderia me ajudar nessa duvida q ta foda (pra mim pelo menos...) :( Tipo... eu tenho um sistema q abre programas a parte(ex. abre notepad. etc..) so q eu eu não conseguindo fazer ele abrir maximizado o NOTEPAD :( .. alguém teria uma solucao pra isso?? Vlw gente! :)

Olá! acabei de ver.. é q eu já entrava direto em vb.scriptbrasil.com.br :)

Estava reparando q na parte de codigo no vb.scriptbrasil.com.br não existe uma busca, a pessoa tem q ficar procurando o quer ela quer... Ideia: cria um sistema de busca de codigo no estilo: a pessoa digita "CONVERTER" ai aparece todos os codigos que contenham na descrição a palavra converter.. e asism por diante..... Obrigado! :D Obs.: SB cada dia está melhor.. parabens!

entra no site http://www.aspemail.com/, e baixa as DLLs e depois o codigo abaixo manda o Email Dim caminho As String mail = "xxxxxxxxxxx@xxxxxxxxxxxxx.com.br" MsgBox Err.Number & "-" & Err.Description Set EnviaEmail = CreateObject("SMTPsvg.Mailer") EnviaEmail.AddRecipient "xxxxxxxxxxxxxxxx", mail EnviaEmail.FromName = "xxxxxxxxxxxxxx" EnviaEmail.RemoteHost = "smtp.xxxxxxx.com.br" EnviaEmail.FromAddress = "erro@sxxxxxxx.com.br" EnviaEmail.FromName = "XXXXXXX" EnviaEmail.Subject = "XXXXXXXXXXXX" EnviaEmail.Bodytext = "Numero do Erro: " & Err.Number & "," & Chr(13) & Err.Description & Chr(13) & Date & Chr(13) & Time sucesso = EnviaEmail.SendMail Abracos

não entendi.. explica melhor... você quer q ele pegue pelo App.path certo? faz uma concatenacao ex: App.path & "\Projeto1\Pasta2DB\arquivo_DB.mdb" bom.. foi isso que eu entendi.

Ronaldo.. esse Adodc1 seria a sua tabela certo? então vamos la: SQL = "SELECT * FROM cliente WHERE codigo='" & txtBairro & "'" If Adodc1.Recordset.State = 1 Then Adodc1.Recordset.Close Adodc1.Recordset.Open sql, cnn, adOpenKeyset If Adodc1.Recordset.EOF = False Then MsgBox "codigo já existe" Else sql = "UPDATE TABELA SET campo = '" & txt_campo & "' ....... where campo = '" valor & "'" conexao.execute sql End If veja se funciona. abracos

Olá!.. use as seguintes propriedades para saber se uma tabela ou conexao esta abertas.. conexao.state = 1 'a conexao esta aberto conexao.state = 0 'a conexao esta fechada tabela.state = 1 'a tabela esta aberto tabela.state = 0 'a tabela esta fechada

Ronaldo, O que voce poderia fazer é o seguinte.. Faco uma busca pelo codigo que vai ser inserido. ex sql = "Select * from tabela where codigo = '" & txt_codigo & "'" if tbl.state = 1 then tbl.close tbl.open sql, conexao if tbl.eof = true then msgbox ("Registro já existente") else 'coloca o codigo aki endif Abracos

o que exatamente voce está querendo?

Ola Dequinha®. Tipo eu não mexo muito com DbGrid então não posso ajudar... eu utilizo o MSFLEXGRID(que na minha opniao é mais facil de usar) mas se voce quiser algum exemplo e tals, nesse site aki tem varios Sources. www.vbmania.com.br Abraços []´s B)

:D aprovada! :P

Ola ZÉ! vamos ver se eu posso te ajudar... Public Function Consultar(ByVal strNome As String) As Variant Set rs = CreateObject("ADODB.Recordset") rs.open "Select 8 from Contatos where Nome = '" & strNome & "'", cn if rs.EOF = true then msgbox "Código Inválido", vbExclamation, "Erro" Else frmCont.txtNome = !Nome frmCont.txtTelefone = IIf(IsNull(!Telefone), Empty, !Telefone) frmCont.txtCelular = IIf(IsNull(!Celular), Empty, !Celular) frmCont.txtEmail = IIf(IsNull(!Email), Empty, !Email) End If rs.Close End Function ve se isso funciona

não entendi a sua duvida :(

ops... esquece o q eu falei... entendi a pergunta totalmente errada.. :-( mal!

Deborah o comando abaixo é para imprimir em um arquivo .txt. Open <caminho\arquivo.txt> For Output As #1 Print #1, Print #1, "Esta tabela tem " & tabela.Record Count & " nomes" Print #1, Close #1 [\code] Abracos

Olá Camila, vamos la. Vou explicar aki para voce utilizar o mdb com o ADO. 1 - Crie o novo projeto 2 - Clique Projects -> References (irá aparece uma lista com as bibliotecas para voce adicionar ao projeto) 3 - Procura a biblioteca Microsoft ActiveX Data Objects 2.x (x = a ultima versao instalada) Agora vou descrever como voce faz para se conectar ao Banco de Dados (.mdb) Dim conexao as new ADODB.Connection conexao.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\demo.mdb" pronto seu programa já esta conectado ao banco de dados .mdb qualquer duvida pega meu ICQ ou Email q eu mando um programa "demo" pra voce ver. Abraços

esse botao voce esta querendo dizer um Command, ou voce quer colocar um Comando quando o cara clicar em uma determinada Linha ou Coluna?

Olá Deborah. Primeiro voce preenche os combos.. ai no evento click do combo voce faz: Obs.: vou explicar em SQL Private Sub combobox1_Click() sql = "Select * from tabela where campo = '" & combobox.text & "'" tabela.open sql, conexao tabela("campo1") = text1 tabela("campo2") = text2 tabela("campo3") = text3 end sub e assim por diante

Opa! consegui fazer lista as pastas :D tipo mas consegui de outra forma.. eheh =) mesmo assim .. brigadaum pela ajuda! :D

Olá, estou com uma duvida como eu faco pra saber se uma determinada pasta tem uma SubPasta? ex. Pasta 01 sub 01 sub 02 sub 03 Pasta 02 sub 01 Pasta 03 eu queria saber se tem algum comando pra mim saber se essas subs 01, 02 e 03 existem... Obrigado

vlw - William Rodrigues - Mas tipo.. so tirar o Botao Fechar não tem como.. tem q tirar tudo mesmo? :unsure:

daniel.itow.. não é um Command esse botao, e sim o proprio BOTAO fechar q existe nas barras do Windows... =) Vlw eddie.. vou tentar dar mais uma procurada.....

Ae.. alguém pode me dizer como eu faco pra dar um sumico no botao fechar ( X ) dos meus forms?? sei la, ou desabilitar ele... iihih =D vlw pela forca!

Não, vai no kazaa e procura por Visual Studio 6.0