Leandro_Pirozzi

alterado tudo para texto. permanece erro. tá estranho demais isso. em todos os outros INSERT q fiz foi de boaaa agora esse tá de rosca!!

acabei de fzer isso. To postando aqui como esta. 'Botao salvar com o cnprev. Private Sub cmdsalvarprev_Click() Dim SQLprev As String Dim icol As Integer If Not Verifica_Prev Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If Ativa_Campos_Prev True Set cnprev = New ADODB.Connection With cnprev .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rsprev = New ADODB.Recordset Set rsprev.ActiveConnection = cnprev rsprev.CursorLocation = adUseClient 'Set rsprev = New ADODB.Recordset SQLprev = "INSERT INTO CONTATOS_PREV " SQLprev = SQLprev & "(CODEMP, NOMEMPRESA, NOMEVISTORIA, NOMECONTATOVIST, OBSFUNC, FUNCPRODPREVIST, " SQLprev = SQLprev & "FUNCADMPREVIST, AC, AT, PPAS, PPAN, PRS, PRN, CPS, CPN, MEATIVEMPS, " SQLprev = SQLprev & "MEATIVEMPN, MEATIVTAGS, MEATIVTAGN, MEEQUIIMPS, MEEQUIIMPN, MEATOS, MEATON, " SQLprev = SQLprev & "NUMESTME, RELPRINCEQUIP, INFQUANTEST, VEICQUANTEST, MUQUANTEST, MUATIVEMPLS, MUATIVEMPLN, " SQLprev = SQLprev & "MUMOVPADRS, MUMOVPADRN, TOTHDMEC, TOTHDMECX, TOTHDMECTOT, TOTHDCIV, TOTHDCIVX, TOTHDCIVTOT, " SQLprev = SQLprev & "TOTHDTECMOV, TOTHDTECMOVX, TOTHDTECMOVTOT, TOTGERALHD)" SQLprev = SQLprev & " VALUES( '" & Me.txtcodemp.Text & "' , " SQLprev = SQLprev & "'" & Me.txtempresa.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecnico.Text & "' , " SQLprev = SQLprev & "'" & Me.txtnomcontVisto.Text & "' , " SQLprev = SQLprev & "'" & Me.txtObsFunc.Text & "' , " SQLprev = SQLprev & "'" & Me.txtNumFuncProd.Text & "' , " SQLprev = SQLprev & "'" & Me.txtNumFuncAdmin.Text & "' , " SQLprev = SQLprev & "'" & Me.txtAreaConstr.Text & "' , " SQLprev = SQLprev & "'" & Me.txtAreaTerr.Text & "' , " SQLprev = SQLprev & "'" & Me.optPlanAtuSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optPlanAtuNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optRefeiSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optRefeiNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optConstPadroSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optConstPadroNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optativsim.Value & "' , " SQLprev = SQLprev & "'" & Me.optativnao.Value & "' , " SQLprev = SQLprev & "'" & Me.optativTAGsim.Value & "' , " SQLprev = SQLprev & "'" & Me.optativTAGnao.Value & "' , " SQLprev = SQLprev & "'" & Me.optImpSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optImpNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optArqTecSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optArqTecNao.Value & "' , " SQLprev = SQLprev & "'" & Me.txtNumMaqEquip.Text & "' , " SQLprev = SQLprev & "'" & Me.txtPrinEquipPlanta.Text & "' , " SQLprev = SQLprev & "'" & Me.txtQuantItensEstInf.Text & "' , " SQLprev = SQLprev & "'" & Me.txtQuantItensEstiVe.Text & "' , " SQLprev = SQLprev & "'" & Me.txtQuantItensEst.Text & "' , " SQLprev = SQLprev & "'" & Me.optAtivEmplaqSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optAtivEmplaqNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optMovPadroSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optMovPadroNao.Value & "' , " SQLprev = SQLprev & "'" & Me.txtMecHom.Text & "' , " SQLprev = SQLprev & "'" & Me.txtMecDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtMecHomDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtCivHom.Text & "' , " SQLprev = SQLprev & "'" & Me.txtCivDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtCivHomDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecMovHom.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecMovDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecMovHomDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTotalTecMovHomDia.Text & "')" cnprev.Execute SQLprev MsgBox "Cadastro de Pré-Vistoria efetuado com sucesso" Limpa_Prev End Sub Porém agora mostrou erro na instrução INSERT INTO. Votei para o access e joguei o SQLprev. 'SQLprev INSERT INTO CONTATOS_PREV (CODEMP, NOMEMPRESA, NOMEVISTORIA, NOMECONTATOVIST, OBSFUNC, FUNCPRODPREVIST, FUNCADMPREVIST, AC, AT, PPAS, PPAN, PRS, PRN, CPS, CPN, MEATIVEMPS, MEATIVEMPN, MEATIVTAGS, MEATIVTAGN, MEEQUIIMPS, MEEQUIIMPN, MEATOS, MEATON, NUMESTME, RELPRINCEQUIP, INFQUANTEST, VEICQUANTEST, MUQUANTEST, MUATIVEMPLS, MUATIVEMPLN, MUMOVPADRS, MUMOVPADRN, TOTHDMEC, TOTHDMECX, TOTHDMECTOT, TOTHDCIV, TOTHDCIVX, TOTHDCIVTOT, TOTHDTECMOV, TOTHDTECMOVX, TOTHDTECMOVTOT, TOTGERALHD) VALUES( '2498' , 'TELEFONICA S/A' , 'leandro' , 'teste' , 'TESTE' , '10' , '10' , '10' , '10' , 'True' , 'False' , 'True' , 'False' , 'True' , 'False' , 'True' , 'False' , 'True' , 'False' , 'True' , 'False' , 'True' , 'False' , '10' , '10' , '10' , '10' , '10' , 'False' , 'True' , 'False' , 'True' , '10' , '10' , '100' , '10' , '10' , '100' , '10' , '10' , '100' , '300') No access foi direitinho.

