
kuroi
Membros-
Total de itens
7.184 -
Registro em
-
Última visita
Tudo que kuroi postou
-
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) & "'")
-
duvida, codigo aleatorio com palavras pré definidas...
pergunta respondeu ao skylopirata de kuroi em Visual Basic
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.
-
Erro na opção salvar / atualizar ( VB + SQL )
pergunta respondeu ao Alex Mauricio de kuroi em Visual Basic
a acho q sim, mas quem sabe o q você quer fazer é você. -
Erro na opção salvar / atualizar ( VB + SQL )
pergunta respondeu ao Alex Mauricio de kuroi em Visual Basic
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...
-
[RESOLVIDO] Abrir arquivo excel e salvar
pergunta respondeu ao Vladimir D. Almeida de kuroi em Visual Basic
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)
-
Alteração de registros substituindo linha errada
pergunta respondeu ao Michelle Alves de kuroi em VBA
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??
-
Erro na opção salvar / atualizar ( VB + SQL )
pergunta respondeu ao Alex Mauricio de kuroi em Visual Basic
so uma coisa. como você não pos where, esse update vai atualizar todos os registros da tabela. -
Alteração de registros substituindo linha errada
pergunta respondeu ao Michelle Alves de kuroi em VBA
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] -
Alteração de registros substituindo linha errada
pergunta respondeu ao Michelle Alves de kuroi em VBA
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??