hicarocastro

Olá pessoal, estou com um problema preciso de um código java que insira caracteres em um campo file já que não tem como inserir um valor padrão.

imagine uma página asp que ao abrir procure o arquivo c:\vendas\vendas.mdb dentro do meu computador e manda para uma pasta que tenho no servidor com permissão de escrita fazendo o upload/atualização das minhas tabelas, sendo assim os representantes terão como ver os dados das vendas entendeu?

Olá, Não entendi muito bem o que quis dizer com cid:...., mas quanto a colocar uma imagem no corpo do e-mail é fácil, você pode abrir o Mcrosoft FrontPage Inserir uma imagem, formata da maneira que quiser pode colocar links etc, depois copie o código abra o OutlooK Express 6, clque em criar e-mail vá na aba exibir / editar código fonte verifique se esta marcado, daí você entra na aba origem embaixo substitui o codigo padrão pelo que você copiou e pronto. só isso hehehe

Cara você tem que fazer um formulário com dois campos que podem se chamar: DI E DF di de data inicial e DF de data final vamos dizer que seu formulário chama-se print dai então você vai alterar a formula de sua consulta para: Between [forms]![print]![di] And [forms]![print]![df] coloque tb no seu form um botão abrindo o relatório e no relatório você pôe uma caixa de texto com a formula: ="Data Inicial " & [forms]![print]![di] &" Data Final " & [forms]![print]![df] Pronto!

Olá, É muito simples de fazer digamos que: seu campo de valor unitário tem nome= [vrl] e seu campo de quantidade tem nome= [qnt] então seu total será =[vrl]*[qnt] Coloque isso em um campo e veja o resultado

Como posso desconectar todas as sessões de usuários logados?

Mande-me seu email que te envio o código pronto.

Por favor eu estou tentando encontrar alguém que saíba como fazer upload sem o uso do campo file os componentes instalados no servidor são: ADODB SA-FileUp AspHTTP AspImage FileSystemObject ASPMail CDONTS Persits Upload Por favor, eu ta estou tentando a algum tempo se você sabe como fazer da uma força, o que eu quero é pre-determinar o caminho do arquivo de origem.

cara eu não entendi muito bem sua pergunta, mas se você estiver falando do meu padrão superior clique com bt direito no menu e vá em propriedade ai você tem os controles para criar um menu

Comece com access, pois esta ferramenta tem o vb inteiro

uma maneira é você fazer uma tabela de "transação" - uma tabela que receba os dados dessa etiqueta, sendo assim você terá um form com um botão que ao clicar vai executar uma consulta de acrescimo, acrecentando na tabela a quantidade de etiqueta necessária à imprimir a página inteira, lembre-se que antes dessa você terá que ter uma que exclua a consulta anterior.

cara é meio complicado mas você tem augumas opções a que eu aconselharia é: Em um novo botão procure nas propriedades a propriedade transparente e selecione a opção sim, sendo assim você pode colocar uma imagem ai no fundo entre outras coisa como colocar um evento ao mover a imagem 1 aparecer imagem2que por sua vez estar no fundo do botão transparente. hehehe é meio louco + tem um fundo lógico grande espero que entenda.

Cara pelo que eu entendi você tem que aprender um pouco de relacionamento vou te mandar um dos melhores exemplos de estoque que eu conheço, quero que esqueça seu problema e entenda estes relacionamentos ai você vai aprender a relacionar e nunca mais terá esse tipo de problema. Me manda teu e-mail

Da uma olhada nas referencias lá num módulo.

Ficou meio confuso então vou mandar o valor que você deve inserir num campo de texto: =extenso([nomedocampoondeestarovalor])

Olá, Cole o código abaixo num módulo, sendo feito digite em qualquer campo o valor extenso([nomedocampoondeestarovalor]) Módulo: Option Compare Database Option Explicit Function Sair() If MsgBox("Você deseja sair do aplicativo?", vbYesNo + vbQuestion, "Confirmação") = vbYes Then Application.Quit acPrompt End End If End Function Function extenso(nValor As String) As String 'Autoria..: Eng. Cesar Costa e Dalicio Guiguer Filho 'Linguagem: Access Basic 'Data.....: Fevereiro/1994 'Modificada: Wintceas Villaça Godois Jr. 'Linguagem.: VBA 'Data......: Outubro/1997 'Modificada: César Rocha 'Linguagem.: VBA 'Data......: Novembro/1997 'Faz a validação do argumento If IsNull(nValor) Or nValor > 999999999.99 Then Exit Function 'Declara as variáveis da função Dim intContador As Integer Dim intTamanho As Integer Dim strValor As String Dim strParte As String Dim strFinal As String Dim strGrupo(4) As String Dim strTexto(4) As String 'Define matrizes com extensos parciais Dim strUnid(19) As String strUnid(1) = "um ": strUnid(2) = "dois ": strUnid(3) = "três ": strUnid(4) = "quatro ": strUnid(5) = "cinco ": strUnid(6) = "seis ": strUnid(7) = "sete ": strUnid(8) = "oito ": strUnid(9) = "nove ": strUnid(10) = "dez ": strUnid(11) = "onze ": strUnid(12) = "doze ": strUnid(13) = "treze ": strUnid(14) = "quatorze ": strUnid(15) = "quinze ": strUnid(16) = "dezesseis ": strUnid(17) = "dezessete ": strUnid(18) = "dezoito ": strUnid(19) = "dezenove " Dim strDezena(9) As String strDezena(1) = "dez ": strDezena(2) = "vinte ": strDezena(3) = "trinta ": strDezena(4) = "quarenta ": strDezena(5) = "cinqüenta ": strDezena(6) = "sessenta ": strDezena(7) = "setenta ": strDezena(8) = "oitenta ": strDezena(9) = "noventa " Dim strCentena(9) As String strCentena(1) = "cento ": strCentena(2) = "duzentos ": strCentena(3) = "trezentos ": strCentena(4) = "quatrocentos ": strCentena(5) = "quinhentos ": strCentena(6) = "seiscentos ": strCentena(7) = "setecentos ": strCentena(8) = "oitocentos ": strCentena(9) = "novecentos " 'Divide o valor em vários grupos strValor = Format$(nValor, "0000000000.00") strGrupo(1) = Mid$(strValor, 2, 3) 'Milhão strGrupo(2) = Mid$(strValor, 5, 3) 'Milhar strGrupo(3) = Mid$(strValor, 8, 3) 'Centena strGrupo(4) = "0" + Mid$(strValor, 12, 2) 'Centavo 'Processa cada grupo For intContador = 1 To 4 strParte = strGrupo(intContador) intTamanho = Switch(Val(strParte) < 10, 1, Val(strParte) < 100, 2, Val(strParte) < 1000, 3) If intTamanho = 3 Then If Right$(strParte, 2) <> "00" Then strTexto(intContador) = strTexto(intContador) + strCentena(Left(strParte, 1)) + "e " intTamanho = 2 Else strTexto(intContador) = strTexto(intContador) + IIf(Left$(strParte, 1) = "1", "cem ", strCentena(Left(strParte, 1))) End If End If If intTamanho = 2 Then If Val(Right(strParte, 2)) < 20 Then strTexto(intContador) = strTexto(intContador) + strUnid(Right(strParte, 2)) Else strTexto(intContador) = strTexto(intContador) + strDezena(Mid(strParte, 2, 1)) If Right$(strParte, 1) <> "0" Then strTexto(intContador) = strTexto(intContador) + "e " intTamanho = 1 End If End If End If If intTamanho = 1 Then strTexto(intContador) = strTexto(intContador) + strUnid(Right(strParte, 1)) End If Next intContador 'Gera o formato final do texto If Val(strGrupo(1) + strGrupo(2) + strGrupo(3)) = 0 And Val(strGrupo(4)) <> 0 Then strFinal = strTexto(4) + IIf(Val(strGrupo(4)) = 1, "centavo", "centavos") Else strFinal = "" If Val(strGrupo(2)) = 0 And Val(strGrupo(3)) = 0 And Val(strGrupo(4)) = 0 Then strFinal = strFinal + IIf(Val(strGrupo(1)) <> 0, strTexto(1) + IIf(Val(strGrupo(1)) > 1, "milhões de ", "milhão de "), "") End If If Val(strGrupo(2)) <> 0 And Val(strGrupo(3)) = 0 And Val(strGrupo(4)) = 0 Then strFinal = strFinal + IIf(Val(strGrupo(1)) <> 0, strTexto(1) + IIf(Val(strGrupo(1)) > 1, "milhões e ", "milhão e "), "") End If If Val(strGrupo(2)) = 0 And Val(strGrupo(3)) <> 0 And Val(strGrupo(4)) = 0 Then strFinal = strFinal + IIf(Val(strGrupo(1)) <> 0, strTexto(1) + IIf(Val(strGrupo(1)) > 1, "milhões e ", "milhão e "), "") End If If Val(strGrupo(2)) <> 0 And Val(strGrupo(3)) <> 0 And Val(strGrupo(4)) = 0 Then strFinal = strFinal + IIf(Val(strGrupo(1)) <> 0, strTexto(1) + IIf(Val(strGrupo(1)) > 1, "milhões, ", "milhão, "), "") End If If Val(strGrupo(2)) <> 0 And Val(strGrupo(3)) <> 0 And Val(strGrupo(4)) <> 0 Then strFinal = strFinal + IIf(Val(strGrupo(1)) <> 0, strTexto(1) + IIf(Val(strGrupo(1)) > 1, "milhões, ", "milhão, "), "") End If If Val(strGrupo(2)) <> 0 And Val(strGrupo(3)) = 0 And Val(strGrupo(4)) <> 0 Then strFinal = strFinal + IIf(Val(strGrupo(1)) <> 0, strTexto(1) + IIf(Val(strGrupo(1)) > 1, "milhões, ", "milhão, "), "") End If If Val(strGrupo(2)) = 0 And Val(strGrupo(3)) = 0 And Val(strGrupo(4)) <> 0 Then strFinal = strFinal + IIf(Val(strGrupo(1)) <> 0, strTexto(1) + IIf(Val(strGrupo(1)) > 1, "milhões de ", "milhão de "), "") End If If Val(strGrupo(2)) = 0 And Val(strGrupo(3)) <> 0 And Val(strGrupo(4)) <> 0 Then strFinal = strFinal + IIf(Val(strGrupo(1)) <> 0, strTexto(1) + IIf(Val(strGrupo(1)) > 1, "milhões, ", "milhão, "), "") End If If Val(strGrupo(3)) = 0 Then strFinal = strFinal + IIf(Val(strGrupo(2)) <> 0, strTexto(2) + "mil ", "") Else If Val(strGrupo(4)) = 0 Then strFinal = strFinal + IIf(Val(strGrupo(2)) <> 0, strTexto(2) + "mil e ", "") Else strFinal = strFinal + IIf(Val(strGrupo(2)) <> 0, strTexto(2) + "mil, ", "") End If End If If Val(strGrupo(4)) = 0 Then strFinal = strFinal + strTexto(3) + IIf(Val(strGrupo(1) + strGrupo(2) + strGrupo(3)) = 1, "real ", "reais ") Else strFinal = strFinal + strTexto(3) + IIf(Val(strGrupo(3)) <> 1, IIf(Val(strGrupo(1) + strGrupo(2) + strGrupo(3)) = 1, "real ", "reais "), "real ") End If strFinal = strFinal + IIf(Val(strGrupo(4)) <> 0, "e " + strTexto(4) + IIf(Val(strGrupo(4)) = 1, "centavo", "centavos"), "") End If If Left(strFinal, 1) = "u" Then extenso = "H" & Mid$(strFinal, 1) Else extenso = UCase(Mid$(strFinal, 1, 1)) & Mid$(strFinal, 2) End If 'Dim aux As String * 250 'aux = Trim(extenso) ' e alterar esta linha para trim(Extenso) 'While Len(Trim(aux)) <> 250 'aux = Trim(aux) & "-x" 'Wend 'extenso = aux End Function

