kuroi
Membros-
Total de itens
7.184 -
Registro em
-
Última visita
Tudo que kuroi postou
-
você quer q varias paginas tenham o mesmo numero?? ai deve resolver se você fizer um grupo pela data e usar o special field Group Number pra mostrar os numeros.
-
Alteração de registros substituindo linha errada
pergunta respondeu ao Michelle Alves de kuroi em VBA
michelle, ainda esta com o problema?? então, esse erro ocorre naquela linha mesmo?? não é na q procura na coluna L não?? você tentou o Val() como eu passei?? o q acontece, é a coluna F ta preenchida com numeros. não pode ter texto no textbox1 na hora de fazer a busca senao vai dar erro mesmo. tem q ter um numero la. -
Fazer Mala Direta com Word (preenchendo Cartas, Minutas)
pergunta respondeu ao Macêdo de kuroi em Tutoriais & Dicas - Visual Basic
flecha isso é porque você pos Option Explicit não?? se você não puser ai não precisa dessa linha como o macedo postou. -
boasfesta, postou no lugar errado sim, to movendo pro lugar certo. quanto ao richtextbox, pra abrir rtf, use a funcao LoadFile, como explicado nesse tutorial: http://www.macoratti.net/vb_richt.htm
-
você diz q ta colocando os textbox dentro do grid?? mas não foi isso q eu quis dizer. eu quis dizer dexar os textbox separados. e não é pra ter um textbox pra cada registro. o q eu quis dizer seria, você dexa os textboxs pra cada campo abaixo do grid. ou ainda, em um otro formulario. quando ele selecionar uma linha (ou dar um duplo clique), você preenche os textbox com os dados da linha ATUAL. se ele alterar você altera no grid. a propriedade .Rows guarda a ultima linha. então o ultimo indice seria o .Rows - 1. nunca vi isso mesmo.
-
você ta usando ADO ou DAO?? acontece q quando você faz um select e leva os dados pro recordset, ele grava os dados na memoria. se você altera no banco, não altera na memoria. então você teria q executar o select de novo. ele exclui ou insere registros no mesmo form?? se for, é so você executar o recordset de novo depois de cada inclusao/exclusao.
-
batesse certo o q?? a isso é relativamente simples. faca um for e va pegando os textmatrix(). na minha opiniao, essa seria a melhor forma de fazer o q você quer, acho q você devia tentar assim e se tiver duvida postar no forum. nunca vi isso. se tiver como, quero saber tb.
-
Alteração de registros substituindo linha errada
pergunta respondeu ao Michelle Alves de kuroi em VBA
incompatibilidade?? mas qual a mensagem do erro?? tente isso: -
o q eu costumo fazer é, quando ele seleciona a linha do datagrid, ele joga todos os dados do registro pra textboxs, o cara edita como quer e so vai gravar quando ele clicar em gravar. ou ainda abir um otro formulario so pra editar os dados. pra editar direto no grid, não acho o datagrid muito bom não. pra fazer isso eu usava um grid chamado farpoint spread (componente pago), q era um grid muito melhor, com mtas opcoes.
-
Alteração de registros substituindo linha errada
pergunta respondeu ao Michelle Alves de kuroi em VBA
o então acho q isso ai resolve: Private Sub CMDalterar_Click() Dim x As Range, i As Integer Set x = Worksheets("CREC").Range("F:F").Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) Do While Not x Is Nothing i = x.Row If Worksheets("CREC").Cells(i, 12) = TextBox11.Text Then Exit Do x = Worksheets("CREC").Range("F:F").FindNext(x) Loop If Not x Is Nothing Then With Worksheets("CREC") .Cells(i, 2) = valor .... .... .Cells(i, 13) = valor .Cells(i, 14) = valor End With End If End Sub[/code] -
Pesquisa em banco de dados instatanea usando (mid)
pergunta respondeu ao brumatt de kuroi em Visual Basic
acho q o like seria melhor do q o mid(). tipo assim: Select * From Tabela Where Campo Like 'k*' nesse caso vai selecionar todos os registro q comecarem com k. Select * From Tabela Where Campo Like 'ab*' nesse caso vai selecionar todos os registro q comecarem com ab. Select * From Tabela Where Campo Like '*k*' nesse caso vai selecionar todos os registro q tiverem k no meio. mas fica de olho q a sintaxe do like acho q varia de banco pra banco. esse q eu passei vai funcionar no access. -
se o campo é texto, o valor tem q ta entre aspa. e não sei porque você pos aquele Val(): Set TbLogin = BD.OpenRecordset("Select nomeUser from autenticacao where nomeUser = '" & txtUsuario.Text & "'")
-
Alteração de registros substituindo linha errada
pergunta respondeu ao Michelle Alves de kuroi em VBA
michelle, se o numero do pedido vai estar no textbox1, não é so você fazer um find na coluna F (onde estao os numeros)?? tipo assim: Private Sub CMDalterar_Click() Dim x As Range, i As Double Set x = Worksheets("CREC").Range("F:F").Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If Not x Is Nothing Then i = x.Row With Worksheets("CREC") .Cells(i, 2) = valor .... .... .Cells(i, 13) = valor .Cells(i, 14) = valor End With End If End Sub[/code] -
a basicamente seria isso aqui não?? If Text1.Text = "10/" Then Form2.Show End If[/code] ai tem q ver o q mais q você quer por nesses codigos ai. é so pra abir form?? ai você vai ter q ver como se associa um form com um numero (o q tem a ver o 10 com o form2??). basicamente você vai precisar ler a string e tomar as acoes. principalmente pelo q você ta dizendo imagino q você va precisar mais da funcao InStr() mas é bom conhecer tb as otras funcoes de strings, como Mid(), Left(), Right(), Split(), etc. faca uma busca no google por essas funcoes.
-
Alteração de registros substituindo linha errada
pergunta respondeu ao Michelle Alves de kuroi em VBA
michelle, ta dizendo: quer mandar no meu email rafaelsposito[arroba]gmail.com ?? -
tem razao, leandro, esse codigo ai não serve pra passar parametros. é um codigo de otro componente, eu passei ele em otro tópico mas tava errado. o certo com o crcontrol seria assim: CrystalReport1.ParameterFields(0) = "data1;Date(" & Format(datinicial.Value, "YYYY,MM,DD") & ");True" CrystalReport1.ParameterFields(1) = "data2;Date(" & Format(datfinal.Value, "YYYY,MM,DD") & ");True"[/code]
-
leandro, mas o q ta acontecendo de errado??
-
nanda, ponha a propriedade keypreview do formulario como true. e ai chame o evento KeyDown do formulario, tipo assim: Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyValue = 13 Then '13 é o codigo do ENTER - aqui você faz o login - End If End Sub[/code] ai dentro do if você chama o login. o melhor é chamar a sub do click do botao ali no if. e quanto a sua mp, respondo jaja
-
então leandro, esse filtro ai é pra funcionar. de teste faca isso aqui q eu falei antes: td numa linha so. e depois tenta incluir o codigo q ele mostrar no selection formula direto no crystal e abra o preview do relatorio e veja se ele não vai mostrar os dados. se não mostrar ai é o problema nas datas q você ta passando. é porque ele noa ta encontrando registro no banco mesmo. ai se você tiver certeza q os registros existem mesmo, ai talvez seja problema com tipos de dados ou coisa assim. nesse caso, so pra garantir, la no crystal clicque em menu Database -> Verify Database, salve o relatorio e tente de novo.
-
o StrConv() faz isso. olha so: http://scriptbrasil.com.br/forum/index.php?showtopic=119648
-
leandro você fala do otro tópico la?? então, é o marcio falou, o codigo dele deve funcionar. mas você não precisa converter pra datetime. pode converter so pra date e passar so a data, não precisa da hora. veja ai o q você consegue, qualquer coisa poste la no tópico, beleza??
-
(Resolvido) mudar a cor da letra quando passar o mouse
pergunta respondeu ao nanda_santos de kuroi em .NET
nanda, em visual basic .net o codigo seria esse ó: Private Sub xxxToolStripMenuItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles xxxToolStripMenuItem.MouseEnter xxxToolStripMenuItem.ForeColor = Color.Blue End Sub Private Sub xxxToolStripMenuItem_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles xxxToolStripMenuItem.MouseLeave xxxToolStripMenuItem.ForeColor = Color.Black End Sub[/code] nesse caso ai ele muda a cor de um dos items do menustrip chamado xxxToolStripMenuItem. agora se você quer pra varios items do menustrip, você declara assim ó: [code]Private Sub MudaCor(ByVal sender As Object, ByVal e As System.EventArgs) sender.ForeColor = Color.Blue End Sub Private Sub MudaCor(ByVal sender As Object, ByVal e As System.EventArgs) sender.ForeColor = Color.Black End Sub e ai você tem duas opcoes pra passar pra varios items. ou você adiciona no final da declaracao da sub o Handles pra cada um deles. ou você declara um eventhandler e adiciona no form_load, o q acho q seria melhor pois o codigo ficaria mais organizado e você poderia usar ate um for pra fazer. um exemplo, mais o menos disso esta aqui: http://scriptbrasil.com.br/forum/index.php...st&p=462498 veja se você entende ai, qualquer coisa poste. -
beleza q já resolveu, mas tem o campo especial Report Title q você podia usar q ficaria bem mais facil. e com campo parametro tb ficaria mais facil. não funciona mais o q acontece de errado?? qual a mensagem de erro q aparece?? tente esse: " {VW_CYCLETIME.dt_liberacao_sap} >= #" & Format(txtFIM, "YYYY/MM/DD") & "# AND " & " {VW_CYCLETIME.dt_liberacao_sap} <= #" & Format(txtFIM, "YYYY/MM/DD") & "# AND " & " {VW_CYCLETIME.ID_DOCUMENTO} <> 6 "[/code] se não for, então posta a mensagem de erro ai. mas o campo dt_liberacao_sap é do tipo data ne?? se for string, então você teria q converter. tipo assim: [code]" CDate({VW_CYCLETIME.dt_liberacao_sap}) >= #" & Format(txtFIM, "YYYY/MM/DD") & "# AND " & " CDate({VW_CYCLETIME.dt_liberacao_sap}) <= #" & Format(txtFIM, "YYYY/MM/DD") & "# AND " & " {VW_CYCLETIME.ID_DOCUMENTO} <> 6 "
-
Usar variável para executar SelectionFormula
pergunta respondeu ao Flecha de kuroi em Crystal Reports
olha essa daqui: ElseIf optreport(1) = True Then Dim strCargo As String Dim strValor As String strCargo = Combo1Rel.Text strValor = Combo2Rel.Text With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .SelectionFormula = "{Customer." & strCargo & "} = '" & strValor & "'" .Action = 1 End With[/code] você não passa o ReportFileName. como ele vai saber q relatorio tem q abrir da primera vez?? nas otras opcoes você passa o ReportFileName, então quando você imprime a opcao 1 depois de ter impresso a 2 por exemplo, o ReportFileName ta setado, por isso não da erro.