kuroi

acho q o erro nem é de banco não. posta o codigo q você usa e a linha onde ta o erro.

Erro de permissão pode significar mta coisa. Qual é exatamente a mensagem q aparece??

o q acontece é q ele deve estar escrevendo um numero por vez no textbox. então, como exatamente funciona o seu programa?? ele esta com o foco no textbox na hora de ler o codigo de barras?? se estiver, então, em vez de por no evento Change, ponha no Validate ou no LostFocus. ai ele vai pesquisar assim q ele tirar o foco do TextBox.

não é só usar a propriedade .Text do combo e fazer a programacao no evento Click dele?? qual é a sua duvida exatamente??

não tem como não. mas normalmente não teriamos esse problema. se o subreport esta ligado ao report principal (se for um resumo dos dados do principal), entoa você deve ter os mesmos campos no principal e é só fazer o somatorio tb assim como você fez no sub.

seria isso?? If imc >=18 And imc <=25 Then MsgBox "Aprovado" End If[/code]

ue, mas qual seria a utilidade de se declarar evento numa classe?? os eventos são respostas pra acoes dos usuarios. os usuarios não vao interagir com classes, apenas o programador. o q exatamente você quer fazer??

veja se ajuda isso aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=78756

qual o erro??

ta, você ta usando as funcoes KeyDown ou KeyPress, certo?? então é só fazer como eu disse no post anterior. qualquer duvida pergunta.

agora pra mim deu esse erro aqui na sua pagina: se você ta usando o mesmo codigo q você postou aqui, acho q significa q ou o campo RE ou o campo ID ou os dois NÃO EXISTEM na tabela Login. de uma olhada ai e ponha os nomes certos. alias, se você vai fazer o select pra selecionar só um registro, então pra q o Order By?? tire o Order By do Select.

cara a query ta certinha, ta voltando o codigo sim. antes quando eu digitava o numero no seu site e clicava em entrar, ele me dava erro de q o codigo não estava sendo passado. você disse aqui q o erro era esse: mas pra mim aqui aparecia uma mensagem direfente. no caso a mensagem q você passou seria a mensagem custom do seu servidor, mas pra mim aparecia a mensagem de erro do proprio ASP. tenta agora voltar a parte do execute como tava antes (tire as linhas do Response.Write e do Response.End e volte a linha q executava o sql). ai olha la qual a mensagem de erro q aparece pra você. se aparecer a mesma me avisa q eu olho qual vai aparecer pra mim e posta o codigo tb. a e quando você for testar, tenta digitar um numero q realmente exista no banco pra ver se vai dar erro.

Dim x As Byte Randomize x = Int(Rnd * 40) + 1[/code]

o q quer dizer "capturar o TAB"?? explica o q você quer fazer e o problema q você ta tendo. se você quer dizer q não consegue saber quando ele tecla TAB pelos eventos KeyDown e KeyUp porque ele muda o foco do controle em vez de pegar o codigo, então vai funcionar se você setar a propriedade TabStop de todos os controles do formulario como False. se você for precisar capturar o TAB só em um controle e precisa do TabStop pros demais, então, acho q você pode, no foco desse controle, setar os TabStop pra False, e, quando perder o foco setar pra True. pode fazer com For Each pra ficar mais facil. na verdade ia ser um saco fazer tudo isso, mas não sei se tem uma forma melhor.

GET e POST são metodos de formularios HTML, não tem nd a ver com VBA. tb não entendi o exemplo.

o UCase é da dll do VBA (msvbvm60.dll) mas normalmente ela já esta adicionada ao seu projeto (se você olhar em referencias vai ver a opcao Visual Basic for Applications selecionada) e se por um acaso você tirasse ela (o q, alias, o Visual Basic nem deixa você fazer), provavelmente não seria só essa linha q teria e sim a maioria já q a maioria nas funcoes q usamos vem dela. o q acho q aconteceu é q a funcao UCase ta dando conflito com alguma outra biblioteca, ou você tem algum outro objeto ou variavel declarada com o nome de UCase. se for esse o caso, recomendo q você mude o nome dessa variavel. mas pra resolver o seu problema, troque UCase por VBA.UCase em todas as ocorrencias e veja se funciona, qualquer coisa poste ai. se o VBA.UCase não funcionar, talvez então o erro não seja exatamente no UCase e sim em algum outro metodo e funcao e talvez você esteja confundindo, nesse caso, de uma olhada ai.

hum é verdade, olhei no seu link e vi q os dados tão ficando no querystring porque você pos o metodo get do formulario, então, esqueca o meu ultimo post, pegue por Request.QueryString mesmo e não por Request.Form. mas não tem logica o seu codigo não funcionar. o erro q ele acusa é q o codigo esta em branco. bom... normalmente isso não faz diferenca, mas percebi no seu codigo, q a variavel Codigo aparece uma vez com o c maiusculo e outra com ele minusculo. normalmente isso não faz diferenca, mas tenta padronizar isso (deixar todas as vezes com o c mausculo ou todas com c minusculo) e veja se o erro continua, talvez seja do seu servidor. se não ainda tente eliminar de vez a variavel codigo e monte a sql direto pela querystring. tipoi assim: SQL = "Select RE, nome From Login where re = " & Request.QueryString("RE") & " Order By ID" se não funcionar, tenta então printar o sql pra gente ver o q ele retorna. tipo, troque a linha Set RS = MyConn.Execute(SQL) por Response.Write(SQL) Response.End()[/code] e veja o texto q aparecer e poste pra gente ver.

a vi agora aqui: Codigo = Request.QueryString("RE") o RE ta vindo do post do formulario e não da QueryString, certo?? então faca assim para pega-lo: Codigo = Request.Form("RE")

cara, não é bem isso você ta pondo a string codigo dentro da query. o q você tem q fazer é tipo isso: se o campo for re for numerico: SQL = "Select RE, nome From Login where re = " & codigo & " Order By ID" se o campo for re for texto: SQL = "Select RE, nome From Login where re = '" & codigo & "' Order By ID"

se você ta usando esse codigo da andreia, então a variavel codigo deve estar em branco. outra coisa, se o campo re for do tipo texto, o codigo tem q ser entre '. la onde esta codigo, você tem q passar o codigo do re q veio da querystring. se não conseguir, poste ai o codigo pra gente ver.

qual a mensagem do erro??

nota q sua subquery ta fazendo um select geral na sua tabela, e ela ta sem nenhum vinculo com a query principal (ou seja, o Group By da query princiapl não afeta a subquery). pra resolver, você teria q fazer um Inner Join com a subquery (como se fosse uma view) q agrupasse de acordo com os campos pn_bnc e model_bnc (sendo q esses campos tb seriam os vinculos das duas views no Inner Join).

tópico fechado, já foi resolvido aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=110809

acho mais facil você dar um jeito de conseguir acessar a tabela do q fazer uma cópia. tb porque pra fazer uma cópia você teria q ter acesso a ela. mas porque você não consegue abrir?? qual erro q da??

quando eu tava com essa mesma duvida, foi essa a resposta q eu recebi: de uma olhada la no link. basicamente é só mudar o RecipType pro tipo do Bcc e setar o email normalmente. qualquer duvida poste ai