kuroi

antes de abrir a conexao, tenta por então esse codigo: cnnOleopl.CursorLocation = adUseClient EDITADO: ou e nesse seu codigo ai você nem associou o recordset ao command. acho q você teria q fazer: Set rsSelecao = .Execute mas vai dar o mesmo efeito do codigo q passei.

eu costumo permitir. o importante é como você vai lidar com isso na programacao. se você tiver preparado, não tem problema, mas isso varia do q você pretende fazer, e do seu jeito de programar, não tem q permitir ou não so porque "tem q" ou "não tem q", eu permito porque prefiro assim.

tópico fechado, respostas aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=140280

troque a linha: rsSelecao.Open "Select * From Clientes", cnnOleopl, 1, 2 por Set rsSelecao = cnnOleopl.Execute("Select * From Clientes") EDITADO: o seek não seria assim?? rsSelecao.Seek "Nome_do_campo = " & ProcuraCodigo

nele você guarda uma lista de imagens pra associar com outros objetos, como toolbar, listview, treeview. aqui tem um exemplo de como usar com toolbar: http://www.macoratti.net/vbmnu_pro.htm

isso ai é mysql.

olhai: http://scriptbrasil.com.br/forum/index.php?showtopic=78509

você pode fazer um count() com group by

no link tem o codigo. na funcao q vai mostrar a imagem do banco no picturebox, ele tem q, antes, gravar a imagem em um arquivo no hd, olha o codigo la.

tem um forum em ingles sobre isso aqui: http://www.xtremevbtalk.com/forumdisplay.php?f=12

se eu entendi, você tem q usar left join: http://scriptbrasil.com.br/forum/index.php?showtopic=108732

a, se você pos aquela formula do previous no supress, ai ele não vai mostrar nd mesmo. o supress esconde o campo. se você quer q ele mostre 0, então faca um novo campo formula tipo assim: if ({Campo}) <> previous({Campo}) then {@Campo_Formula_Que_Voce_Quer_Mostrar} else 0[/code]

black dragon, use o alter table pra adicionar novos campos. agora, como o denis falou, isso ia ficar meio estranho. você adiciona os campos "data" e "dia_mes_ano" uma vez. depois de 24 horas como você vai adicionar de novo, se eles já estao la?? mesmo q você use outro nome, o melhor não seria adiciona novos registros em vez de novos campos??

olhai: http://www.macoratti.net/img_bd.htm

se o campo ta em branco é porque ele deve ser do tipo texto. se você quer q apareca um numero, grave um numero nele (em vez de por formula = '' ponha formula = 0) EDITADO: é essa formula?? truncate(((Sum ({CUSTOTOTAL}, {DESCRICAO}) - ({CUSTOINI})) / ({FATTOTAL})), 2) tenta tira o truncate()

juntei os topicos pra ficar melhor. tiago, qual o campo q você tinha agrupado?? aquele q criou o group footer?? tipo assim, você clicou em menu Insert -> Group e ai você selecionou um campo pra agrupar, certo?? então. esse campo ai. ponha ele no lugar de {campo}, e veja se não funciona.

a então. é isso aqui ó: Sum ({@varHoras},{Semana.Usuario} ) você não pode agrupar por um campo q faca sum(). olhai, o sum() já é baseado em otro grupo (no caso o grupo do campo {Semana.Usuario}). você so pode agrupar por campos q sejam unicos pra cada registro. agora o campo varHorasUsuario é unico pra cada grupo, não vai dar. você vai ter q pensar outra forma de fazer essa divisao q você quer. o jeito q acho q seria melhor seria você apontar esse seu relatorio pra uma consulta (view) no banco de dados q já faca a soma pra você. ai o sum() vai estar sendo feito na consulta e o relatorio vai entender como se ele fosse um campo como qualquer um e ai você podera agrupar.

tiago, olha o q eu escrevi no otro tópico: http://scriptbrasil.com.br/forum/index.php...st&p=556959

