kuroi

como assim??

o erro de syntax, acredito q porque a linha ta dividida em duas. ou você poe tudo junto na mesma linha: Strcadastro = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dataBase") & "\bd.mdb" ou você separa com um _: Strcadastro = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _ server.MapPath("dataBase") & "\bd.mdb"[/code]

acho q o problema é q você pos o mve.quanxx no group by, ai ele vai agrupar por quantidade tb. alias, você pos no select tb. tire ele da clausula group by e do select tb e veja se funciona.

quando você tem mais de duas ou mais tabelas (ou consultas) no crystal, elas tem q estar relacionadas (abra o Visual Linking Expert), senao o Crystal não vai conseguir contar os registros das duas ao mesmo tempo. se você fez o relacionamento e mesmo assim não aparece nd, é porque o relacionamento não ta batendo (ele não ta encontrando os codigos de uma consulta na outra).

estranho, tinha q funcionar. referncia não vai influenciar nisso. o seu codigo não tem alguma coisa a mais não?? pode ter alguma coisa mexendo com o label ou com a variavel. se o seu codigo tiver diferente daquele q eu passei, posta ele inteiro (todo o conteudo do codigo do UserForm) pra gente conferir bom se você quiser ver, tem aqui: http://rapidshare.com/files/65398945/Pasta1.xls.html a minha planilha com o codigo feito (no office 2003) e funcionando pra você conferir se esta fazendo igualzinho. entra la, abre o editor do visual basic, e veja o UserForm1. bom, garanto q o arquivo la não tem virus nenhum (já q fui eu q fiz), mas se você não quiser arriscar baxar, da uma olhada aqui, como teria q ficar o codigo:

antes de adicionar cada numero, faca um for q percorre todos os indices do listbox e veja se o numero já não existe. se existir, não adicione. é a mesma logica q o graymalkin fez aqui: http://scriptbrasil.com.br/forum/index.php...st&p=299561

hum, se você não ta fazendo na planilha, então seria no UserForm_Initialize() pra zerar. agora quanto ao seu problema, não sei o q pode estar errado... você disse q tentou outro botao e não funcionou. mas lembra q quando você executa o formulario, ele carrega o valor da variavel. só q assim q você fecha o formulario (pára a execucao) e volta para o codigo, o valor é perdido. ou seja, a variavel vai comecar do 0 de novo. bom, mas fiz uns testes aqui, e meu codigo todo ficou assim ó: Dim Pontos As Integer Private Sub CommandButton1_Click() Pontos = Pontos + 1 Label1.Caption = Pontos End Sub Private Sub UserForm_Initialize() Pontos = 0 End Sub[/code] e funcionou sem problemas, veja ai se da certo pra você, qualquer coisa poste. ou e se cadastra no forum, tb.

opa vo mover, pra .NET pra ver se alguém la sabe.

hum, então, era pra declarar la em cima sim, no (Geral). mas so pra declarar, quando você seta o valor (no caso, 0), ai sim tem q ser dentro do procedimento. la em cima é só pra declaracoes. pra setar o valor 0 (apesar de q não precisaria, pois ele já comeca em 0), no caso do Excel acho q seria em Worksheet_Activate(), q é quando a planilha é ativada (no campo la em cima onde ta o nome do objeto, selecione WorkSheet e ai no evento, no campo da direita, seleciona Activate). ve se você consegue ai, qualquer coisa poste.

bom, você tem certeza q o TxtTipo vai tar com um valor q não exista no banco certo?? e q é a unica chave primaria da sua tabela, certo?? estranho... olhando assim não sei não... bom, ce já tem meu email, se quiser mandar o projeto la pra eu ver.

é, eu tava errado então.

não sei... vo mover pra .NET pra ver se a mulecada la te ajuda...

existe sim. aqui http://scriptbrasil.com.br/forum/index.php?showtopic=104004 tem um exemplo da funcao em visual basic. é so você copiar no Crystal, colocar em Basic Syntax e ai pode precisar adaptar algumas coisas pro Crystal entender, mas você não deve ter dificuldades. mas qualquer duvida poste.

o q exatamente ta acontecendo de errado?? bom, mas olha essa parte do codigo: Dim Pontos as Integer Pontos = 0[/code] se tdo isso ta dentro do click do botao, essa variavel só serve pra esse evento. depois q ele executa todo o codigo do click, a variavel é limpada da memoria e seu valor é perdido, entende?? alem do mais, você seta ela pra 0 toda vez q ele clica. então toda vez q clicar ela vai comecar no 0. ou seja, ela vai dar sempre 1 quando você somar. a solucao é criar essa variavel valendo para todo o seu formulario. pra isso, delcare ela la em cima em Declarations. agora, olha essa parte aqui: [code]Label1 = Pontos Pontos = Pontos + 1 Pontos = Label1 você faz Label1 = Pontos, ou seja você vai setar o valor 0 para o label (já q a variavel Pontos vale 0). ai Pontos = Pontos + 1. você soma, beleza. mas ai você faz Pontos = Label1. nessa hora o valor do Label1 é 0. ou seja você ta gravando 0 de novo na variavel Pontos, ou seja, a soma q você fez não serviu de nd. o codigo deveria ser tipo assim: Pontos = Pontos + 1 Label1.Caption = Pontos[/code] primero, você soma e depois poe o valor no label.