Olá, A compilação é feita dentro de um módulo do access, você deve entrar em qualquer módulo entrar em Debug e Compile, após executar esse procedimento se o mesmo não der erro você poderá gerar o mde que é um arquivo mdb trancado onde ninguém pode mexer, mas o access não roda como exe, existe run time do 2000 ou XP que fazem rodar sem a necessidade do access instalado.

Cara essa linha é a do destino, o que eu quero é declarar a linha de origem. Agradeço a sua atenção e resposta se conseguir algo por favor ajude-me Valu

como faço isso?

como faço isso?

Olá amigo, Descupe mas não entendi quando se refere a permitir campos null, quais são as restrições?

Olá, Preciso fazer um upload com linhas VB alguém poderia me ajudar?

Olá pessoal, Preciso fazer um upload sem intervenção de usuários, sendo assim ele dever fazer upload de um arquivo da máquina sem ter que selecionar o arquivo em um campo file, mas isso ta muito difícil de conseguir então gostaria de conseguir colocar um endereço padrão no campo file + a propriedade value="caminho" não funciona no campo file então só me restou uma coisa pedir socorto! Aguardo este socorro e agradeço desde já a atenção de todos!!! Hícaro Castro

Olá gostaria de saber como posso inserir um caminho de arquivo de origem no código abaixo: <HTML> <BODY> <% Set upl = Server.CreateObject("SoftArtisans.FileUp") %> <% upl.Path = "e:\home\login\web\upload" %> <% upl.Save %> Total de Bytes Enviados: <%=upl.TotalBytes%> <% Set upl = Nothing %> </BODY> </HTML>

Gostaria de agradecer a paciencia e atenção de Dark, valeu amigo!!!