Tenho que colocar esse código em algum evento do relatório para que na hora da impressão saia devidamente formatado. Como agora temos esse problema de em alguns lugares ter 8 ou 9 números no tel e os RGs do Brasil não terem um padrão, tive que fazer esse esquema.
Então, no form fica perfeito, mas na hora de passar para o rel não funfa, pois ele busca os valores da tabela. Tentei colocar esse código no Report_Load mas não funcionou. Tem algum outro evento que possa funcionar, pois, ele imprime direto, sem visualização.
Dim NC1, NC2, NC3, NC4, NC5, NC6
NC1 = Len(txtTEL1)
If NC1 = 10 Then
Me.txtTEL1.Format = "(@@) @@@@-@@@@"
ElseIf NC1 = 11 Then
Me.txtTEL1.Format = "(@@) @@@@@-@@@@"
End If
NC2 = Len(txtTEL2)
If NC2 = 10 Then
Me.txtTEL2.Format = "(@@) @@@@-@@@@"
ElseIf NC2 = 11 Then
Me.txtTEL2.Format = "(@@) @@@@@-@@@@"
End If
NC3 = Len(txtTEL3)
If NC3 = 10 Then
Me.txtTEL3.Format = "(@@) @@@@-@@@@"
ElseIf NC3 = 11 Then
Me.txtTEL3.Format = "(@@) @@@@@-@@@@"
End If
NC4 = Len(txtTEL4)
If NC4 = 10 Then
Me.txtTEL4.Format = "(@@) @@@@-@@@@"
ElseIf NC4 = 11 Then
Me.txtTEL4.Format = "(@@) @@@@@-@@@@"
End If
NC5 = Len(txtRGMAE)
Select Case NC5
Case 7
Me.txtRGMAE.Format = "@@@.@@@-@"
Case 8
Me.txtRGMAE.Format = "@.@@@.@@@-@"
Case 9
Me.txtRGMAE.Format = "@@.@@@.@@@-@"
Case 10
Me.txtRGMAE.Format = "@@@.@@@.@@@-@"
End Select
NC6 = Len(txtRGPAI)
Select Case NC6
Case 7
Me.txtRGPAI.Format = "@@@.@@@-@"
Case 8
Me.txtRGPAI.Format = "@.@@@.@@@-@"
Case 9
Me.txtRGPAI.Format = "@@.@@@.@@@-@"
Case 10
Me.txtRGPAI.Format = "@@@.@@@.@@@-@"
End Select
End Sub
Além disso, tenho outro form(CLM), que abro através do frm Funcionários e à partir dele, abro o Relatório rel_CEM, onde necessito que sejam preenchidos os dados desta forma:
Os campos do cabeçalho (Noe, Reg, Cargo) vem do form Funcionários e os das datas, vem do form CEM, porém, nele há uma escolha através de um Quadro de opções. Se OP = 1, as datas Inicial e Final ficam na Licença Médica no RElatório CEM. Automaticamente os outros campos de Data do rel são preenchidos com "___ /___ / ______".
Da pra fazer isso?
Segue o BD.
Agradeço desde já.
Luiz Carlos Junior.
Então, no form fica perfeito, mas na hora de passar para o rel não funfa, pois ele busca os valores da tabela. Tentei colocar esse código no Report_Load mas não funcionou. Tem algum outro evento que possa funcionar, pois, ele imprime direto, sem visualização.
Dim NC1, NC2, NC3, NC4, NC5, NC6
NC1 = Len(txtTEL1)
If NC1 = 10 Then
Me.txtTEL1.Format = "(@@) @@@@-@@@@"
ElseIf NC1 = 11 Then
Me.txtTEL1.Format = "(@@) @@@@@-@@@@"
End If
NC2 = Len(txtTEL2)
If NC2 = 10 Then
Me.txtTEL2.Format = "(@@) @@@@-@@@@"
ElseIf NC2 = 11 Then
Me.txtTEL2.Format = "(@@) @@@@@-@@@@"
End If
NC3 = Len(txtTEL3)
If NC3 = 10 Then
Me.txtTEL3.Format = "(@@) @@@@-@@@@"
ElseIf NC3 = 11 Then
Me.txtTEL3.Format = "(@@) @@@@@-@@@@"
End If
NC4 = Len(txtTEL4)
If NC4 = 10 Then
Me.txtTEL4.Format = "(@@) @@@@-@@@@"
ElseIf NC4 = 11 Then
Me.txtTEL4.Format = "(@@) @@@@@-@@@@"
End If
NC5 = Len(txtRGMAE)
Select Case NC5
Case 7
Me.txtRGMAE.Format = "@@@.@@@-@"
Case 8
Me.txtRGMAE.Format = "@.@@@.@@@-@"
Case 9
Me.txtRGMAE.Format = "@@.@@@.@@@-@"
Case 10
Me.txtRGMAE.Format = "@@@.@@@.@@@-@"
End Select
NC6 = Len(txtRGPAI)
Select Case NC6
Case 7
Me.txtRGPAI.Format = "@@@.@@@-@"
Case 8
Me.txtRGPAI.Format = "@.@@@.@@@-@"
Case 9
Me.txtRGPAI.Format = "@@.@@@.@@@-@"
Case 10
Me.txtRGPAI.Format = "@@@.@@@.@@@-@"
End Select
End Sub
Além disso, tenho outro form(CLM), que abro através do frm Funcionários e à partir dele, abro o Relatório rel_CEM, onde necessito que sejam preenchidos os dados desta forma:
Os campos do cabeçalho (Noe, Reg, Cargo) vem do form Funcionários e os das datas, vem do form CEM, porém, nele há uma escolha através de um Quadro de opções. Se OP = 1, as datas Inicial e Final ficam na Licença Médica no RElatório CEM. Automaticamente os outros campos de Data do rel são preenchidos com "___ /___ / ______".
Da pra fazer isso?
Segue o BD.
Agradeço desde já.
Luiz Carlos Junior.