Fiz e exibiu a msg. Object variable or With block variable not set. e apontou para cnprev.Execute SQLprev

estranho, verifiquei a tabela e possui 2 registros. mas exibe a msg de campo em branco. cnprev é a connection q é chamada para exibir os dados cadastrados.

Fiz com o break point mas ele não informa nenhum campo em branco, mas continua mostrando a mensagem.

Bom dia galera!!! Seguinte tenho um botao de salvar um vistoria, porem todos os campos preenchidos, mas ele não passa da msg q existe campo em branco. Fiz um teste e comentei esse trecho pra ele não conferir se existe campo em branco ou não, ai ele apresentou o seguinte Erro: Object variable or With block variable not set. Ai fui no access e pedi pra compilar o SQL e rodou direitinho. Segue o SQL preenchido que funcionou no Access. INSERT INTO CONTATOS_PREV (CODEMP, NOMEMPRESA, NOMEVISTORIA, NOMECONTATOVIST, OBSFUNC, FUNCPRODPREVIST, FUNCADMPREVIST, AC, AT, PPAS, PPAN, PRS, PRN, CPS, CPN, MEATIVEMPS, MEATIVEMPN, MEATIVTAGS, MEATIVTAGN, MEEQUIIMPS, MEEQUIIMPN, MEATOS, MEATON, NUMESTME, RELPRINCEQUIP, INFQUANTEST, VEICQUANTEST, MUQUANTEST, MUATIVEMPLS, MUATIVEMPLN, MUMOVPADRS, MUMOVPADRN, TOTHDMEC, TOTHDMECX, TOTHDMECTOT, TOTHDCIV, TOTHDCIVX, TOTHDCIVTOT, TOTHDTECMOV, TOTHDTECMOVX, TOTHDTECMOVTOT, TOTGERALHD) VALUES( '2498' , 'TELEFONICA S/A' , 'hhfudf' , 'dff' , 'FDFDF' , '10' , '20' , '30' , '40' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , '40' , '50' , '60' , '70' , '80' , 'False' , 'False' , 'False' , 'False' , '50' , '40' , '2000' , '32' , '41' , '1312' , '15' , '15' , '225' , '3537') 'Aqui o code do botao que salva. Private Sub cmdsalvarprev_Click() Dim SQLprev As String Dim icol As Integer If Verifica_Prev = False Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If Set rsprev = New ADODB.Recordset SQLprev = "INSERT INTO CONTATOS_PREV " SQLprev = SQLprev & "(CODEMP, NOMEMPRESA, NOMEVISTORIA, NOMECONTATOVIST, OBSFUNC, FUNCPRODPREVIST, " SQLprev = SQLprev & "FUNCADMPREVIST, AC, AT, PPAS, PPAN, PRS, PRN, CPS, CPN, MEATIVEMPS, " SQLprev = SQLprev & "MEATIVEMPN, MEATIVTAGS, MEATIVTAGN, MEEQUIIMPS, MEEQUIIMPN, MEATOS, MEATON, " SQLprev = SQLprev & "NUMESTME, RELPRINCEQUIP, INFQUANTEST, VEICQUANTEST, MUQUANTEST, MUATIVEMPLS, MUATIVEMPLN, " SQLprev = SQLprev & "MUMOVPADRS, MUMOVPADRN, TOTHDMEC, TOTHDMECX, TOTHDMECTOT, TOTHDCIV, TOTHDCIVX, TOTHDCIVTOT, " SQLprev = SQLprev & "TOTHDTECMOV, TOTHDTECMOVX, TOTHDTECMOVTOT, TOTGERALHD)" SQLprev = SQLprev & " VALUES( '" & Me.txtcodemp.Text & "' , " SQLprev = SQLprev & "'" & Me.txtempresa.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecnico.Text & "' , " SQLprev = SQLprev & "'" & Me.txtnomcontVisto.Text & "' , " SQLprev = SQLprev & "'" & Me.txtObsFunc.Text & "' , " SQLprev = SQLprev & "'" & Me.txtNumFuncProd.Text & "' , " SQLprev = SQLprev & "'" & Me.txtNumFuncAdmin.Text & "' , " SQLprev = SQLprev & "'" & Me.txtAreaConstr.Text & "' , " SQLprev = SQLprev & "'" & Me.txtAreaTerr.Text & "' , " SQLprev = SQLprev & "'" & Me.optPlanAtuSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optPlanAtuNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optRefeiSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optRefeiNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optConstPadroSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optConstPadroNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optativsim.Value & "' , " SQLprev = SQLprev & "'" & Me.optativnao.Value & "' , " SQLprev = SQLprev & "'" & Me.optativTAGsim.Value & "' , " SQLprev = SQLprev & "'" & Me.optativTAGnao.Value & "' , " SQLprev = SQLprev & "'" & Me.optImpSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optImpNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optArqTecSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optArqTecNao.Value & "' , " SQLprev = SQLprev & "'" & Me.txtNumMaqEquip.Text & "' , " SQLprev = SQLprev & "'" & Me.txtPrinEquipPlanta.Text & "' , " SQLprev = SQLprev & "'" & Me.txtQuantItensEstInf.Text & "' , " SQLprev = SQLprev & "'" & Me.txtQuantItensEstiVe.Text & "' , " SQLprev = SQLprev & "'" & Me.txtQuantItensEst.Text & "' , " SQLprev = SQLprev & "'" & Me.optAtivEmplaqSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optAtivEmplaqNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optMovPadroSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optMovPadroNao.Value & "' , " SQLprev = SQLprev & "'" & Me.txtMecHom.Text & "' , " SQLprev = SQLprev & "'" & Me.txtMecDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtMecHomDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtCivHom.Text & "' , " SQLprev = SQLprev & "'" & Me.txtCivDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtCivHomDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecMovHom.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecMovDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecMovHomDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTotalTecMovHomDia.Text & "')" cnprev.Execute SQLprev ' aqui foi onde ele exibiu a msg de erro: Object variable or With block variable not set. MsgBox "Cadastro de Pré-Vistoria efetuado com sucesso" Limpa_Prev End Sub 'Aqui o code da function. Function Verifica_Prev() As Boolean 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 Obrigado

