Bob Esponja

Clareou sim.... obrigado! Como eu declararia que RH = form.option1.value em PHP ? Valeu...

Poxa.... não entendi não.... sem querer pedir muito, pode me explicar esse código ?! Obrigado.... Abraço!

variavel = form.option.value Select Case variavel case RH end = rh@dominio.com.br case departamento pessoal end = dp@dominio.com.br case coordenadoria end = coordenadoria@dominio.com.br End Select Esse codigo ai esta bem bruto..... escrevi a grosso modo... Está em ASP. Como ficaria isso ai em PHP ?! alguém pode me dar uma ajuda ae ?! Brigadão.... Abraço!

Fala ae, beleza ?! Seguinte.... acho q voce poderia fazer isso ai por ip. Mas eu nunca trabalhei com arquivos mdb em rede, mas tudo bem..... como conselho eu te falaria para trocar o teu banco de dados e trabalhar com SQL SERVER, o que facilitaria e muito a sua vida pra trabalhar com REDE + BANCO DE DADOS. Mas acho q mdb em rede você poderia fazer assim... na string de conexao, onde você coloca o endereço da past q se encontra o arquivo, coloque assim: \\ipdoservidor\pasta\banco.mdb mas tem uma observação.... você vai ter q ajustar as permissões para o compartilhamento da pasta no servidor q vai conter o arquivo de banco de dados.... ok ?! Qualquer duvida posta ai.... Abraço!!

Ae lemissel valeu mesmo...... tah funfando! So uma parada..... da uma olhada no link q eu mandei lá em cima: Se você der uma olhadinha, você vai poder ver q ai tem um option.... e a pessoa não ve o email propriamente dito do setor para o qual esta enviandoo o e-mail..... sacou ?! Tipo, eu sei fazer essa programação, mas não em PHP. é ateh facil, mas não PROGRAMO em PHP..... Ficaria mais ou menos assim: variavel = form.option.value Select Case variavel case RH end = rh@dominio.com.br case departamento pessoal end = dp@dominio.com.br case coordenadoria end = coordenadoria@dominio.com.br End Select Esse codigo ai esta bem bruto..... escrevi a grosso modo... Como ficaria isso ai em PHP ?! alguém pode me dar uma ajuda ae ?! Brigadão.... Abraço!

Olá pessoal.... estou com uma emergencia! Me deparei com um site em PHP agora, e é o primeiro contato com essa linguagem q eu estou tendo, já que eu programo em ASP. Como o servidor q eu contratei só aceita PHP, vou ter q aprender na marra. Mas primeiramente, para não deixar o site da empresa parado, estou tentando colocar pelo menos o CONTATO no ar. Eu andei pesquisando, e encontrei um site na net com um PHPmail simples, mas q eu não faço a minima de como fazer. alguém pode me ajudar com isso..... por enquanto estou precisando de um phpmail q funcione é claro.... só pra não parar o contato do site. E é claro q vou me aprofundar mais na linguagem depois..... O site é: http://www.rjengenharia.com.br/fale.php não estou falando de lay-out nem nada, mas o mailer funcionaria exatamente igual a esse dai.... quem puder me ajudar, agradeço... Abraço!

William.... problema sanado! Funcionou perfeitamente aqui.... utilizei com variável. Ficou assim: FormatCurrency(VF, 2) obrigado pela atenção ai.... Abraços! Oops... Fui eu que postei esse ultimo tópico, mas não estava logado.... Abraço!

Fala William.... quando eu postei daquela vez, foi sobre arredondamento de numeros..... foi até com a função Fix() e tal.... mas esse não é o meu caso agora.... E como funcionaria essa função que você citou ?! (FormatCurrency) Abraço!

Olá pessoal !! Td beleza ?! Estou tendo problemas com casas decimais..... eu sei que é bobo, mas não estou conseguindo solucionar. Eu tenho uma conta e o resultado dela será um valor utilizado como valor monetario(dinheiro). Então eu não posso ter um valor com mais de duas casas decimais à direita da vírgula. Como eu faria, para fazer com q esse valor possuísse sempre duas casas decimais mesmo q o resultado da conta seja maior ?! Por exemplo...... o número 38406,7224 seja 38406,72 ...... entederam ?! Se alguém souber alguma coisa posta ai.... ok ?! Abraços!

