Leandro_Pirozzi

Function Exibiraniver() Dim SQL As String Dim Data As Date Set cnaniver = New ADODB.Connection With cnaniver .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rsaniver = New ADODB.Recordset Set rsaniver.ActiveConnection = cnaniver rsaniver.CursorLocation = adUseClient SQL = "Select CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT " & _ "FROM CONTATOS_CONTATO Where ANIVERSARIO = Date() " Set Me.DataGrid4.DataSource = rsaniver rsaniver.Open SQL If rsaniver.RecordCount < 0 Then DataGrid4.Visible = False lblfeliz.Caption = "SEM ANIVERSARIANTES!" Else DataGrid4.Visible = True lblfeliz.Caption = "FELIZ ANIVERSÁRIO!" End If End Function

tem o recordcount sim, porém não exibe os dados no grid.

não existe count não.

Dá o seguinte erro. If rsaniver.count < 0 Then DataGrid4.Visible = False lblfeliz.Caption = "SEM ANIVERSARIANTES!" Else DataGrid4.Visible = True lblfeliz.Caption = "FELIZ ANIVERSÁRIO!" End If Compile error: Method or data member not found

Ficou assim. If rsaniver!ANIVERSARIO < 0 Then DataGrid4.Visible = False lblfeliz.Caption = "SEM ANIVERSARIANTES!" Else DataGrid4.Visible = True lblfeliz.Caption = "FELIZ ANIVERSÁRIO!" End If

Modifiquei o If para recordset maior q 0. ai exibiu: Run-time error '3021': BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. Tem idéia do q possa ser?

então o select é isso mesmo ele vai exibir os aniversariantes do dia. por isso aniversario = date(). ai ele vai me trazer o nome, codigo da empresa do aniversariante, cargo, email, telefone. sendo assim não tem como?

O select retorna isso. Select CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT " & _ "FROM CONTATOS_CONTATO Where ANIVERSARIO = Date() Onde ANIVERSARIO é a data que esta cadastrada no banco.

Seria isso?? If rsaniver!ANIVERSARIO = Date Then DataGrid4.Visible = True lblfeliz.Caption = "FELIZ ANIVERSÁRIO!" else DataGrid4.Visible = False lblfeliz.Caption = "SEM ANIVERSARIANTES!" End If

como assim os nomes cadastrados?

como eu poderia fazer ele ser "false" tb? Para quando for false ele mudar o caption para "Sem aniversariantes". Vlwwww

não sei como criar um cronometro para calcular o tempo gasto em q o usuário realiza um cadastro e guardar os segundos, mintos ou ate mesmo as horas para serem utilizados para controle. Alguém poderia me ajudar? obrigado.

ele exibe o problema que não muda o caption do label e nem esconde o datagrid quando data não for date. mandei printar e o Data tá assim: ?Data 00:00:00

então O QUE EU QUERO É O SEGUINTE. QUANDO A DATA FOR IGUAL AO DATE ELE EXIBE O GRID COM OS ANIVERSARIANTES DA DATA, SENAO ELE NEM EXIBE O DATAGRID E A MENSAGEM NO LBLFELIZ.CAPTION. ENTENDEU? OBRIGADO!

Porque não executa o que eu pedi?!?! não esconde datagrid e tb não altera o lblfeliz.caption. Function Exibiraniver() Dim SQL As String Dim Data As Date Data = Date Set cnaniver = New ADODB.Connection With cnaniver .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=F:\Advanced\CONTATOS.mdb" .Open End With Set rsaniver = New ADODB.Recordset Set rsaniver.ActiveConnection = cnaniver rsaniver.CursorLocation = adUseClient SQL = "Select CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT " & _ "FROM CONTATOS_CONTATO Where ANIVERSARIO = Date() " rsaniver.Open SQL Set Me.DataGrid4.DataSource = rsaniver If Data <> Date Then DataGrid4.Visible = False lblfeliz.Caption = "SEM ANIVERSARIANTES!" else DataGrid4.Visible = True lblfeliz.Caption = "FELIZ ANIVERSÁRIO!" End If End Function