Exibiu a msg. A operação solicitada requer um objeto OLE DB SESSION, para o qual não há suporte do provedor atual.

Tenho um botao que efetua a procura por NOMEMPRESA. É possivel utilizar esse rsbusca em outro form? Pois preciso que esses dados carreguem um grid que esta no form frmpesq. então quando o usuário clicar na grid preenchida queria preencher todos os campos do form atual. Private Sub cmdPesq2_Click() Dim SQL As String SQL = "SELECT CODEMP, NOMEMPRESA, ENDEMPRESA, ESTEMPRESA, CIDEMPRESA, BAIEMPRESA, UFEMPRESA, " & _ "CEPEMPRESA, TELEMPRESA, FAXEMPRESA, NUMFUNCEMPRESA, GRUPOEMPRESA, ATIVEMPRESA, PAISEMPRESA, CGC, " & _ "INSC, DATAINC, DATALT, EQUIPE, ASSESSOR, LIVRE " & _ "from CONTATOS_EMPRESA where (NOMEMPRESA) like '" & txtempresa.Text & "%'" Set cnbusca = New ADODB.Connection With cnbusca .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rsbusca = New ADODB.Recordset Set rsbusca.ActiveConnection = cnbusca rsbusca.CursorLocation = adUseClient rsbusca.Open SQL Set frmpesq.DataGrid5.DataSource = rsbusca If rsbusca.EOF Then frmpesq.Visible = False MsgBox ("Não existem dados para essa busca!") txtempresa.Text = "" txtempresa.SetFocus Else frmpesq.DataGrid5.Visible = True frmpesq.Show End If End Sub

