raphael_suporte

qual o erro que ele mostra no insert into, verifica se na sua tabela existe campo number, pois se existir, não pode ser colocado entre aspas simples, no SQL eu sei que é assim, no access não tenho tanta certeza.

Eliminamos um problema, ele já está tentando salvar.. 1- verifica se está abrindo a conexão de forma correta, pois você não colocou aqui a parte que abre está conexão. 2 - verifica a variável SQLprev se está montada certa...

Leonardo faz o seguinte então.. no inicio da function coloca ela para receber TRUE, pois pelo que vi não tem essa, e com isso ela pode está guardando o valor de alguma outra consulta, não sei tb se ele atribui como valor padrão..ficando assim: 'Aqui o code da function. Function Verifica_Prev() As Boolean Verifica_prev = true 'coloca o valor pronto para grava, não ficando assim o último valor guardado If txtNumFuncProd.Text = Empty Then txtNumFuncProd.SetFocus Verifica_Prev = False Exit Function End If If txtNumFuncAdmin.Text = Empty Then txtNumFuncAdmin.SetFocus Verifica_Prev = False Exit Function End If If txtAreaConstr.Text = Empty Then txtAreaConstr.SetFocus Verifica_Prev = False Exit Function End If If txtAreaTerr.Text = Empty Then txtAreaTerr.SetFocus Verifica_Prev = False Exit Function End If End Function

Em uma cidade do interior, viviam duas mulheres chamadas Flávia. Uma era freira e a outra, taxista. Quis o destino que morressem no mesmo dia. Quando chegaram ao céu, São Pedro esperava-as. - O teu nome? - Flávia - A freira? - Não, a taxista. São Pedro consulta as suas notas e diz: - Bem, ganhastes o paraíso. Leva esta túnica com fios de ouro. Podes entrar. A seguir... - O teu nome? - Flávia - A freira? - Eu mesma. - Bem, ganhaste o paraíso... Leva esta túnica de linho. Entra. A religiosa diz: - Desculpa, mas deve haver engano. Eu sou Flávia, a freira! - Sei, minha filha, ganhaste o paraíso. Leva a túnica de linho... - Não pode ser! Eu conheço a outra Flávia, São Pedro. Era taxista, vivia na minha cidade e era um desastre! Subia nas calçadas, batia com o carro todos os dias, conduzia pessimamente e assustava as pessoas. Nunca mudou, apesar das multas e repreensões policiais. Já eu passei 65 anos pregando todos os domingos na paróquia. Como é que ela recebe a túnica com fios de ouro e eu esta? - Não há nenhum engano - diz São Pedro. É que, aqui no céu, adotamos uma gestão mais profissional do que a de vocês lá na Terra... - Não entendo! - Explico: Já ouviu falar de Gestão por Resultados? Agora nos orientamos por objetivos e observamos que nos últimos anos, cada vez que tu pregavas, as pessoas dormiam. E cada vez que ela conduzia o táxi, as pessoas rezavam! - Resultado é o que importa

cara, tenta fazer o seguinte marca um break point na parte que ele chama a função, e manda rodar, quando ele parar você vai apertando F8, linha por linha para verificar o campo que ele está vendo como nulo, outra forma de achar é ao invés de sair da função ao primeiro campo em branco que encontrar, ir preenchendo uma variável e antes de sair da função, caso exista, exibir através do MSGBOX, mesmo, os campos em branco...

cara manda teu código, para poder dar uma olhada assim ficou difícil identificar e outra normalmente o pascal avisa onde está o erro.

qual erro que está dando?? se você estiver com o SQL Analayzer ( isso se estiver usando o SQL Server ) na mão, tenta rodar, pois o mesmo deve te mostrar o erro.. pode ter tipo de campo incompatível, ou a estrutura pode está incorreta, uma vírgula fora do lugar ou algo do tipo.

acho que você não irá encontrar não... se não me engano está disponível apenas para compra

De acordo com o Kuroi, até porque as validações de contagem, assim como do Norton, são de forma online ou via telefone...ou seja não fica no CD

usando o evento Keypress, porem terá que ser feita uma nova consulta a cada tecla digitada, isso pode acabar deixando lento seu programa... não sei se tem um método melhor...

então Diego, se está confuso a melhor coisa é postar o código onde está com dúvida que nos vamos tentando solucionar..

lembrou bem e como só sobrou o Leandro, manda vê filho que já passou da hora de tomar um cafezinho hoje...

boa Quintelab, bem vindo... e continue com esse empenho... Parabéns cara

ufa.. já estava pensando que havia sonhado com isso, sabia que tinha usado em algum projeto... Bom então o que vale é a dica que fica... não garanto mas com 90% de certeza, funciona com o office 2000 também...

Kuroi, você tem muito mas conhecimento que eu, sabe informar se não tem como importar do VBA, será que ao importar as bibliotecas, tipo, para trabalhar com o excel, eu não consigo pegar essa propriedade? eu acho que vou ter que esperar chegar em casa, para verificar o meu projeto.

Caro mestre Kuroi, não estou com o VB instalado aqui na maquina do "trampo", porem lembro de já ter usado essa opção e verificando no VBA, confirmei que há sim está propriedade, não lembro mas tenho quase certeza que sim, eu usava bibliotecas do VBA no projeto em que fiz isso.

isso fica nas propriedades do Botão, ai você vai classificar de acordo com o par que for formando.

você terá que separar por grupos, pois se você está usando o mesmo grupo, ele entende que só uma opção é valida, essa mudança é feita na opção GroupName

primeira questão, o campos txtCodUsuario do tipo texto está criado?? caso esteja confirme o nome do campo.

o erro está no if, você está falando que se for maior que 0 então não mostra senão mostra é ao contrario só alterar o sinal de menor para o sinal de igual, mas isso já fez com que ele não aparecesse, como você queria..

coloque aqui como você fez?, não é para tirar a parte do de preencher o grid não

cara então verifica a propriedade RecordCount, esta deve ter e é com ela que você vai fazer o IF

quando você coloca o . (ponto) ele abre uma janela para mexer nas propriedades... existe a propriedade "count" existe( sinceramente não lembro e não estou com o VB aqui). caso sim, coloque esse valor em uma variável e depois compare a variável ao invés de comparar o valor direto

então tente o seguinte teste... If rsaniver.count < 0 Then DataGrid4.Visible = False lblfeliz.Caption = "SEM ANIVERSARIANTES!" Else DataGrid4.Visible = True lblfeliz.Caption = "FELIZ ANIVERSÁRIO!" End If

como você fez o if? pois ele está avisando que tem itens no Recordset.