Ander

ops deu errado uma coisa quando eu dito um codigo do cliente não exibe nenhuma messagem

obrigado deu certo

tmb quero que aparece uma messagem se o codigo ou CNPJ do cliente não existir

consegui mas tenho uma outra duvida se se eu quiser colocar alem de inserir o codigo do cliente eu tmb quiser digitar o CNPJ e preencher o campo codigo do cliente e nome do cliente

e tmb está dando esse erro Erro em tempo de execusão 3075 erro de sintaxe (operador faltando) na expressão de consulta '[codigo_cliente]=' o que será isso poderia me ajudar

ok pus esse codigo Me.Nome_Cliente.Value = DLookup("Nome_Cliente", "Clientes", "[Codigo_Cliente]=" & Codigo_Cliente) mas quando por exemplo eu apago o codigo e dito outro ele não atualiza continua com o nome do cliente antigo

no meu formulario chamado Pedidos tem os campos Codigo_Cliente,Nome_Cliente, CNPJ, eu quero digitar o codigo do cliente ai ele já busca o nome e CNPJ do cliente

Gostaria de saber como faço quando eu digitar o codigo do cliente ele pesquisar e preencher os demais campos como Nome do cliente e CNPJ

mas a onde eu ponho isso no meu cido para não imprimir os null meu codigo Private Sub Command3_Click() On Error Resume Next If Err.Number = 32755 Then Exit Sub ' sai fora da sub e não imprime nada End If Printer.Print Label1 Set rs = Adodc2.Recordset 'só pra encurtar o nome Do While Not rs.EOF Printer.Print rs.Fields("Codigo").Value, rs.Fields("Clientes").Value, rs.Fields("E_Mail").Value, rs.Fields("E_Mail1").Value, rs.Fields("E_Mail2").Value rs.MoveNext Loop Printer.EndDoc End Sub

Fiz a impressão só com tem um problema quando eu imprimino os campos que estão fazio está saindo impreso Null como faço para tirar isso

Estou tendo esse mesmo erro coloquei esse codigo acima mas ainda quando clico em cancelar manda a impressão para impressora meu codigo: Private Sub Command3_Click() On Error Resume Next CommonDialog1.ShowPrinter If Err.Number = 32755 Then 'Realiza o que você quizer quando for cancelado End If Printer.Print Label1 Set rs = Adodc2.Recordset 'só pra encurtar o nome Do While Not rs.EOF Printer.Print rs.Fields("Codigo").Value, rs.Fields("Clientes").Value, rs.Fields("Atividade").Value rs.MoveNext Loop Printer.EndDoc End Sub

obrigado valeu mesmo

Cara me tira uma duvida com eu faço pra exibir esse CommonDialog1.ShowPrinter Me ajude por favor

como eu posso utilizar esse componente Common Dialogs

cara deu certo porem agora eu quero que apareça a caixa de dialoga da impressora estou usando esse codigo porem da um erro Compile error: User-defined type not define esse é o codigo que estou usando no botão imprimir esse codigo: Private Sub Command3_Click() If (MsgBox("Deseja imprimir a consulta?", vbYesNo, "Imprimir Arquivo") = vbYes) Then DisplayPrinterProperties Printer.DeviceName Else Set rs = Adodc2.Recordset 'só pra encurtar o nome Do While Not rs.EOF Printer.Print rs.Fields("Codigo").Value, rs.Fields("Clientes").Value, rs.Fields("Atividade").Value rs.MoveNext Loop End If Printer.EndDoc End Sub E para exibir a caixa da impressora esse codigo: Public Function DisplayPrinterProperties(DeviceName As String) As Boolean 'Exibe a caixa de dialogo da impressora 'PARAMETRO: DeviceName: O nome da impressora padrão 'COMO CHAMAR : DisplayPrinterProperties Printer.DeviceName On Error GoTo ErrorHandler Dim lAns As Long, hPrinter As Long Dim typPD As PRINTER_DEFAULTS typPD.pDatatype = 0 typPD.pDesiredAccess = PRINTER_ALL_ACCESS typPD.pDevMode = 0 lAns = OpenPrinter(Printer.DeviceName, hPrinter, typPD) If lAns <> 0 Then lAns = PrinterProperties(Me.hWnd, hPrinter) DisplayPrinterProperties = lAns <> 0 End If ErrorHandler: If hPrinter <> 0 Then ClosePrinter hPrinter End Function poderia me ajudar novamente obrigado

e ficou o RS= Selecionado

