DoCmd.OpenForm "frmBoletos", acNormal, , "IdBoleto = '" & nIdBoleto & "'"
Pesquise aqui no fórum e na internet, alterei de acordo com as pesquisas feitas, mais nada resolveu.
Alguém pode me ajudar?
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Dim rsBoleto As dao.Recordset
Dim nIdBoleto As Long
Dim nConta As Long
Dim novoNumero
If Nz(Me!ListaInquilino, 0) <= 0 Then Exit Sub
If MsgBox("Confirma abertura de boleto para o inquilino " & vbCrLf & vbCrLf & Me!ListaInquilino.Column(2), vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub
Set rsBoleto = CurrentDb.OpenRecordset("tblBoletos")
nConta = DLookup("idconta", "tblContas", "idsenhorio = " & Me.ListaSenhorio & "")
novoNumero = Nz(DMax("bol_nossoNumero", "tblBoletos", "idconta = " & nConta), 0)
rsBoleto.AddNew
nIdBoleto = rsBoleto!IdBoleto
rsBoleto!IdInquilino = Me!ListaInquilino
rsBoleto!IdConta = nConta
rsBoleto!bol_NossoNumero = IIf(novoNumero = 0, DLookup("NossoNumero", "tblContas", "idSenhorio = " & Me!ListaSenhorio) + 1, novoNumero + 1)
rsBoleto.Update
rsBoleto.Close
Set rsBoleto = Nothing
DoCmd.OpenForm "frmBoletos", acNormal, , "IdBoleto = " & nIdBoleto & ""
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.