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