Codigos QR En ACCES (Formulario-Informe)
Bien necesito la ayuda de todos los expertos interesados en ayudar. Por favor estoy al borde de la desesperación y no se que hacer. Bien les cuento. Tengo una bases de datos nombre, apellido, carné, sexo y cosas asi. Bien ACCES no trae el control Activex de CodeBar. Para colocar codigos de Barra y codigos QR. Por lo que lo tuve que descargar pero es un demo y tengo que comprar la licencia lo cual en mi pais es imposible ya que el dolar aqui no se ve pero ni en fotos. Por lo que tuve que ingeniarmelas de otra manera. Navegando por la web, encontre un SABIO que hizo esto:
1-Descargo la fuente 3OF9. En un Archivo de fuente.
2- Creó un Modulo yal cual escribió esto:
Option Compare Database
'Aqui para Agregar Fuente al Sistema
Private Declare Function AddFontResource _
Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Sub AgregraFuente()
Dim x As Long
x = AddFontResource(CurrentProject.Path & "\3OF9.TTF")
End Sub
3- Al formulario en el evento al Abrir coloca el siguiente procedimiento:
Option Compare Database
Private Sub Comando15_Click()
DoCmd.OpenModule "Mdl_AgregaFuente"
End Sub
Private Sub Form_Open(Cancel As Integer)
AgregraFuente
End Sub
Private Sub Comando16_Click()
On Error GoTo Err_Comando16_Click
DoCmd.GoToRecord , , acNewRec
Exit_Comando16_Click:
Exit Sub
Err_Comando16_Click:
MsgBox Err.Description
Resume Exit_Comando16_Click
End Sub
Private Sub Comando17_Click()
On Error GoTo Err_Comando17_Click
DoCmd.GoToRecord , , acNewRec
Exit_Comando17_Click:
Exit Sub
Err_Comando17_Click:
MsgBox Err.Description
Resume Exit_Comando17_Click
End Sub
Private Sub Comando18_Click()
On Error GoTo Err_Comando18_Click
DoCmd.RunCommand acCmdSaveRecord
Exit_Comando18_Click:
Exit Sub
Err_Comando18_Click:
MsgBox Err.Description
Resume Exit_Comando18_Click
End Sub
Private Sub Comando21_Click()
On Error GoTo Err_Comando21_Click
Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFind
Exit_Comando21_Click:
Exit Sub
Err_Comando21_Click:
MsgBox Err.Description
Resume Exit_Comando21_Click
End Sub
4- Luego al campo que quieres convertir en codigo le agregas la fuente y listo. Facilito.
El archivo se cambia sin complicación.
Este ejercicio funciona excelente. La complicación surge por mi necesidad de utilizar codigo QR.
Ahora que hice yo. Descargue la fuente: QR font tfb
Y realicé el mismo procedemiento que esta arriba solo que lo adapte a la nueva fuente. El codigo se genera bien funcionó convierte el campo que necesito en codigo QR.
El problema es que no me genera un solo codigo por toda la información que esta en el campo si no que me genera un codigo QR por cada Letra o Numero que esta en el campo ver imagen:
Como se podran dar cuenta esto es un problema por que necesito que me genere por todo el contenido del campo un solo codigo. No lo puedo hacer por ID. Por que necesito es el campo de texto. El campo codigo esta asociado al campo (Nombre del Producto) En este caso: coca-cola.
