Graymalkin

Mas, por que você não usa o próprio VB? De qualquer maneira, uma forma seria criar uma DLL no VB que lhe permitisse usar o objeto Printer e depois fazer uma referência à esta DLL no seu projeto do VBA. Só que aí você ficaria dependente desta DLL e das DLLs do VB6. Abraços, Graymalkin

Use o For Each; torna o código mais elegante e legível: Dim Header() As String = "Codigo;Item;Quantidade".Split(";") For Each campo As String In Header MessageBox.Show(campo) Next campo Abraços, Graymalkin

Veja a propriedade Length do vetor criado. Abraços, Graymalkin

Então esse campo no registro atual está vazio, não? Abraços, Graymalkin

Use o método Split(): Dim Header() As String = "Codigo;Item;Quantidade".Split(";") Abraços, Graymalkin

Você pode gravar o dado no Registro do Windows usando a rotina SaveSetting(). Depois você pode recuperar o mesmo usando a função GetSetting(). E para comparar datas basta usar os operadores =, < ou >. E somar um valor inteiro à uma data incrementa seus dias: d = CDate("10/05/2007") d1 = d + 7 MsgBox d & " -> " & d1 Certo? ;) Graymalkin

E antes de chamar essa função? Aliás, porque você não cria uma rotina (Sub) ao invés de uma função (Function) e passa o DataGridView por referência (ByRef)? Public Sub Datagrid(ByRef dgv As DataGridView) ... End Sub Abraços, Graymalkin

Faça um de cada vez. Mas, pra quê você precisa de um DataReader e de um DataSet? Geralmente, ou se usa um OU outro. Abraços, Graymalkin

Bem..que eu saiba sim....DadosAtendimentos está apontando pro registro esperado... e TempoDispAtend é do tipo TEXT E se você fizer... MsgBox DadosAtendimentos.Recordset.Fields("TempoDispAtend").Value ... não aparece o valor do campo? Abraços, Graymalkin

Bom, creio que você poderia colocar esta linha de comando em um arquivo de inicialização do shell (como no bash.rc). Abraços, Graymalkin

Você deveria declarar o tipo que você realmente vai usar (que é DataGridView e não FormControl). Abraços, Graymalkin

A propriedade KeyPreview do form está ligada? Abraços, Graymalkin

Que eu me lembre, sim. Pelo menos a coluna toda é ajustada de acordo com a maior célula. Não é isso que você quer? Abraços, Graymalkin

Eu tenho usado isso em um sistema novo que criei e até agora não tive problemas. Abraços, Graymalkin

Sim, tem como também. Só que é bem mais simples somente mudar os títulos das colunas ao invés de criar coluna por coluna. Sim, veja a propriedade AutoSizeColumns. Abraços, Graymalkin

Cara... eu já postei uma solução simples aqui mesmo... veja este post: http://scriptbrasil.com.br/forum/index.php...st&p=425749 Então, não é mais fácil alterar o título das colunas? Abraços, Graymalkin

O nome da classe pública do arquivo "Adicao.java" é *exatamente* o nome "Adicao"? Abraços, Graymalkin

Você fica abrindo e fechando a conexão a cada 1 minuto? Abraços, Graymalkin

Primeiro, você tem certeza de que DadosAtendimento está apontando para o registro correto/esperado? Segundo, qual o tipo de TempoDispAtend? Abraços, Graymalkin

Requisite apenas o código e o nome, oras: SELECT Código, Nome FROM AQCAD; Graymalkin

Ué? Isso é o que acontece quando se faz... DataGridView1.DataSource = DS.Tables(0) ... não? :blink: Graymalkin

O que você quer fazer? Alterar os textos de cabeçalho dos campos na DataGridView? Porque isso aí que você fez não tem nada a ver com a DataGridView. Você deveria fazer algo assim: DataGridView1.Columns(0).HeaderText = "Código:" DataGridView1.Columns(1).HeaderText = "Nome:" Abraços, Graymalkin

Na propriedade Columns você vai ter uma coleção das colunas existentes. Basta alterar a propriedade HeaderText da respectiva coluna para alterar o cabeçalho. Abraços, Graymalkin

Como assim? :unsure: Ele só vai pegar o que você especificar na SQL, ou seja, o resultado da consulta. Se você quer apenas alguns registros, de acordo com uma condição, use a cláusula WHERE para filtrá-los. Abraços, Graymalkin

Experimente usar VBA.Format ao invés de só Format e veja se funciona. Abraços, Graymalkin