OPAAA AGORA SIM. JOGUEI A FUNÇÃO PRO FORM ELA ESTAVA NO MODULO. APONTEI PARA O RS CORRETO E BELEZINHA. VLW KUROI. TO POSTANDO A FUNCTION CORRETA AQUI, CASO ALGUÉM TENHA ALGUM PROBLEMA PARECIDO COM O MEU. Public Function PreencheCheck() If rsprop!SEGURO = "X" Then Me.CheSeguro.Value = 1 Else Me.CheSeguro.Value = 0 End If If rsprop!CONTABIL = "X" Then Me.CheContabil.Value = 1 Else Me.CheContabil.Value = 0 End If If rsprop!INVENTFISICO = "X" Then Me.CheInvFis.Value = 1 Else Me.CheInvFis.Value = 0 End If If rsprop!RECADASTRO = "X" Then Me.CheRecadastro.Value = 1 Else Me.CheRecadastro.Value = 0 End If If rsprop!CONFRONTO = "X" Then Me.CheConfronto.Value = 1 Else Me.CheConfronto.Value = 0 End If If rsprop!AJUCONTABIL = "X" Then Me.CheAjuContabil.Value = 1 Else Me.CheAjuContabil.Value = 0 End If If rsprop!EMPLAQ = "X" Then Me.CheEmplaq.Value = 1 Else Me.CheEmplaq.Value = 0 End If If rsprop!CAUTELA = "X" Then Me.CheCautela.Value = 1 Else Me.CheCautela.Value = 0 End If If rsprop!ECOFIN = "X" Then Me.CheEcoFin.Value = 1 Else Me.CheEcoFin.Value = 0 End If If rsprop!FUNCOMERCIO = "X" Then Me.CheFunComercio.Value = 1 Else Me.CheFunComercio.Value = 0 End If If rsprop!TECNO = "X" Then Me.CheTecno.Value = 1 Else Me.CheTecno.Value = 0 End If If rsprop!Me = "X" Then Me.CheMe.Value = 1 Else Me.CheMe.Value = 0 End If If rsprop!MU = "X" Then Me.CheMu.Value = 1 Else Me.CheMu.Value = 0 End If If rsprop!EDIF = "X" Then Me.CheEdif.Value = 1 Else Me.CheEdif.Value = 0 End If If rsprop!INSINDUSTRIAL = "X" Then Me.CheInsIndustrial.Value = 1 Else Me.CheInsIndustrial.Value = 0 End If If rsprop!TERRENO = "X" Then Me.CheTerreno.Value = 1 Else Me.CheTerreno.Value = 0 End If If rsprop!EQINF = "X" Then Me.CheEqInf.Value = 1 Else Me.CheEqInf.Value = 0 End If If rsprop!VEICULO = "X" Then Me.CheVeiculo.Value = 1 Else Me.CheVeiculo.Value = 0 End If If rsprop!ESPONTANEA = "X" Then Me.CheEspo.Value = 1 Else Me.CheEspo.Value = 0 End If If rsprop!VENDA = "X" Then Me.CheVenda.Value = 1 Else Me.CheVenda.Value = 0 End If If rsprop!MARCA = "X" Then Me.CheMarca.Value = 1 Else Me.CheMarca.Value = 0 End If If rsprop!GARANTIA = "X" Then Me.CheGarantia.Value = 1 Else Me.CheGarantia.Value = 0 End If If rsprop!PATRIMONIO = "X" Then Me.ChePatri.Value = 1 Else Me.ChePatri.Value = 0 End If If rsprop!SIAV = "X" Then Me.CheSiav.Value = 1 Else Me.CheSiav.Value = 0 End If If rsprop!SIPAV = "X" Then Me.CheSipav.Value = 1 Else Me.CheSipav.Value = 0 End If If rsprop!BOOK = "X" Then Me.CheBook.Value = 1 Else Me.CheBook.Value = 0 End If If rsprop!MIGRASISCONT = "X" Then Me.CheMigra.Value = 1 Else Me.CheMigra.Value = 0 End If If rsprop!MANUALNORMA = "X" Then Me.CheManual.Value = 1 Else Me.CheManual.Value = 0 End If If rsprop!DISPOESPEC = "X" Then Me.CheDispo.Value = 1 Else Me.CheDispo.Value = 0 End If If rsprop!FERRADISPO = "X" Then Me.CheFerra.Value = 1 Else Me.CheFerra.Value = 0 End If If rsprop!DESPESA = "X" Then Me.CheIncluida.Value = 1 Else Me.CheIncluida.Value = 0 End If If rsprop!DESPESA = "0" Then Me.Cheexcluida.Value = 1 Else Me.Cheexcluida.Value = 0 End If If rsprop!ISS = "X" Then Me.CheIncluso.Value = 1 Else Me.CheIncluso.Value = 0 End If If rsprop!ISS = "0" Then Me.CheNaoIncluso.Value = 1 Else Me.CheNaoIncluso.Value = 0 End If End Function

Opa, obrigadão pela dica. Vou tentar fazer isso agora. O correto é abrir a conexao uma única vez no form não é?

então to utilizando essa function aqui pra preencher o grid com os dados da tabela. Function Exibircontemp() Dim SQL As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=F:\Advanced\CONTATOS.mdb" .Open End With Set rs = New ADODB.Recordset Set rs.ActiveConnection = cn rs.CursorLocation = adUseClient SQL = "Select CODEMP, NOMCONT, CODCONT, EMAILCONT, CARGOCONT, TELCONT, SECRETARIA from CONTATOS_CONTATO " & _ " WHERE CODEMP = '" & txtcodemp & "'" rs.Open SQL Set Me.DataGrid1.DataSource = rs End Function

Opa! Essa pesquisa ai é só por nome ok, mas ai voce faz as outras duas nesse mesmo esquema ai. Funcionou?

Como fazer isso?

Tipo assim: Tenho vários check's ai o usuário preenche por exemplo uma proposta e determina os check's que ele quer marcar em sua proposta. Esses dados são armazenados no BD com o valor de "X" se o check.value = 1 e "0" se o check.value = 0. Ai bele. Fiz dessa maneira ai e ele apresenta. Porém como eu tenho mais de um registro para o mesmo usuário, e propostas diferentes ele marca somente a primeira opção que eu cliquei, não mudando os check's de outra proposta, entendeu mais ou menos o problema? hehe.. rapaz to ficando maluco com o sistema, mas aos poucos está indo. então os dados eu busco do banco e mostro no grid, ai quando clico no grid ele marca os check e os texts, porém se clico em outra consulta do grid ele continua os mesmos check habilitados não mudando de acordo com os dados que seleciono no grid.

Corrigido e funcionando ok. Errei na ordem dos campos. Segue funcionando ok. Private Sub cmdcad_Click() Dim SQL As String Dim rsContato As ADODB.Recordset 'Declarando e abrindo conexao Dim cnContato As ADODB.Connection Set cnContato = New ADODB.Connection cnContato.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\CONTATOS.mdb; " cnContato.CursorLocation = adUseClient cnContato.Open If Not Verifica_Contatos Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If Set rsContato = New ADODB.Recordset SQL = "INSERT INTO CONTATOS_CONTATO " SQL = SQL & "(CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT, FAXCONT, RAMAL)" SQL = SQL & "VALUES ( '" & Me.txtCodEmp.Text & "','" & Me.txtempresacont.Text & "', " SQL = SQL & "'" & Me.txtnomecont.Text & "' , " SQL = SQL & "'" & Me.txtanivercont.Text & "' , " SQL = SQL & "'" & Me.txtcargocont.Text & "' , " SQL = SQL & "'" & Me.txtmailcont.Text & "' , " SQL = SQL & "'" & Me.txttelcont.Text & "' , " SQL = SQL & "'" & Me.txtfaxcont.Text & "','" & Me.txtramalcont.Text & "')" Set rsContato.ActiveConnection = cnContato rsContato.Open SQL LimpaContato Verifica_Contatos MsgBox "Cadastro de contato efetuado com sucesso" End Sub Obrigadao Kuroi pela força de sempre.

... Ainda continuo com o problema hehee...

Estou fazendo em access mesmo por eqto depois passo pra oracle. Fiz dessa maneira porém ele agora exibe a mensagem Run time error Tipo de dados imcompatível na expressão de critério. Private Sub cmdcad_Click() Dim SQL As String Dim rsContato As ADODB.Recordset 'Declarando e abrindo conexao Dim cnContato As ADODB.Connection Set cnContato = New ADODB.Connection cnContato.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\CONTATOS.mdb; " cnContato.CursorLocation = adUseClient cnContato.Open If Not Verifica_Contatos Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If Set rsContato = New ADODB.Recordset SQL = "INSERT INTO CONTATOS_CONTATO " SQL = SQL & "(CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT, FAXCONT, RAMAL)" SQL = SQL & "VALUES ( '" & Me.txtCodEmp.Text & "','" & Me.txtempresacont.Text & "', " SQL = SQL & "'" & Me.txtnomecont.Text & "' , " SQL = SQL & "'" & Me.txtcargocont.Text & "' , " SQL = SQL & "'" & Me.txtmailcont.Text & "' , " SQL = SQL & "'" & Me.txttelcont.Text & "' , " SQL = SQL & "'" & Me.txtramalcont.Text & "' , " SQL = SQL & "'" & Me.txtfaxcont.Text & "','" & Me.txtanivercont.Text & "')" Set rsContato.ActiveConnection = cnContato rsContato.Open SQL LimpaContato Verifica_Contatos MsgBox "Cadastro de contato efetuado com sucesso" End Sub

Voce tem esses 3 campos na tabela clientes é isso? Voce quer que ele localize por nome, cidade e bairro 3 pesquisas diferentes. é isso? Private Sub cmdPesq2_Click() Dim lcnome As String Dim lcWhere As String Dim strSQL As String Dim rs As ADODB.Recordset Dim rs1 As ADODB.Recordset If Me.txtnome.Text = Empty Then lcnome = "" lcWhere = "" Else lcnome = Me.txtnome.Text lcWhere = " where NOME like '%" & lcnome & "%'" End If strSQL = "select NOME, CIDADE, BAIRRO " strSQL = strSQL & "from CLIENTES " strSQL = strSQL & lcWhere strSQL = strSQL & "order by NOME" Set rs = New ADODB.Recordset rs.Open strSQL, gDB, adOpenStatic, adLockReadOnly If rs.EOF And rs.BOF Then MsgBox "Nenhum registro cadastrado na tabela de Clientes." Exit Sub End If If rs.RecordCount = 1 Then strSQL = "select * " strSQL = strSQL & "from CLIENTES " strSQL = strSQL & "where NOME = '" & rs!NOME & "'" Set rs1 = New ADODB.Recordset rs1.Open strSQL, gDB, adOpenStatic, adLockReadOnly End If End Sub Ve ai se ajuda.