MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Pesquisando o registro atual e imprimi-lo

    Compartilhe

    Amarildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 25/06/2015

    [Resolvido]Pesquisando o registro atual e imprimi-lo

    Mensagem  Amarildo em Qui 02 Jul 2015, 15:39

    Bom Dia, Pessoal

           Tenho criado um formulário, onde possui um botão para imprimir a ficha do funcionário referente ao registro corrente (atual), como não tenho experiencia em access, estou aprendendo e convivendo agora, estou tendo uns probleminhas. Tenho feito esse comando apos clicar no botão imprimir a ficha. Minha dúvida é como que devo proceder na codificação desta linha que esta com a seta (<----), qual campo devo inserir corretamente, o CódigoCliente e da tabela e  T_CodigoCliente do campo do formulário, qual e o correto fazer. Fico no aguardo por suas orientações, grato

    Private Sub Btn_ImprimirFicha_Click()
    DoCmd.RunCommand acCmdSaveRecord 'Salva o Registro Editado
    If MsgBox("Imprimir Registro Atual?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then
      Cancel = True
      Exit Sub
    Else
      Dim stDocName As String
      Dim stRegAtual As String
      stDocName = "RelFichaFuncionario"
      stRegAtual = "[CódigoCliente] =" & Me![T_CodigoCLiente]  <---------
      DoCmd.OpenReport stDocName, acPreview, , stRegAtual
      DoCmd.Maximize
      DoCmd.RunCommand acCmdFitToWindow
      DoCmd.RunCommand acCmdZoom100
      Me.Visible = False
    End If
      DoCmd.GoToRecord , , acNext
    End Sub



    Obs.: Alem dessa possibilidade que tenho inserido acima, existe algum outro meio em que eu possa inserir no proprio relatorio para que seja o registro atual e seja impresso?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9798
    Registrado : 04/11/2009

    Re: [Resolvido]Pesquisando o registro atual e imprimi-lo

    Mensagem  JPaulo em Sex 03 Jul 2015, 11:16

    Ola;

    O comando Private Sub SeuBotão Click, não tem a opção Cancel, deve utuilizar "DoCmd.CancelEvent"

    Se CódigoCliente existe no report e é numerico, então a instrução está correta, mas altere para esta sequencia;

    Código:
    Private Sub Btn_ImprimirFicha_Click()
      Dim stDocName As String
      Dim stRegAtual As String
    DoCmd.RunCommand acCmdSaveRecord 'Salva o Registro Editado
      stDocName = "RelFichaFuncionario"
      stRegAtual = "[CódigoCliente] =" & Me![T_CodigoCLiente]
      
    If MsgBox("Imprimir Registro Atual?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then
      DoCmd.CancelEvent
      Exit Sub
    Else
      DoCmd.OpenReport stDocName, acPreview, , stRegAtual
      DoCmd.Maximize
      DoCmd.RunCommand acCmdFitToWindow
      DoCmd.RunCommand acCmdZoom100
      Me.Visible = False
    End If
      DoCmd.GoToRecord , , acNext
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Amarildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 25/06/2015

    Re: [Resolvido]Pesquisando o registro atual e imprimi-lo

    Mensagem  Amarildo em Sex 03 Jul 2015, 12:26

    Bom Dia, JPaulo

    Fico grato pela atenção e pela cooperação no auxilio do meu aprendizado, esta funcionando perfeitamente, parabéns!


    Nesta mesma Ficha de Cadastro do Funcionário(Relatório), possuo o campo image para receber a foto do funcionário que tenho inserido no formulário(form), este comando abaixo é o que tenho praticado para trazer a foto no Formuário, gostaria de saber como devo proceder para que esta mesma imagem possa ser inserida no relatório desta Ficha de Cadastro do Funcionario(Relatorio). Fico grato pela atenção. Ótimo dia a todos.

    Private Sub BuscaFotoFunc_Click()
    Dim s As String
    s = OpenCommDlg()

    If s <> "" Then
    FotoFunc = s
    FotoFunc_AfterUpdate
    End If
    End Sub



    Private Sub FotoFunc_AfterUpdate()
    Dim s As String
    s = Nz(FotoFunc.Value, "")
    If s <> "" Then s = IIf(Dir(s) = "", "", s)
    On Error Resume Next
    ImagemFunc.Picture = s
    If Err.Number <> 0 Then ImagemFunc.Picture = ""
    On Error GoTo 0
    End Sub



    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9798
    Registrado : 04/11/2009

    Re: [Resolvido]Pesquisando o registro atual e imprimi-lo

    Mensagem  JPaulo em Sex 03 Jul 2015, 14:24

    Obrigado pelo retorno;

    Veja e adapte este exemplo que fiz aqui no forum em 2012;

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Amarildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 25/06/2015

    Re: [Resolvido]Pesquisando o registro atual e imprimi-lo

    Mensagem  Amarildo em Sex 03 Jul 2015, 15:42

    Bom Dia, JPaulo

    Grato pelo enviado o programa, creio que seja esse o método do qual vou precisar usar. Só que como não tenho experiencia, não consegui abrir o programa, quando clico em stop, fecha todo o programa e não consegui visualizar os comandos para que pudesse avaliar de como estar inserindo no meu projeto. Caso possa estar orientando-me nos procedimentos de como habilitar o programa do qual enviou, assim vou poder verificar. Grato

    Att
    Amarildo

    Amarildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 25/06/2015

    Re: [Resolvido]Pesquisando o registro atual e imprimi-lo

    Mensagem  Amarildo em Sab 04 Jul 2015, 00:18

    Boa Noite, JPaulo

    Consegui efetuar a emissão da imagem por outro método do qual encontrei na internet e encontra-se funcionando perfeitamente. Conforme segue abaixo o código.

    Obs.: Caso possa disponibilizar o código fonte do exemplo que havia enviado , gostaria muito, grato

    Private Function GetPathPart() As String
    Dim db As DAO.Database
    Dim strPath As String
    Dim intCounter As Integer

    strPath = "C:\CadFuncionarios\ImageFunc"
    Set db = CurrentDb
    strPath = db.Name
    db.Close
    Set db = Nothing

    For intCounter = Len(strPath) To 1 Step -1
    If Mid$(strPath, intCounter, 1) = "\" Then
    Exit For
    End If
    Next intCounter

    GetPathPart = Left$(strPath, intCounter)

    End Function

    Private Sub Report_Current()

    If Not Me!txtPicture = "" Or Not IsNull(Me!txtPicture) Then
    Me!ImagemFunc.Picture = GetPathPart & Me!txtPicture
    Else
    Me!ImagemFunc.Picture = NoImage
    End If

    exit_Report_Open:
    Exit Sub

    err_Report_Open:
    MsgBox Err.Description
    Resume exit_Report_Open
    End Sub




      Data/hora atual: Dom 20 Maio 2018, 22:47