Como faço para carregar por exemplo: O usuário esta digitando o nome da empresa: "TELEFONICA" Ai quando ele digitar Tele ele abre o grid com todas as empresas q iniciam com essas letras? Ate consegui fazer porem a cada caractere que é digitado ele abre o form com a grid.

Declarei no general declarations: 'carrega grid busca empresa Dim cmdbusca As New ADODB.Command Dim cnnbusca As ADODB.Connection Dim rsbusca As New ADODB.Recordset Seguinte fiz a function. Não sei se está correta. Function preenchegrid_busca() With cmdbusca .ActiveConnection = cnnbusca 'nome da conexão .CommandType = adCmdText .CommandText = "SELECT CODEMP, NOMEMPRESA, ENDEMPRESA, CIDEMPRESA, UFEMPRESA, TELEMPRESA from CONTATOS_EMPRESA" 'seleciona os dados da tabela que vao para o grid Set rsbusca = .Execute End With With rsbusca Set frmpesq.DataGrid5.DataSource = rsbusca 'aqui já lança os dados no Datagrid5 End With End Function Agora no evento Change do text tem outro select??? porque quando compila e clico no text pra digitar algo ele exibe o erro: A conexao não pode ser usada para realizar esta operação.Ela esta fechada ou é invalida neste contexto. Private Sub txtempresa_Change() Dim SQLpreencebusca As String SQLpreencebusca = "SELECT NOMEMPRESA from CONTATOS_EMPRESA where NOMEMPRESA like '" & txtempresa & "%'" frmpesq.Show preenchegrid_busca End Sub

mas a function que preenche o grid vai precisar de um outro select não vai?

Existe a possibilidade de adicionar o valor (0)zero nos campos em branco da tabela?? obrigado!

achei o erro. tinha esquecido da virgula(,) depois de VEICULO. VLw galera!!!

