Access - Problemas con codigo VBA en base de datos

   
Vista:

Problemas con codigo VBA en base de datos

Publicado por Inma (4 intervenciones) el 05/09/2011 07:56:21
Buenos días,

Estoy intentando programar 1 base de datos donde yo ponga un numero y ese numero se me devuelva en 1 codigo de barras, tengo el B-coder 3 ligado a la base de datos me pone los parametro pero no termina de funcionar bien os dejo aqui el codigo y me decis en que me equivoco, gracias estoy bastante perdida.


Function Barcodes()
Dim Total As Long, Chan As Long, I As Long
Dim BCDirectory As String, MyTable As String
Dim MyBarCodeTextField As String, MyBarCodePictureField As String

'Ubicación del B-Coder3
BCDirectory = "C:\B-Coder3"

'Nombre de la Tabla
MyTable = "Codigos"

'Campo que contiene los numeros del codigo de barras
MyBarCodeTextField = "BarCode"

'Nombre del Campo Ole Donde va la imagen del codigo
MyBarCodePictureField = "BarCodePicture"

On Error Resume Next 'Mensaje de Error

'Link para establecer contacto
Chan = DDEInitate("B-Coder", "System")

If Err Then 'Si un error Ocurre, B-Coder No puede funcionar
Err = 0 'Resetea el Error
' Abre B-Coder.
I = Shell(BCDirectory + "\B-Coder.exe", 7)

'Si otro error ocurre entonces sal
If Err Then
Exit Function
'Si no hay nada mas estable y continua
Chan = DDEIninitate("B-coder", "System")
End If

Application.DDDEExecute Chan, "[CODE39]"
Application.DDDEExecute Chan, "[BARDWIDTH=10]"
Application.DDDEExecute Chan, "[BARHEIGHT=0,89]"
Application.DDDEExecute Chan, "[QUIETZONES=ON]"
Application.DDDEExecute Chan, "[FONTSIZE=8]"
Application.DDDEExecute Chan, "[COMMENT=TIENDA 4361]"
Application.DDDEExecute Chan, "[COMMENTALIGN=CENTER]"

DoCmd.OpenTable MyTable, A_NORMAL 'Selecciona nuestra tabla de access

DoCmd.GoToRecord A_TABLE, MyTable, A_FIRST

For x = 1 To Total 'Loop por cada registro
'Selecciona el mensaje en el campo de texto
DoCmd.GoToControl MyBarCodeTextField
DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, A_COPY, , A_MENU_VER20

'Copia al portapapeles , para pasarlo al Bcoder
DDEExecute Chan, "[Paste/Build/Copy]"

'Selecciona la imagen del codigo de barras
DoCmd.GoToControl MyBarCodePictureField
DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, A_PASTE, , A_MENU_VER20

'Copia la imagen del codigo de barras
DoCmd.GoToRecord A_TABLE, MyTable, A_NEXT ' Ves al siguiente
Next 'Inicia el Loop

DDETerminate Chan
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder