hicarocastro

Olha eu não sei mas gostaria de saber se o access aceita o mysql.

Desculpa mas ultimamente estou andando extremamente oculpado, posta teu código ai que eu reviso.

Existem várias mareiras de ser feito, acontelho via "sql update" (consulta de atualização) o access tem um bom assistente que te ajuda a fazer isso. depois é só chamar a consulta no botão.

É o seguinte... Para fazer isto acontecer você vai precisar ter uma função de separação de palavras. Depois com as palavras separadas você pega a primeira letra de cada paravra. Esta é a lógica, mas como eu estou de bom humor ai vai: Function CapturaPrimeiraPalavra(expr As String) 'Esta função retira a primeira palavra de uma expressão Dim Temp, P As Integer Temp = Trim(expr) P = InStr(Temp, " ") If P = 0 Then CapturaPrimeiraPalavra = Temp Else CapturaPrimeiraPalavra = Left(Temp, P - 1) End If End Function Cola esta função ai de cima e depois é assim: dim etapa etapa=CapturaPrimeiraPalavra(nome) cod=left(etapa, "1") etapa=CapturaPrimeiraPalavra(etapa) cod=cod+left(etapa, "1") É isso ai...

Ai vai... DoCmd.SetWarnings (no)

É isso ai pessoal estou fechando...

Olá pessoal, estou com algumas dúvidas falando de segurança. Apesar dos meus arquivos estarem em um servidor pago e o banco de dados na pasta segura do servidors (databases) Qual é a possibilidade de alguém copiar as páginas? Qual é a possibilidade de alguém copiar o banco?

Ai vei: <input name="textfield" type="text" value="search" size="20" style="color: #FFFFFF; font-family: Verdana; font-size: 8 pt; border-style: inset; border-width: 1; background-color: #999999"> Tem como fazer via front page que é mais fácil

Impossível.

Olá pessoal tenho links com comentários, padrões tipo: <a title="Clique aqui para ir ao menu" href="menu.htm"> :: Menu</a> Gostaria de acelerar a exibição deste comentário.

Olá pessoal Peguei um exemplo de chat muito bom no codigolivre.com.br mas ele possui umaa configurações com const como no exemplo abaixo Const DEFAULT_ROOMS = "Nome da sala" Acontece que eu queria que este valor fosse variável, mais ou menos assim: Const DEFAULT_ROOMS = SESSION("CHAT_TITULO") Mas não funciona, ta tentei tb criar uma variável no início pa página e tentar chamar embaixo mas não funciona, porque? Nunca trabalhei com Const como é e para que serve. Valeu

sim mas se for um num arquivo css não funciona

Ai pessoal queria chamar uma session dentro de um css, ou uma variável, mas precisava que a cor da css fosse buscada no banco de dados tem como?

Quando se refere a sigla o que exatamente quer dizer? seria um caracter?

Me refiro ao office instalado no computador que roda o sistema.

Olá pessoal, gostaria de fazer um menu com efeitos quando se passo o mouse em cima de uma celula ela muda de cor. como eu faço esta animação? quero q ao passar o mouse a celula mude de cor.

Private Sub NOMEDOBOTAOAQUI_Click() Me.NOMEDOCAMPOAQUI.Enabled = False End Sub N caso do uso de opções você deve criar uma verificação tipo: Ao atualizar a caixa de opções "listbox". if me.NOMEDALIST="NOMEDAOPÇÃOESCOLHIDA" THEN ME.NOMEDOCAMPO.enabled=false else ME.NOMEDOCAMPO.enabled=true end if

Sem dúvida não aconselho a inserção da imagem no banco de dados pois isso deixa pesado d+, é mil vezes melhor criar um campo que guarde o caminho da imagem, ou somente o nome e você pode montar com seu caminho. Existem sistemas de upload que pegam o nome e gravam no bd e é assim q funciona...

olá pessoal tem como abrir uma página no modo de visualização de impressão?

Ae... Primeiro gostaria de dizer q a página deu um erro grotesco aqui e por isso foi inserido duas vezes, não fio eu!! Depois gostaria de dizer que consegui... e ai vai: Function ValidarCartaoCredito(pCardNumber) Dim CharPos Dim CheckSum Dim tChar For CharPos = Len(pCardNumber) To 2 Step -2 CheckSum = CheckSum + Int(Mid(pCardNumber, CharPos, 1)) tChar = CStr((Mid(pCardNumber, CharPos - 1, 1)) * 2) CheckSum = CheckSum + Int(Left(tChar, 1)) If Len(tChar) > 1 Then CheckSum = CheckSum + Int(Right(tChar, 1)) Next If Len(pCardNumber) Mod 2 = 1 Then CheckSum = CheckSum + Int(Left(pCardNumber, 1)) If CheckSum Mod 10 = 0 Then ValidarCartaoCredito = True Else ValidarCartaoCredito = False End If End Function session("n_cartao")=request("n_cartao") if ValidarCartaoCredito(session("n_cartao")) then response.write("cartão ok"&session("n_cartao")) else response.write("cartão falso"&session("n_cartao")) end if

Olá pessoal estou tentando migrar uma função do Visual Basic para VBScript, e não estou conseguindo, poderiam me ajudar? Private Function ValidarCartaoCredito(ByVal pCardNumber As String) As Boolean Dim CharPos As Integer Dim CheckSum As Integer Dim tChar As String For CharPos = Len(pCardNumber) To 2 Step -2 CheckSum = CheckSum + CInt(Mid(pCardNumber, CharPos, 1)) tChar = CStr((Mid(pCardNumber, CharPos - 1, 1)) * 2) CheckSum = CheckSum + CInt(Left(tChar, 1)) If Len(tChar) > 1 Then CheckSum = CheckSum + CInt(Right(tChar, 1)) Next If Len(pCardNumber) Mod 2 = 1 Then CheckSum = CheckSum + CInt(Left(pCardNumber, 1)) If CheckSum Mod 10 = 0 Then ValidarCartaoCredito = True Else ValidarCartaoCredito = False End If End Function

Simples... Coloque um campo com nome relogio no seu formulário. Insira a formula dentro do campo =time() Agora tem um evento no formulário que chamado 'on time', em português deve ser 'ao tempo' ou coisa assim lá insira o commando me.relogio.requery e em baixo deste evento tem um número 0 mude para 1000. Prontinho...

cara eu tentei isso <table border="1" cellpadding="0" cellspacing="0" style='border: Alpha(Opacity=100, FinishOpacity=0, Style=1, StartX=0, StartY=80, FinishX=0, FinishY=0)'bordercolor="#111111" width="100%" id="AutoNumber1"> <tr> <td width="100%">&nbsp;</td> </tr> </table> mas a tabela só ficou grossa

olá pessoal, Tenho uma página e no rodapé tem um inframe que quero colocar uma página rolando dentro, se possível da esquerda para direita e depois bate e volta da direita para esquerda, entendem? isso bem lento e se possível parar quando o mouse encostar seria bom. Mas só fazer ela rolar na horizontal já ajudaria bastante! Valeu

quando clica em criar um potão escolha no assistente a opção Rum Aplication ou Executar Programa em pt, depois direcione ao calc.exe do windows