ta mas a formula dentro dela é essa ne?? if {@varHoras_Nome} < 40 then "Reportou menos que 40 horas" else if {@varHoras_Nome} > 40 then "Reportou mais de 40 horas" else "Reportou 40 horas"[/code] agora esse campo q esta sendo usado dentro da formula... não importa se chama varHoras_Nome ou varHorasUsuario, mas poste ai a formula q esta dentro desse campo (o codigo). muito provavalmente o problema esta ai. veja a explicacao q eu dei num otro tópico hj: http://scriptbrasil.com.br/forum/index.php...st&p=556958 o mesmo vale pra você, onde ele não vai conseguir usar previous(), você tb não conseguira agrupar.

você não consegue agrupar por esse campo varValida?? qual a formula q esta em @varHoras_Nome??

michelle, foi mal a demora, não sei se você já resolveu, mas o codigo seria esse aqui ó: Private Sub CommandButton3_Click() Dim r As Range, i As Integer Dim s As Range ListBox1.Clear If OptionButton1.Value Then Set r = Worksheets("CRM").Range("C2") ListBox1.ColumnCount = 3 Do While r.Value <> "" If r.Value = TextBox13.Text Then Set s = r ListBox1.AddItem s.Value Set s = s.Offset(1) ListBox1.List(0, 1) = s.Value Set s = s.Offset(1) ListBox1.List(0, 2) = s.Value Exit Do End If Set r = r.Offset(, 1) Loop Else Set r = Worksheets("CRM").Range("C4") i = 0 ListBox1.ColumnCount = 3 Do While r.Value <> "" If InStr(r.Value, TextBox14.Text) > 0 Then Set s = r.Offset(-2) ListBox1.AddItem s.Value Set s = s.Offset(1) ListBox1.List(i, 1) = s.Value Set s = s.Offset(1) ListBox1.List(i, 2) = s.Value i = i + 1 End If Set r = r.Offset(, 1) Loop End If End Sub[/code] ai não sei quais colunas você quer por, mas ai é so você ir mudando os offsets. olha la, primero você seta qtas colunas vao ser la em cima (no caso eu pus 3). ai é so você analizar o codigo. na pesquisa por numero, o r vai estar na linha do codigo (a mais alta). então eu igualei o s a ele pra escrever o codigo na primera coluna. ai eu vou descendo com o offset e inserindo uma coluna por vez pra inserir a data e o nome. ai na pesquisa por nome, a mesma coisa, com a unica diferenca q o r vai estar duas colunas abaixo. por isso eu tenho q comecar com um offset de -2.

o seu combobox deve estar com style = 2 (Dropdown List), onde o cara não pode digitar nele, certo?? então você não consegue editar o text mesmo. o q esta no flexgrid?? é o indice q você tem q por no combo ou o text q você vai ter q escrever?? se for o indice, então é so fazer assim: comboSituacao.ListIndex = FlexGridCadastro.Text agora, se for o texto, ou você poe o style = 0 (Dropdown Combo), ou, caso o text do flexgrid esteja na lista do combo, você vai ter q procurar e setar o listindex correspondente.

marcelo, isso acontece mesmo, no visual basic uma funcao não pode passar de um numero certo de linhas. e acho q o mesmo server pra cada formulario ou module, depois de um limite ele não compila mais. você vai ter q separar a sua sub em varias, e, se for preciso, vai ter q separar em varios modules tb. mas seila, se o procedimento acontece 49 vezes, não é melhor por dentro dum for em vez de escrever o codigo todo 49 vezes??

declare essa funcao: Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Function AlwaysOnTop(FrmID As Form, ByVal OnTop As Boolean) As Boolean Const SWP_NOMOVE = 2 Const SWP_NOSIZE = 1 Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 If OnTop = True Then AlwaysOnTop = SetWindowPos(FrmID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) Else AlwaysOnTop = SetWindowPos(FrmID.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) End If End Function[/code] pra chamar faca assim: [code]AlwaysOnTop Me, True 'deixa sempre visivel AlwaysOnTop Me, False 'cancela o sempre visivel

troque essa linha: If Adobaixas.Recordset("Documento") = "" Then por: If Adobaixas.Recordset.EOF Then agora no proximo, pra achar o proximo registro do mesmo cliente, você tem q usar o find de novo.