os dados q veem da string vao ser iguais pra todos os registros?? se for, você pode fazer o select tipo assim: Select Campo1, Campo2, Campo3, etc, 'DadoDaString1' As CampoX, 'DadoDaString2' As CampoY From Tabela entendeu??

opa melhoro sim, mas tenta melhorar a duvida tb... tipo... você quer gravar o texto formatado é isso?? tipo com quebra de linha, negrito, italico, fonte de tamanho e cor diferente e etc?? se for, você pode usar o controle RichTextBox. mas você vai ter q fazer a formatacao por codigo, aqui ensina a usar: http://www.macoratti.net/vb_richt.htm http://www.macoratti.net/vb_rchbd.htm http://www.macoratti.net/vb_rtb2.htm ai você grava no banco a propriedade, se na me engano, RichText (NomeDoRTB.RichText), e ai quando você carregar os campos no RichTextBox de novo os dados já vem formatado. veja se ajuda pra você ai, qualquer coisa poste.

na propriedade Style ponha 2 - Dropdown List. veja se é isso

mas ele ta mostrando a sua MsgBox ou a mensagem padrão do access?? mas de qualquer forma o problema não deve estar ai, posta o codigo de quando você grava o novo registro.

então, ele funcionou só com senha, porque acho q você não setou usuario, ne?? se você for ver, no access, você tem a opcao de por uma senha geral pro banco de dados (Ferramentas -> Segurança -> Definir senha do banco de dados). foi aqui q você foi certo?? nesse caso ele protege o banco por senha. alias se não me engano ele vai proteger o access por senha e não um banco especifico. você definindo essa senha, ele vai te pedir pra digitar senha pra qualquer .mdb q você tentar abrir nesse pc (acho). agora se você entrar em Ferramentas -> Segurança -> Contas de usuários, ai sim você pode definir varios usuarios, com permissoes diferentes e etc. ai nesse caso sim você usaria aquela outra string. esse negocio do workgroup, nem lembro como faz, e tb nem sei direito o q é. procurei aqui no meu access 2003 e não achei, lembro q no 2000 eu conseguia fazer. se você for ver la no site tem o exemplo de conexao pra workgroup. sei q o workgroup cria um arquivo a parte q funciona em conjunto com o .mdb. acho q ele da mais seguranca, não sei, sei q tem a ver com usuario e senha.

se você olhar la em cima, no comeco do codigo, você vai ver, acredito, o codigo Create Procedure ....., certo?? ou seja, quando você executar a procedure (F5) ela vai estar criada. de uma checada na lista pra ver se ela não esta la (se ela não tiver, tenta atualizar). quando você poe pra salvar ele tenta salvar na verdade é a sua query. mas você executando o Create Procedure é q ele vai criar.

é sim, mas pra fazer o select, você ta usando o metodo Open do RecordSet ou ta usando o esquema do Set rs = cn.Execute(sql)?? porque se você tiver usando o metodo Open, você tem sim q usar o Close antes de abrir (ou fazer como você faz, Set rs = New ADODB.RecordSet), porque se não me engano, ele não consegue abrir um RecordSet já aberto. funciona quando você inicializa (ou, no caso, reinicializa) o RecordSet, porque ai todas as propriedades dele voltam pro estado inicial (ou seja, ele ele vai estar fechado). mas se você tirar a linha Set rs = New ADODB.RecordSet, q erro q da?? se você tiver mesmo usando o metodo Open, acho q é tipo, RecordSet is already open, alguma coisa assim, não?? bom, mas se ta funcionando pra você assim, beleza. mas acredito q ele vai levar mais tempo de processamento inicializando toda hora do q simplesmente fechando antes de abrir. fora q o mais "bunito" de se fazer, seria fechar antes de abrir de novo. se você ta mesmo usando o metodo Open, pode checar se ele ta aberto ou não pela propriedade State. se não me engano, quando tiver aberto, o State retorna 1. ai nesse caso, você checa se é 1, se for você fecha, senao não.

você realmente instalou/registrou ele no seu pc?? e você tem certeza q é um componente e não uma referencia (menu Project -> References)?? mas se você sabe onde ta a ocx, la na janelinha de componentes, clica no botao Browse e adicione na mao mesmo.

acho q algum dos campos da query (idade, enderco, nome) não existe na sua tabela (ou você digitou o nome errado)

here?? mas aqui aonde?? quando ele mostra essa mensagem ele para o cursor em algum lugar. onde ele ta parando pra você?? bom, mas de qualquer modo, ve se funciona assim: CDbl({tab_estoque.preco_tabela}) - (CDbl({tab_estoque.preco_tabela}) * 10 / 100) ai se quiser por o Round, ponha na formula toda: Round(CDbl({tab_estoque.preco_tabela}) - (CDbl({tab_estoque.preco_tabela}) * 10 / 100), 2)

não conhecia esse problema... mas vocês já tentaram criar os controles a mais em tempo de execucao (via codigo)?? quem sabe não funciona...