kuroi

você diz q quer fazer um filtro no listview?? não é melhor usar datagrid?? de qualquer forma, você vai ter q fazer, no evento change da textbox, pra ele fazer novamente o select no banco (usando o like pra pegar so pelo comeco da palavra), apagar todo o conteudo do list e incluir de novo so o q tiver voltado do filtro.

o like não tem igual. ou use igual ou use like. assim: Set TbClientes = BancoDeDados.OpenRecordset("select * from cliente where razao_social like '" & (txtCRazaoSocial.Text) & "'") ou assim: Set TbClientes = BancoDeDados.OpenRecordset("select * from cliente where razao_social = '" & (txtCRazaoSocial.Text) & "'")

você randomizou no x mas nem usou ele... seria assim: Randomize x = Int(Rnd * 5) + 1 Text1.Text = fruta(x)[/code] mas nesse caso ele vai retornar uma unica fruta random por acaso você queria q ele trouxesse todas numa ordem random?? se for, você vai ter q retirar cada um do array cada vez q você fizer o rnd. tipo assim, faca o primero rnd, e ele encontra o valor 3 tres por exemplo. pegue a fruta 3, e troque com o ultimo indice. em seguida faca o rnd assumindo q o vetor tem uma posicao a menos e assim por diante.

em q linha acontece esse erro??

o valor q vai tar na celula Cells(i, 9).Value é do tipo texto ou é numerico??

cara isso é .net

estranho, tente isso: SQL = "SELECT A.*, C.CARGOCONT, C.TELCONT " & _ " FROM CONTATOS_EMPRESA A INNER JOIN CONTATOS_CONTATO C " & _ " ON C.NOMEMPRESA = A.NOMEMPRESA " & _ " WHERE A.NOMEMPRESA like '%" & frmcademp.txtempresa.Text & "%'"[/code] se não funcionar, tenta o seguinte: [code]SQL = "SELECT A.*, C.CARGOCONT, C.TELCONT " & _ " FROM CONTATOS_EMPRESA A, CONTATOS_CONTATO C " & _ " WHERE C.NOMEMPRESA = A.NOMEMPRESA" no caso ele teria q trazer todos os registros. se esse select der certo, a gente vai saber q o problema ta no like.

mas você ta usando sql ou mysql??

a ta, tente o filtro assim: CrystalRet.ParameterFields(0) = "data1;Date(" & Format(DatInicial.Value, "YYYY,MM,DD") & ");True" CrystalRet.ParameterFields(1) = "data2;Date(" & Format(DatFinal.Value, "YYYY,MM,DD") & ");True"[/code]

lembro q fui eu q te ensinei isso hehe http://scriptbrasil.com.br/forum/index.php...st&p=396983

o q acontece de errado?? ele da erro ou não faz o filtro??

uma fora tb seria você por no Details. ai clique com botao direito no painel da esquerda em cima do nome details e clique em Format Section. ai selecione a opcao New Page After e veja se não funciona.

declare a variavel como Long. se continuar dando erro, então declare como Double.

a acho q sim, mas quem sabe o q você quer fazer é você.

faz isso: ssql = "update cliente set razao_social = '" ssql = ssql & txtRazaoSocial.Text & "', fone_cliente = '" ssql = ssql & txtTelefone.Text & "', cidade_cliente = '" ssql = ssql & txtCidade.Text & "' where codigo_cliente =" & txtCodigo.Text[/code]

se você vai do editor do visual basic é sempre modal mesmo. mas como eu disse antes...

essa parte q ela atualiza dados e feita como?? em vba?? é so abrir a planilha q ela já faz td isso?? então você podia por um atalho pra planilha no menu inicializar (o q vai fazer ela abrir jto co windows) e por um comando do vba pra fechar a aplicacao quando tdo tiver pronto. de qualquer modo, pra fazer pelo visual basic, tem todas as dicas nesse tutorial aqui: http://www.macoratti.net/excel_vb.htm ai se você precisar de alguma coisa especifica q não tiver nesse link, ou não entender alguma coisa ai poste ai.

acontece q o Val() entende 15.300,00 por exemplo como 15,30. pra fazer o q você quer vai ter q usar o CDbl(). se eu entendi, o problema dele é q da erro se o textbox ta em branco ne?? mas pra isso é so você fazer uma funcao pra driblar isso. tem mtos jeitos, esse é um deles: Private Function Converte(valor As String) As Double Dim r As Double If Not IsNumeric(valor) Then r = 0 Else r = CDbl(valor) End If Converte = r End Function[/code] e ai na hora de fazer as contas, você faz, por exemplo: [code]Text2.Text = Converte(txtcustoEC.Text) * Converte(txttotEC.Text)

michelle, você poderia recortar a linha assim: If Not x Is Nothing Then x.EntireRow.Cut Sheets("Plan1").Paste End If[/code] mas ai acho q depois você teria q subir as linhas de baxo ne??

mestre kame, é possivel fazer do modo q o never falou. entretanto, os forms não devem ser chamados como modais pra execucao poder continuar. o modal significa q o form para a execucao de todo o resto enquanto ele é exibido. o padrão do vba acho q é chamar como modal. exemplo, se você chama o form apertando F5 do editor do visual basic, ele vai vir como modal e ai não tem jeito mesmo, a ideia do never não vai funcionar. a não ser q tenha como chamar o form de modo não modal a partir do F5, mas desconheco como fazer. entretanto se você chamar o form a partir do clique de um botao na planilha por exemplo, passe 0 como parametro no show. tipo assim: UserForm1.Show 0 e passe 0 tb quando for chamar o formulario com a mensagem. o 0 significa q o formulario não sera mostrado como modal.

mas você ta tentando converter alguma string pra integer?? posta o codigo q você ta usando e aponta a linha do erro.

você ta usando DAO ou ADO?? controles vinculados (ADODC) ou RecordSet declarado??

so uma coisa. como você não pos where, esse update vai atualizar todos os registros da tabela.

michelle, olha q agora deve resolver: Private Sub CMDalterar_Click() Dim x As Range, i As Integer Set x = Worksheets("CREC").Range("F:F").Find(What:=TextBox1.Text, After:=Worksheets("CREC").Range("F5"), LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) Do While Not x Is Nothing i = x.Row If CDate(Worksheets("CREC").Cells(i, 12)) = CDate(TextBox11.Text) Then Exit Do Set x = Worksheets("CREC").Range("F:F").FindNext(After:=x) Loop If Not x Is Nothing Then With Worksheets("CREC") .Cells(i, 13) = TextBox15.Text .Cells(i, 14) = TextBox14.Text End With End If End Sub[/code]

michelle, na planilha q você me mandou esse codigo funcionou certinho com o dado q tava no textbox. quer mandar de novo com as alteracoes q você fez??