Vou explicar o que eu estou tentando fazer com essa rotina ai: Private Sub Form_Load() legenda = 1 If tempo <> 0 Then MsgBox "A quantidade de meses a serem pagos é:" & " " & tempo, vbOKOnly 'rotina de inclusao na listbox List1.FontBold = True List1.AddItem legenda & "º ano" For meses = 1 To 12 List1.FontBold = False List1.AddItem prestinicial Next end if É o seguinte: Eu quero adicionar ao meu list, inicialmente, algo como por exemplo "1º ANO" estando este em NEGRITO. E posteriormente alguns valores com letra normal (sem estar em negrito). Mas quando eu coloco na repetição list1.fontbold = false ele coloca todos os registros do list em letra normal..... Minha estrutura ficaria com o "1º ANO" em negrito e os outros com letra normal, "2º ano" em negrito, e outros valores com letra normal.... e assim sucessivamente. alguém pode me ajudar com isso ?!?!? Abraço!

No caso o que seria esse TreeView ?? Como funciona ?? Nunca ouvi falar.... Abraço!

Olá a todos! Seguinte, estou com uma duvida.... Eu tenho uma list (list1) e fiz uma repetição com FOR. Esta repetição é bem grande, com mais ou menos uns 96 itens, que são automaticamente adicionados na List com a rotina abaixo. Private Sub Form_Load() Dim meses For meses = 1 To tempo List1.AddItem prestinicial & " " & "PGTO" Next End Sub Eu gostaria de fazer o seguinte. A cada 12 itens, ele fizesse com que o 12º viesse em Negrito. Eu tenho tendado colocar um if ali dentro, mas não tem dado certo... alguém sabe como eu posso interagir com um determinado item dentro da list sem afetar os demais ??? Obrigado... Abraços!

Fala ae pessoal! Obrigado a todos que me ajudaram e me deram dicas de como eu poderia fazer isso.... vou ficar com a dica que o Graymalkin passou.... acho que fazendo uma busca antes no banco de dados, eu solucionaria o problema com apenas um IF não pesando tanto o aplicativo. Obrigado a todos que postaram.... quanto as outras dicas, vou estudá-las. Abraços...!

Olá a todos! Tem como evitar que uma pessoa se cadastre com um nome que já existe no cadastro ? vlw!

Fala ae William..... obrigado ai pela força brother.... eu fiz de outro jeito... ficou assim: Private Sub List1_Click() If List1.ListIndex = -1 Then txtnome_busca.Text = "" Else txtnome_busca.Text = List1.List(List1.ListIndex) End If End Sub muito obrigado ai pela ajuda!!! Vlw!!

Olá pessoal! Td beleza ?! Como não tem nenhum tópico relacionado a isso, vou postar aqui.... Eu tenho uma list (list1) e uma textbox (text1), e gostaria que ao clicar em um dos itens da list, na minha textbox aparecesse este item, e conforme eu mudasse os itens na list, mudasse também o text da textbox. Acho q enrolei um pouco voces, mas este pequeno código (q esta errado), vai fazer voces entenderem a grosso modo: Private Sub List1_Click() Set txtnome_busca.Text = List1.Text End Sub Entenderam? Abraço a todos!

Valeu Graymalkin !! Modifiquei as aspas e depois deu um monte de erros.... mas no final ficou tudo bem após algumas modificações! Dim url_conexao As String Dim SQL url_conexao = App.Path & "\banco.mdb" Set conexao = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Set rs = New ADODB.Recordset conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & url_conexao & "" rs.Open "select * from PRESTIMOB where nome='" & nome_busca & "'", conexao, adOpenKeyset, adLockOptimistic If rs.RecordCount = 0 Then MsgBox "Nome não cadastrado!", vbExclamation, "Erro" Else Form1.txtfinanciamento = IIf(IsNull(rs!valor_finan), Empty, (rs!valor_finan)) Form1.txtrenda = IIf(IsNull(rs!renda), Empty, (rs!renda)) Form1.txtjuros = IIf(IsNull(rs!juros), Empty, (rs!juros)) End If rs.Close End Function Valeu a ajuda... Abraço!