Erro Apresentado: Erro de sintaxe na instrução INSERT INTO Private Sub cmdsalvarprop_Click() Dim SQLprop As String Dim icol As Integer Set rsprop = New ADODB.Recordset SQLprop = "INSERT INTO CONTATOS_PROPOSTA " SQLprop = SQLprop & "(CODEMP, CONTATO, CUSTO, CONDPAGTO, DATAPRO, STATUS, SEGURO, " SQLprop = SQLprop & "CONTABIL, RECADASTRO, CONFRONTO, AJUCONTABIL, EMPLAQ, CAUTELA, ECOFIN, " SQLprop = SQLprop & "FUNCOMERCIO, TECNO, ME, MU, EDIF, INSINDUSTRIAL, TERRENO, EQINF, VEICULO " SQLprop = SQLprop & "OUTRO, ESTIDESP, OBS, DATPROXCONT, MOTIVO, CODPROP, VENDA, MARCA, " SQLprop = SQLprop & "GARANTIA, SIAV, SIPAV, BOOK, MIGRASISCONT, MANUALNORMA, DISPOESPEC, FERRADISPO, " SQLprop = SQLprop & "INVENTFISICO, FLAG)" SQLprop = SQLprop & " VALUES( '" & Me.txtcodemp.Text & "' , " SQLprop = SQLprop & "'" & Me.txtcontato.Text & "' , " SQLprop = SQLprop & "'" & Me.txtcusto.Text & "' , " SQLprop = SQLprop & "'" & Me.txtcondpagto.Text & "' , " SQLprop = SQLprop & "'" & Me.datapro.Value & "' , " SQLprop = SQLprop & "'" & Me.cbostatus.Text & "' , " SQLprop = SQLprop & "'" & Me.CheSeguro.Value & "' , " SQLprop = SQLprop & "'" & Me.CheContabil.Value & "' , " SQLprop = SQLprop & "'" & Me.CheRecadastro.Value & "' , " SQLprop = SQLprop & "'" & Me.CheConfronto.Value & "' , " SQLprop = SQLprop & "'" & Me.CheAjuContabil.Value & "' , " SQLprop = SQLprop & "'" & Me.CheEmplaq.Value & "' , " SQLprop = SQLprop & "'" & Me.CheCautela.Value & "' , " SQLprop = SQLprop & "'" & Me.CheEcoFin.Value & "' , " SQLprop = SQLprop & "'" & Me.CheFunComercio.Value & "' , " SQLprop = SQLprop & "'" & Me.CheTecno.Value & "' , " SQLprop = SQLprop & "'" & Me.CheMe.Value & "' , " SQLprop = SQLprop & "'" & Me.CheMu.Value & "' , " SQLprop = SQLprop & "'" & Me.CheEdif.Value & "' , " SQLprop = SQLprop & "'" & Me.CheInsIndustrial.Value & "' , " SQLprop = SQLprop & "'" & Me.CheTerreno.Value & "' , " SQLprop = SQLprop & "'" & Me.CheEqInf.Value & "' , " SQLprop = SQLprop & "'" & Me.CheVeiculo.Value & "' , " SQLprop = SQLprop & "'" & Me.txtoutro.Text & "' , " SQLprop = SQLprop & "'" & Me.txtestidesp.Text & "' , " SQLprop = SQLprop & "'" & Me.txtobs.Text & "' , " SQLprop = SQLprop & "'" & Me.dataproxcont.Value & "' , " SQLprop = SQLprop & "'" & Me.txtmotivo.Text & "' , " SQLprop = SQLprop & "'" & Me.txtcodprop.Text & "' , " SQLprop = SQLprop & "'" & Me.CheVenda.Value & "' , " SQLprop = SQLprop & "'" & Me.CheMarca.Value & "' , " SQLprop = SQLprop & "'" & Me.CheGarantia.Value & "' , " SQLprop = SQLprop & "'" & Me.CheSiav.Value & "' , " SQLprop = SQLprop & "'" & Me.CheSipav.Value & "' , " SQLprop = SQLprop & "'" & Me.CheBook.Value & "' , " SQLprop = SQLprop & "'" & Me.CheMigra.Value & "' , " SQLprop = SQLprop & "'" & Me.CheManual.Value & "' , " SQLprop = SQLprop & "'" & Me.CheDispo.Value & "' , " SQLprop = SQLprop & "'" & Me.CheFerra.Value & "' , " SQLprop = SQLprop & "'" & Me.CheInvFis.Value & "' , " SQLprop = SQLprop & "'" & Me.txtFlag.Text & "')" cnprop.Execute SQLprop MsgBox "Cadastro de proposta efetuado com sucesso" Limpa_Propostas End Sub

obrigado mais uma vez Kuroi.

na verdade eu quero passar todos eles para true. é melhor negar essa function ou criar uma nova para ativar o enable? Obrigado!!! Public Function DesativaCheck() As Boolean Me.CheSeguro.Enabled = False Me.CheContabil.Enabled = False Me.CheInvFis.Enabled = False Me.CheRecadastro.Enabled = False Me.CheConfronto.Enabled = False Me.CheAjuContabil.Enabled = False Me.CheEmplaq.Enabled = False Me.CheCautela.Enabled = False Me.CheEcoFin.Enabled = False Me.CheFunComercio.Enabled = False Me.CheTecno.Enabled = False Me.CheMe.Enabled = False Me.CheMu.Enabled = False Me.CheEdif.Enabled = False Me.CheInsIndustrial.Enabled = False Me.CheTerreno.Enabled = False Me.CheEqInf.Enabled = False Me.CheVeiculo.Enabled = False 'Me.CheEspo.Enabled = False Me.CheVenda.Enabled = False Me.CheMarca.Enabled = False Me.CheGarantia.Enabled = False 'Me.ChePatri.Enabled = False Me.CheSiav.Enabled = False Me.CheSipav.Enabled = False Me.CheBook.Enabled = False Me.CheMigra.Enabled = False Me.CheManual.Enabled = False Me.CheDispo.Enabled = False Me.CheFerra.Enabled = False Me.CheIncluida.Enabled = False Me.Cheexcluida.Enabled = False Me.CheIncluso.Enabled = False Me.CheNaoIncluso.Enabled = False End Function

