Pedido a JPAULO

Bom dia!

JPAULO há algum tempo baixei seu BD que criava cartões de natal, se não me engano (me corrija por favor) você não disponibilizaria o mesmo aberto pelo mesmo possuir rotinas avançadas... Bem, eu estou criando um BD para emissão de carteiras funcionais e achei muito interessante a sua função que manipula os textos e imagem no formulário haveria a possibilidade de dispo-la para mim tentar incluir em meu projeto? Desde já agradeço...

Ola bom dia;

Não me lembro desse exemplo.

Mas aqui tem um postado pelo Criquio, veja;

http://maximoaccess.forumeiros.com/repositorio-de-exemplos-ms-access-f7/gerador-de-cartoes-natalinos-t634.htm

Nesse sistema, eu criei uma tabela para armazenar os valores, tais como tamanho e cor de fonte, alem de negrito, itálico e sublinhado por exemplo.
Ao salvar, esses dados são armazenados na tabela e quando um determinado registro que está salvo for aberto, o sistema irá buscar esses dados para abri-lo com a formatação salva. Quanto a imagem é aberta no relatório tambem, ele herda os dados do formulário.
Na tabela de formatação fica mais ou menos assim:

Campo: Valor

Cor: código da cor
Sublinhado: Sim
Negrito: Não
Itálico: Sim

e por aí afora.

Opa bom dia!

Desculpe-me se inverti os créditos do BD rsrsrsrs... E com relação a movimentação dos campos dentro do background tem com dizer algo?

Sds,


Pablo

Não entendi a sua pergunta;

Movimentar os campos de posição dentro de um formulário ?

Não sei se estou me equivocando, mas vi em um exemplo onde era escolhida a posição onde iria aparecer a impressão do campo em referencia ao fundo, digamos o nome da pessoa, se ia ser no canto inferior esquerdo, superior direito, centralizado... Ou seja a posição X,Y do mesmo...

O unico que tenho é esse;

http://dl.dropbox.com/u/771097/MoverCaixaTexto.rar

Uma opção de posicionamento de controles, supondo que você tenha um controle imagem e uma textbox. Primeiro você cria duas combos, uma com valores Topo, Centro e Fundo para alinhamento vertical e outra com valores Esquerda, Centro e Direita para alinhamento horizontal. No evento "Após atualizar" da combo cboVPos você coloca:

If Me.cboVPos.Value = "Topo" Then
Me.txtNome.Top = Me.Imagem.Top
ElseIf me.cboVPos.Value = "Centro" Then
Me.txtNome.Top = (Me.Imagem.Height / 2) + Me.Imagem.Top - (Me.txtNome.Height / 2)
ElseIf Me.cboVPos.Value = "Fundo" Then
Me.txtNome.Top = Me.Imagem.Top + Me.Imagem.Height - Me.txtNome.Height
End If

Para a posição horizontal, basta substuir Height por Width e Top por Left na cboHPos.
Elaborei isso meio meio sem testar direito mas acho que vai dar certo.

Para o relatório, basta inserir os mesmos códigos no evento "Ao carregar", ou "Ao formatar" ou "No atual".

Opa beleza estou anotando tudo!!!

Veja uma outra opção que permite posicionar o texto em qualquer ponto da imagem. Você pode manter os valores Topo, Centro e Fundo, permitindo que outros valores sejam digitados e usados na combo. Pode tambem deixar, alem dessas três opções, mais algumas numéricas e permitindo a inserção de qualquer outro valor menor que o valor máximo da borda de baixo da imagem. Por exemplo:

Topo
Centro
Fundo
250
500
750
1000
1250
1500
1750
2000
2250

Posicionamento vertical:

If Me.cboVPos.Value = "Topo" Then
Me.txtNome.Top = Me.Imagem.Top
ElseIf Me.cboVPos.Value = "Centro" Then
Me.txtNome.Top = (Me.Imagem.Height / 2) + Me.Imagem.Top - (Me.txtNome.Height / 2)
ElseIf Me.cboVPos.Value = "Fundo" Then
Me.txtNome.Top = Me.Imagem.Top + Me.Imagem.Height - Me.txtNome.Height
ElseIf Not IsNumeric(Me.cboVPos) Then
MsgBox "Só são permitidos os valores da lista ou números.", vbOKOnly, "Erro"
ElseIf Me.cboVPos > 2500 Then
MsgBox "O valor máximo permitido é 2500", vbOKOnly, "Erro"
Else
Me.txtNome.Top = Me.Imagem.Top + Me.cboVPos
End If

Posicionamento horizontal:

If Me.cboHPos.Value = "Esquerda" Then
Me.txtNome.Left = Me.Imagem.Left
ElseIf Me.cboHPos.Value = "Centro" Then
Me.txtNome.Left = (Me.Imagem.Width / 2) + Me.Imagem.Left - (Me.txtNome.Width / 2)
ElseIf Me.cboHPos.Value = "Direita" Then
Me.txtNome.Left = Me.Imagem.Left + Me.Imagem.Width - Me.txtNome.Width
ElseIf Not IsNumeric(Me.cboHPos) Then
MsgBox "Só são permitidos os valores da lista ou números.", vbOKOnly, "Erro"
ElseIf Me.cboHPos > 4400 Then
MsgBox "Valor acima do permitido. Insira um número menor que 4401", vbOKOnly, "Erro"
Else
Me.txtNome.Left = Me.Imagem.Left + Me.cboHPos
End If

É só adaptar.