Galera, preciso da ajuda de vocês num projeto que estou desenvolvendo aqui para o meu trabalho.
Imaginem a seguinte rotina para cadastrar dados de um CONTRATO:
Private Sub btn_Cadastrar_Click()
Dim lin As Integer
If Range("A3") = "" Then
lin = 3 'meu cabeçalho tem 2 linhas
Else
Range("A1").Select
Selection.End(xlDown).Select
lin = ActiveCell.Row + 1
End If
Sheets("contrato&garantia").Cells(lin, 1).Value = Me.txt_C_Numero.Value & "/" & Me.txt_C_Ano.Value
Sheets("contrato&garantia").Cells(lin, 2).Value = Me.txt_C_Processo.Value
Sheets("contrato&garantia").Cells(lin, 3).Value = Me.txt_C_Beneficiario.Value
Sheets("contrato&garantia").Cells(lin, 4).Value = Me.cbo_C_Modalidade.Value
Sheets("contrato&garantia").Cells(lin, 5).Value = Me.txt_C_Objeto.Value
Sheets("contrato&garantia").Cells(lin, 6).Value = Me.txt_C_Observacao.Value
End Sub
Agora imaginem que este mesmo cotrato possui uma GARANTIA que pode ser incluída depois do cadastro do CONTRATO.
Para isso, no formulário de cadastro de garantia, tem duas TextBox (txt_ReferenteC_Numero, txt_ReferenteC_Ano).
Ao cadastrar a GARANTIA do contrato, preciso de algum código que faça a verificação dessas duas TextBox e salve os dados na mesma linha do contrato referido.
Peço encarecidamente a ajuda dos colegas do fórum. Isso é de muita importância para mim.
DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]
Postado : 06/12/2013 8:40 am