Ufa.... Realmente, isso dá um nó na cabeça de qualquer um!! Deu na minha!! Mas esse post está ai pra esclarescer o pessoal!! Obrigado pessoal por mais uma duvida q parecia ser geral.... abraços!

Olá pessoal..... estou tendo problemas com uma função de consulta.... o vb está dando erro na linha em negrito de parâmetro insuficiente..... alguém pode me dar um help ? Public Function Consultar(ByVal nome_busca As String) As Variant Dim url_conexao As String Dim SQL url_conexao = App.Path & "\banco.mdb" Set conexao = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Set rs = New ADODB.Recordset conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & url_conexao & "" SQL = "select * from PRESTIMOB where nome = " & nome_busca & "" [B]conexao.Execute ("select * from PRESTIMOB where nome = " & nome_busca & ""), SQL[/B] If rs.RecordCount = 0 Then MsgBox "Código Inválido", vbExclamation, "Erro" Else Form1.txtfinanciamento = IIf(IsNull("rs!valor_finan"), Empty, ("rs!valor_finan")) Form1.txtrenda = IIf(IsNull(rs!renda), Empty, rs!renda) Form1.txtjuros = IIf(IsNull(rs!juros), Empty, rs!juros) End If rs.Close End Function Se alguém puder me ajudar, posta ai.... abraço!

Salve Graymalkin.... entendi o que você disse... estava realmente me confundindo com isso. Obrigado por ter me dado uma luz ai.... Abraço!

Olá pessoal..... vou postar o codigo muito simples de uma aplicação de soma q eu criei para testar essa rotina. Option Explicit Dim valor1 Dim valor2 Private Sub Command1_Click() valor1 = Val(Text1.Text) valor2 = Val(Text2.Text) Label1.Caption = valor1 + valor2 End Sub Private Sub Command2_Click() [B]Dim pvariavel Dim svariavel pvariavel = valor1 svariavel = valor2 If IsNull(pvariavel) Or IsNull(svariavel) = False Then MsgBox "variaveis vazias! voce não pode finalizar a aplicação!", vbOKOnly, "Meu título !" Else Unload Me End If[/B] End Sub Nessa parte em negrito, é onde tem a rotina que está sendo testada. Se eu colocar FALSE (como está acima) ele me apresenta essa mensagem não importa o que aconteça, mas se eu colocar TRUE, ele da um UNLOAD ME no form todas as vezes q eu clico ignorando a msg. Se alguém puder me dar um help, posta ai! Um abraço!

trank ;-) Fica a vontade! Aqui no forum todos somos amigos... hehe William, Vou testar isso ai depois, mas deixa esse tópico aberto porque eu devo voltar a postar, ok ?! Obrigado pela ajuda! Abraço!

Olá pessoal! Estou com uma duvida no VB! Estou querendo trabalhar com uma condição, e está condição é a seguinte: uma variável estar vazia. Estou tentando assim, mas ele não está obedecendo..... deve ter alguém erro, mas o engraçado é q a aplicação não me mostra nada. Private Sub grava_info_Click() Dim pvariavel Dim svariavel pvariavel = VF svariavel = tempo If IsNull(pvariavel) = True Or IsNull(svariavel) = True Then MsgBox "Você está esquecendo de calcular algum valor!", vbOKOnly, "ATENÇÃO!" Else Form2.Show End If End Sub Esse aí é o meu código, onde eu tenho duas variáveis globais: VF e tempo. Essas variáveis devem estar com informação para que o form2 venha a aparecer. Caso contrário, uma mensagem é exibida. Mas mesmo com essas variáveis vazias, ele mostra o form2. Sinal q ele interpreta as variáveis como estando vazias. Estou realmente encucado!! Se alguém puder me ajudar, posta aí. Um abraço!

Ok Décio! Muito obrigado brother, entendi o que você quis dizer!! Abraço!

Só existe essa possibilidade mesmo ?! o que eu queria exatamente era uma caixa de msg q o usuário pudesse entrar com o seu nome e depois clicasse em OK e não tivesse opção de CANCELAR. Como por exemplo, aquelas caixas que se abrem quando você entra em determinado site e pede o seu nome. Me entendeu ?! Qualquer coisa, posta ai... abraço! ps.: de qualquer forma, obrigado Decio.