kuroi

você esta pondo o </table> dentro do while, quando ele deveria estar depois. pois a tabela so vai acabar depois de por todos os registros e sair do while. do jeito q esta ele vai passar pelo </table> já no primeiro e vai fechar a tabela.

não, nesse caso não precisa de end if (acho).

ou você faz assim: <% if rsHoje("hora") < 10 then response.write "0" & rsHoje("hora") else response.write rsHoje("hora") end if%>:00</td> ou você faz assim: <% if rsHoje("hora") < 10 then response.write "0" & rsHoje("hora") else response.write rsHoje("hora") %>:00</td> se todo o codigo do if estiver na mesma linha, todo o codigo do else tb deve esta e viceversa.

o certo é OptionButton.

so pus o Text1.Text entre apostrofo. a sua formula ficou assim: criterio = "{Cadastro.Data}= '2 - 23/12/2005 - 17:40:05'" ficaria errado se ficasse assim: criterio = "{Cadastro.Data}= 2 - 23/12/2005 - 17:40:05"

no setup acho q não da não...

vai ser dificil... o moderador ta sumido. por falar nisso alguém sabe o q aconteceu com o william?

acho q não precisa ter todos. não funciona se c fizer: <select name=cores> <option value="">Escolha uma cor</option> <option value="azul" If request.querystring("cor") = "azul" Then Response.Write " selected">azul</option> <option value="roxo" If request.querystring("cor") = "roxo" Then Response.Write " selected">roxo</option> <option value="branco" If request.querystring("cor") = "branco" Then Response.Write " selected">branco</option> <option value="cinza" If request.querystring("cor") = "cinza" Then Response.Write " selected">cinza</option> <option value="verde" If request.querystring("cor") = "verde" Then Response.Write " selected">verde</option> </select> ??? o q você precisa é ter no select todos os valores do banco.

ponha a propriedade KeyPreview do Form = True. no evento KeyDown do Form, faca: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then SendKeys "{TAB}" End Sub

entendi, valeu fantasma

Form.WindowState = 1

isso é verdade...

você não consegue baixar esse browser pra testar o seu codigo?

deve ser algumas dessas linhas: rs_add.CursorLocation = 3 rs_add.CursorType = 3 rs_add.LockType = 3 q tira a permissao e não deixa c gravar.

so queria saber se existe algum browser q não suporta asp tipo Internet Explorer 1.0, 2.0, etc.

browsers antigos suportam ASP?

mostre o codigo da pagina onde você grava a mensagem e da paginda onde você mostra a mensagem.

você realmente esta no form1?

so q o certo seria: x = dateadd ("m", 1, x) com aspas e não apostrofos.

o campo data é string? se for, faca assim: criterio = "{Cadastro.Data}= '" & Text1.Text & "'"

o certo não seria assim: criterio = "{Cadastro.CaCodigo}= " & Text1.Text com {} no lugar de ()? outra coisa é q não estou entendnedo o q você quer passar para o selection formula. porque desse jeito, a formula vai ficar assim: {Cadastro.CaCodigo}= 2 - 23/12/2005 - 17:40:05 é isso esta totalmente errado. q tipo de campo é o ca codigo? string? data? numero? seja qual for, isso q você passou não existe. você poderia pelo menos tentar por entre aspas ou apostrofos. o q você quer fazer não é isso: {Cadastro.CaCodigo}= 2 ?

ue, c tinha dito q funcionava... você pos o propriedade KeyPreview do Form = True? Outra coisa é q costumo fazer esse mesmo codigo seu no evento KeyDown. assim: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then SendKeys "{TAB}" End Sub se não funcionar do seu jeito, tente com o KeyDown

o select não tem nenhum erro, mas não sei se é isso mesmo q c quer, não entendi esse negocio de agora() + 30. siga a dica do fercosmig

e eu sei qual é o erro 3021? ajuda se você passar a descricao do erro e mostrar qual a linha q da o erro. senao não da pra ter certeza. mas acho q em vez de: With tcodigospostais While Not tcodigospostais.EOF .Requery .Find "[Distrito] like '" & num & "'" .Fields(1) = palavra .Update lblactual.Caption = .Fields(0).Value Wend End With você devia fazer: With tcodigospostais .Requery .Find "[Distrito] like '" & num & "'" If Not tcodigospostais.EOF .Fields(1) = palavra .Update lblactual.Caption = .Fields(0).Value End If End With

a variavel keyascii so funciona dentro do evento KeyPress. do jeito q esta é a mesma coisa q voce fazer: Public SUb Proximo() If x = 13 Then SendKeys "{TAB}" End If End Sub pra falar a verdade, fica mais facil por esse codigo dentro do keypress do q fazer uma funcao. vai gastar so uma linha. assim: Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{TAB}" End Sub mas se você quiser mesmo usar uma funcao, c pode fazer assim: Public Sub Proximo(KeyAscii as Integer) If KeyAscii = 13 Then SendKeys "{TAB}" End If End Sub e na hora de chamar, assim: Private Sub Form_KeyPress(KeyAscii As Integer) Proximo KeyAscii End Sub