jb207

Uma sujestão: já que o arquivo é pequeno, crie uma variavel array de texto. Jogue o conteudo de cada linha para cada array de variavel, toque o que for necessario e depois grave denovo no arquivo. Espero ter ajudado.

Me passe teu e-mail que eu mando um exemplo.

Bom, na minha concepção isso não é nada fácil. Se voce conseguir fazer isso, voce estará criando um "Report". Ai voce vai querer deixar de fazer programas e vai passar a vender o seu produto. Mas mesmo assim é possível. Só não acho viável. Em um cliente meu eu ensinei um "mane" a trabalhar com o Crystal Report e depois disso ele cria o que ele quer. Abraços e sucesso.

Obrigado pela parte que me cabe, kkkkkkkkkkkk Um feliz 2005 para todos.

Caros amigos... Acho que devido as festas estou com problemas de pensar, hehehehe Estou com o seguinte problema: talvez seja fraqueza, mas até agora não consegui resolver. Tenho um campo numa tabela no MySql que é Decimal 15,4 Quando faço uma divisão e jogo o resultado da divisao para o campo ele esta arredondando para cima e eu não quero isso Assim: Dim Tota_Valo as Double Tota_Valo = (994,35 / 0,8287) Tota_Valo = 1199,89139616266 Até ai tudo bem só que quando vou gravar no campo ele esta gravando como: !Tota_Valo = 1199,8914 eu não quero que arredonde. Tem como? Obrigado e um feliz ano novo pra todos.

Ola.......eu faço assim Private Sub grid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If ado1.Recordset.RecordCount = 0 Then Exit Sub grid1.SelBookmarks.Add grid1.Bookmark End Sub A partir dai o registro já esta posicionado e é só voce tratar ele. Espero que ajude.

Bom dia!!! Caro moderador. Eu tenho uma infinidade de exemplos de programas em VB, mas infelizmente por "fraqueza" minha não consegui mandar para o site. Gostaria de saber se é possível eu mandar os arquivos e como devo proceder? Qualquer coisa me mande um e-mail - jb207@bol.com.br

já conseguiu solucionar seu problema?

Voce pode especificar melhor o que pretende? Assim podemos te ajudar.

Ola, não tenho boas recordações de utilizar edição em um DataGrid.....Achei muito complicado e dá muito pau quando se trata de muitos campos. Eu particularmente não utilizo mais isso e não aconselho a usar. Eu sempre tento outra solução.

Quer um exemplo de impressão pelo print? Mande seu e-mail para jb207@bol.com.br.

Tenho outra sujestão: Marque a linha que voce quer que inicie o debug, como indicado anteriormente, e rode o programa normalmente. Quando a linha for encontrada ele vai comecar a fazer o debug, para prosseguir é só precionar F8, que ele saltara linha a linha. Se desejar encerrar o debug é só precionar F5 e o programa continuará normalmente. Outra: caso voce queira ver o conteudo de uma variavel num debug é só colocar o apontador do mouse sobre a variavel desejada e aguarda alguns instantes. Espero ter ajudado. Abraços.

Obrigado!!! Vou passar a fazer tudo via código. Gratos e abraços.

Tente isso no evento “MoveComplete” do teu ADO. Dim Vlr_Total as Currency Vlr_Total = (QuantComprada * VlrUnitCamisa) TxtCampo.Text = format(Vlr_Total, “###,##0.00”) Espero que ajude.

Boa tarde pessoal!!!! Estou precisando de uma orientação. Eu já tenho alguns palicativos desenvolvidas em VB, e com relação ao controle de dados eu começei usando o DAO e depois com o tempo fui desenvolvendo sistemas com ADO. Uitilizo tanto o Access como o MySQL e faço as conexoes via codigo fontes. O fato é o seguinte: já estou perdendo a paciência com esses controle de dados, hehehehehe. Em algunas entradas de dados que tenho ainda encontro alguns problemas com relação a manipulação de dados, tipo: (incluir, alterar, excluir). já vi alguns comentário de desenvolvedores que não utilizam mais esses controle de dados. Alguém tem alguma sujestão pra que eu possa abandonar essas duas melecas?. Ou até mesmo um exemplo (pro mais simples que seja). É só pra mim ter uma idéia. Desde já agradeço. Abraços

Vou tentar responder. Primeiro: Tenho uma tabela de pacientes de um hospital, tem um option button para informar se o paciente tem convenio (Sim/Não). quando recupero o registro eu faço assim: If adopacientes.Recordset!Situ_Conv = "Sim" Then Optconvenio(0).Value = True End If If adopacientes.Recordset!Situ_Conv = "Não" Then Optconvenio(1).Value = True End If quando eu vou gravar o registro eu faço assim: if Optconvenio(0).Value = True Then adopacientes.Recordset!Situ_Conv = "Sim" End If if Optconvenio(1).Value = True Then adopacientes.Recordset!Situ_Conv = "Não" End If Espero ter ajudado. Me avise.

pode ser mais específica?

heheheheheh Não consegui mandar o programa. Não achei a opcao pra enviar arquivo. Desculpe...... Me escrevam jb207@bol.com.br juarezbastos@zipmail.com.br

Boa tarde pessoal!!!! Infelizmente eu ainda tenho um aplicativo que utiliza o DAO3.5. O problema que a base de dados (MDB) já esta gigante com mais de 50.000 registro e fica muito lento pra carregar o sistema Tem como limitar a qtde de registro em 500? Digo: uma instrucao Sql para delimitar? Com o ADO eu utilizo o "Limit 0,500" e funciona direitinho mas com o DAO dá um erro de sintaxe. Será que o DAO suporta essa instrucão? Abraços.

Voce pode usar um formulario normal e alterar a propriedade WindowsState para 2-Maximized deve funcionar

Serve para localizar determinados elementos dentro de um grupo. Eu utilizo para limpar os Campos (TextBox) da tela. Public Function Limpa_Tela() Dim Controles As Control For Each Controles In Controls If TypeOf Controles Is TextBox Then Controles.Text = "" End If Next End Function

Se voce procurar no Forum mesmo voce vai encontrar.

Ola gelara.... Como fui orientado pelo moderador a procurar a solução do problema atraves de tópicos anteriores assim o fiz, mas infelizmente os dois tópicos relacionados ao meu problema não foram suficiente para resolver meu problema. então volto a perdir ajuda com relação a impressao de campo memo. Eu gostaria que a impressão saisse igual ao campo como esta na tela. Demilitado e alinhado. Porém quando imprimo o campo ela sai numa linha só. Tem solucao isso. Abraços juarezbastos@zipmail.com.br