Eu coloquei esse codigo em um botão porem deu o seguinte erro: Compile erro: Variable not define Private Sub Command3_Click() Set rs = Adodc2.Recordset 'só pra encurtar o nome Do While Not rs.EOF Printer.Print rs.Fields("Codigo").Value, rs.Fields("Clientes").Value, rs.Fields("Atividade1").Value rs.MoveNext Loop Printer.EndDoc End Sub

é porque eu estou usando uma pesquisa se eu for selecionar todo o record set que preenche o grid não vai funcionar minha pesquisa segue abaixa o condigo da minha pesquisa Private Sub DataList1_Click() Dim strconsulta As String strconsulta = "Select * from Clientes Where Atividade = '" & DataList1.BoundText & "' OR Atividade2 = '" & DataList1.BoundText & "' OR Atividade3 = '" & DataList1.BoundText & "'" With Adodc2 .RecordSource = strconsulta .Refresh End With With DataGrid1 .ClearFields .ReBind End With Label1.Caption = "Relação de Empresa com o Ramo: " & DataList1.Text End Sub Eu quero Imprimir o resultado desta pesquisa que apracer no meu DataGrid Por Favor me de uma luz

Mas como faço pra susbtituir esse modulo do DataGrid

Pessoal não consigo imprimir o conteuda de uma data grid ele até imprimi porem só a primeira coluna com a primeira celula alguém poderia me ajudar Meu codigo Private Sub Command3_Click() Printer.Print DataGrid1 Pinter.EndDoc End Sub

desculpa acho que te mandei coisa errada Estou tendo um problema com minha consulta quando eu clico em um ramo de atividade que está na minha DataList o o seuinte erro: Complile error: Method or data member not found ai em clico em ok e o BV seleciona a linha onde está escrito .ClearFields alguém poderia me ajudar meu codigo Private Sub DataList1_Click() Dim strconsulta As String strconsulta = "Select * from Clientes Where Atividade = '" & DataList1.BoundText & "' OR Atividade2 = '" & DataList1.BoundText & "' OR Atividade3 = '" & DataList1.BoundText & "'" With Data1 .RecordSource = strconsulta .Refresh End With With MSFlexGrid1 .ClearFields .ReBind End With Label1.Caption = "Relação de Empresa com o Ramo: " & DataList1.Text End Sub

pois quando eu excluo esse numero nunca mais é usado

Olá pessoal Estou tentado fazer um auto numeração o que eu quero quando eu clicar no nemu Incluir o campo codigo vai ser auto numerção não não funciona estou usando base de dados access atraves do ADO Meu codigo é esse Private Sub mnuArquivoIncluir_Click() Txtempresa.SetFocus 'Adciona um novo registro. Clientes.Recordset.AddNew Public Icodigo As Long With rs Icodigo = 0 Dim sSQL As String sSQL = "SELECT MAX(Codigo) as MAxPed From Clientes " Set rs = cn.Execute(sSQL) If Not IsNull(rs!MaxPed) Then Form1.Icodigo = Format(Val(rs!MaxPed + 1), "0000") txtCodigo.Text = Format(Icodigo, "0000") Else Form1.Icodigo = Format(Icodigo, "0000") txtCodigo.Text = Format(Icodigo, "0001") End If End With End Sub o que tem de errado poderia me ajudar

sim deu certo mas com eu faço para imprimir o datagrid como resultado da pesquisa

[SIZE=7]faça um modulo e nomeio com API.bas Dentro deste modulo coloque esse codigo 'Todas as variávesi devem ser declaradas. Option Explicit 'Declara uma variável global. Global Combo As String 'Declara as funções de API GetUserName e 'SendMessage que são utilizadas. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'Define constantes públicas. Public Const CB_ERR = -1 Public Const CB_FINDSTRING = &H14C Sub AutoProcura(cbo As ComboBox, KeyAscii As Integer) 'Declara as Variáves sBuffer e lRetVal. Dim sBuffer As String Dim lRetVal As String sBuffer = Left(cbo.Text, cbo.SelStart) & Chr(KeyAscii) lRetVal = SendMessage((cbo.hwnd), CB_FINDSTRING, -1, ByVal sBuffer) 'Verifica se o combo está vazio. 'se não estiver, faz a pesquisa. If lRetVal <> CB_ERR Then cbo.ListIndex = lRetVal cbo.Text = cbo.List(lRetVal) cbo.SelStart = Len(sBuffer) cbo.SelLength = Len(cbo.Text) KeyAscii = 0 End If End Sub <span style='font-size:14pt;line-height:100%'>Depois no seu fomulario de um duplo clique na combobox e coloque este codigo</span> Private Sub DataCombo1_KeyPress(KeyAscii As Integer) 'Executa o Procedimento Passado 'dois parâmetros. AutoProcura cboProcura, KeyAscii End Sub Espero que tenho lhe ajudado