alguém tem alguma function, onde quando eu estiver digitando por exemplo o nome de uma empresa ele me abra um grid com uma lista de empresas que iniciam com os mesmos caracteres, indo buscar a empresa do BD. obrigado.

Existe alguma maneira de efetuar uma function que na medida em q vou escrevendo o texto ele vai buscando os dados no banco?

Assim que o usuário clica no grid1 eu deixo a visible do grid2 como true e ele já busca as informações na tabela do grid2. Aqui a função pra carregar o grid1 Function Exibircontemp() Dim SQL As String Set cncontemp = New ADODB.Connection With cncontemp .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rscontemp = New ADODB.Recordset Set rscontemp.ActiveConnection = cncontemp rscontemp.CursorLocation = adUseClient SQL = "Select CODEMP, NOMCONT, CODCONT, EMAILCONT, CARGOCONT, TELCONT, SECRETARIA from CONTATOS_CONTATO " & _ " WHERE CODEMP = '" & txtcodemp & "'" rscontemp.Open SQL Set Me.DataGrid1.DataSource = rscontemp End Function 'Click do grid1 Private Sub DataGrid1_Click() DataGrid2.Visible = True Call Exibirativcont txtcontato.Text = DataGrid1.Columns(1) End Sub 'Aqui os dados do grid2 que ele carrega Function Exibirativcont() Dim SQL As String Set cnativcont = New ADODB.Connection With cnativcont .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rsativcont = New ADODB.Recordset Set rsativcont.ActiveConnection = cnativcont rsativcont.CursorLocation = adUseClient SQL = "Select CODEMP, CODCONTATO, ASSESSOR, EQUIPE, TAREFA, DATATAREFA, HISTORICO, CARTA, HORA, IMPORT, CODIMP, TEMPOGASTO from CONTATOS_HISTORICO " & _ " WHERE CODEMP = '" & txtcodemp & "'" rsativcont.Open SQL Set Me.DataGrid2.DataSource = rsativcont End Function ai se eu coloco aquele If EOF no click do grid ele exibe esse erro. Será que precisa dar uma Set na RS da function no click do grid?

so uma outra duvida quando coloco if rs.EOF then datagrid3.visible = false else datagrid3.visible = true end if isso seria pra não carregar o terceiro grid. esse codigo vai no evento click do segundo grid correto? mas ai ele me exibe essa mensagem: Run-Timer Erro 91 Object variable or With block variable not set

legal, mais uma que aprendi. muito obrigado Kuroi. isso vai ser muito útil pra mim, pois tenho 4 datagrids e todos eu estava alimentando datagrid1.columns(0) e por ai vai. obrigado!

ele para no rs que o campo esta em branco. Invalid use of Null

E se não estiver pelo RS? Tipo assim: txtcusto.Text = DataGrid3.Columns(2) txtcusto.Enabled = False cbostatus.Text = DataGrid3.Columns(12) cbostatus.Enabled = False datapro.Value = DataGrid3.Columns(10) datapro.Enabled = False dataproxcont.Value = DataGrid3.Columns(52) dataproxcont.Enabled = False txtcodprop.Text = DataGrid3.Columns(55) txtcodprop.Enabled = False txtmotivo.Text = DataGrid3.Columns(53) txtmotivo.Enabled = False porque pelo rs quando tiver um valor Null ele vai exibir erro não vai?

minha dúvida é a seguinte: Tenho no projeto cerca de 4 DATAGRID´S, um alimenta o outro no evento CLICK, até ai tudo bem. Porém andei vendo o BD e em determinados clientes não existe dados para se alimentar o grid, porém a visible dele é carregada para TRUE, mas quando clico no GRID em BRANCO ele exite erro, pois não existem dados. Tem alguma maneira de dizer por exemplo: if datagrid3.columns(0) = empty then datagrid3.visible = false else datagrid3.visible = true end if ou sei lá algo diferente.

o que acontece é q o tempo gasto é preenchido automaticamente. txtequipeativ(7).Text = MontaHora(contcron). então vou mudar para string acho melhor.