|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - ebolo
1
« en: Martes 31 de Julio de 2007, 23:21 »
Se me olvidado ponerte, para que no te entre en unciclo infinito como dices, dentro del while... wend un rs.movenext.
Saludos.
2
« en: Martes 31 de Julio de 2007, 18:34 »
Hola, si lo que quieres es realizar acciones siempre que exista un registro, usa lo siguiente: ... While not rs.eof 'acciones... wend ...
Para saber el recordcount, prueba a moverte al últimoregistro y luego al primerregistro. ... rs.movelast rs.movefirst msgobx rs.recordcount ...
Y cómo te han comentado, el rs.open no lleva igual, ó te dará error. Saludos.
3
« en: Miércoles 26 de Julio de 2006, 08:38 »
Hola, podrías usar un CommandButton del componente Microsoft Forms 2.0 Objects Library.
Este si se presiona 2 veces se mantiene presionado, aunque creo sepuede configurar(ésto no lo sé cierto).
Un saludo.
4
« en: Sábado 8 de Julio de 2006, 19:55 »
Lo siento Fabrizzio, pero ahora ya sí que me pierdo.  . ¿Lo que quieres hacer es crearte un código para todas los caracteres? Saludos.
5
« en: Viernes 7 de Julio de 2006, 20:50 »
Hola fabrizzio, usa la instrucción Asc(string), te dará el valor ascii de la letra.
Saludos.
6
« en: Sábado 24 de Junio de 2006, 14:39 »
Hola a todos, perdona Jose que me meta por en medio, pero estoy casi seguro que la propiedad .Maxrows no se puede aplicar a un MSFLEXGRID.
Usa la propiedad .ROWS, que te devuelve el nº de filas que tiene el flexgrid.
Un saludo.
7
« en: Martes 28 de Marzo de 2006, 13:26 »
Hola Erick185, es algo tan sencillo como esto: Private Sub Form Load() Dim ctl As Printer For Each ctl In Printers Me.Combo3.AddItem ctl.DeviceName Next Set ctl = Nothing End sub Private Sub Combo3_Click() 'Elegimos impresora SetDefaultPrinter (Me.Combo3.List(Me.Combo3.ListIndex)) End Sub
En un módulo pones: Function SetDefaultPrinter(PrinterName As String) As Boolean Dim wshNetwork As Object ' New wshNetwork On Error GoTo err_SetDefaultPrinter Set wshNetwork = CreateObject("WScript.Network") wshNetwork.SetDefaultPrinter PrinterName Set wshNetwork = Nothing SetDefaultPrinter = True err_SetDefaultPrinter: End Function
Para saber que Impresora tienes por defecto, puedes usar esta función: Function GetDefaultPrinter() As String Dim strDefault As String Dim lngbuf As Long strDefault = String(255, Chr(0)) lngbuf = GetProfileString("Windows", "Device", "", strDefault, Len(strDefault)) If lngbuf > 0 Then GetDefaultPrinter = Left$(strDefault, InStr(strDefault, ",") - 1) Else GetDefaultPrinter = "" End If End Function
Un saludo.
8
« en: Sábado 25 de Marzo de 2006, 14:06 »
Hola kipexs, la verdad que no sé porqué, pero puedes intentar poner un Doevents después del Shell, pero viendo otra vez el código veo que el ocip lo sacas de las comillas en el PUT, con lo que lo estás considerando como una variable y en este caso no es. Private Sub Form_Load() Shell "cmd.exe /c ipconfig /all > C:\ocip.txt", vbHide Doevents Inet1.URL = "ftp://ftp.usuarios.lycos.es" Inet1.UserName = "miuser" Inet1.Password = "mipass" Inet1.Execute , "PUT " & "c:\ocip.txt" End Sub
Un saludo.
9
« en: Miércoles 22 de Marzo de 2006, 18:13 »
Hola jpardo84, en principio puedes abrir directamente el recordset sin la declaración de la database; me explico: Dim RS As DAO.Recordset Set RS = CurrentDb.OpenRecordset("PEDIDOS")
prueba a ver que pasa. También mira en las referencias no tengas puesta la referencias Microsoft Activex Data Objects.... antes que la referencia Microsoft DAO 3... Object Library. Es mejor poner poner primero la referencia DAO, ó declarar siempre a que tipo de referencia se refiere DAO ó ADO. Un saludo. PD.: esta consulta la deberías haber puesto en el foro de VBA.
10
« en: Jueves 2 de Marzo de 2006, 10:33 »
Hola a todos, según tengo entendido eso es lo normal en bd de access, cuando eliminas registros, se eliminan pero el tamaño no disminuye en la misma proporción.
A parte de lo dicho por Del Piero, también lo que puedes hacer es crearte otra bd nueva e importar todo, de esta forma mejora mucho el rendimiento de la misma.
Saludos.
11
« en: Miércoles 1 de Marzo de 2006, 14:58 »
Hola de nuevo, vamos a ver si soy capaz de explicarte un poco el tema. El CB que existe en los productos de las tiendas, supermercado..., la mayoría son EAN13. Hay muchos productos que tienen su propio CB, que está 'reservado' en AECOC ( www.aecoc.es) y es el mismo para todas las tiendas. Normalmente este EAN13 se compone de 12 dígitos + 1dígito control(que lo coloca el soft que imprime etiquetas), que suele ser el código del artículo. Este sistema suele usarse para aquellos productos que se venden por unidad, es decir, siempre valen lo mismo. Pero también tu puedes tener tu propio sistema de codificación, es decir, tu puedes generar tu propio EAN13, que se componga, xej.: de CódigoArtículo(7dígitos) + PVP(5dígitos). Este sistema suele usarse para aquellos productos que se venden, xej., por peso, donde cada paquete tiene un valor. Si vas a un super y te fijas en las etiquetas podrás observar lo que te digo. Normalmente en un Super, todos lo artículos están codificados, bien con el código del proveedor, bien con el código de la tienda, cadena de super, etc. Bueno dicho esto, vamos por partes 1. Como sabran algunos productos como la Coca Cola ya vienen con su
codigo de barras, cuando los pase con el lector de codigo de barras me
mostrara en en el formulario la informacion de la coca cola y mas datos que
necesite? Por ejemplo:
Se esta vendiendo Coca Colas el precio es S/. 1.50 la cantidad es de 2 cuando
pase el lector de codigo de barras me mostrara en el formulario los datos del
producto? y el respectivo precio que tiene o como tomo los datos para
mostrarlos en el formulario porque tiene que mostrar los datos del producto y
el precio y dejar el foco en el campo cantidad para poner la cantidad de
productos para ser ingresado por teclado o no?
Los datos de los artículos deberás tenerlos en una bd. - En una CoCa, normalmente no pone el precio en el CB. Cuando leas el CB, deberás buscar el precio que le corresponde en la bd y la descripción del artículo, así como otros datos que pueden ser necesarios, por ej IVA,... - En otros artículos, donde sí pone el precio en el CB, podrías no buscar el precio, pero deberías buscar descripción,... 2. Asi como hay muchos productos que tienen codigo de barras hay otros que no
supongo que a esos se les tendra que crear su codigo de barras y pegarle una
etiqueta a los productos que no tienen un codigo de barras para poder leerlo
como se hace eso?
Aquellos que no tengan etiqueta, se la debes de poner tú, con lo que quieras que te salga en la etiqueta. Puedes usar el OCX, que dejé para sacar etiquetas por impresora. Tú debes de poner 12 dígitos, normalmente código de artículo + precio total del artículo. 3. Tengo que pegarle a todos los productos tengan o no codigo de barras para
identificar el producto? porque como ya dije en el punto 1 hay productos como
la coca cola que ya tiene su codigo de barras o es suficiente con el que tiene?
Todos los productos deben llevar etiqueta. Todo va a depender de como hagas el sistema. Cuando leas tendrás que diferenciar los que tengan EAN13 de origen de los que les pongas tú. 4. Que formato debo usar en mi codigo de barras el EAN13 u otros?
la coca cola tiene EAN13 en su codigo de barras?
Puedes usar muchos, pero el más comun es el EAN13.
Tengo entendido que un lector de codigo de barras se encarga de identificar un producto
No, el lector no identifica nada, quien identifica es el Código de Barras(CB). Lo que pone en el CB lo podrías escribir tu a mano, en vez de leerlo con el lector, por tanto el lector Sí evita errores. Luego buscas los datos del código leido en la bd. Si necesitas algo más, ó no entiendes algo lo dices. Pero es más fácil de lo que piensas. Un saludo 
12
« en: Martes 28 de Febrero de 2006, 19:56 »
Hola a todos, como bien te ha dicho Sagutxo, sólo tienes que conseguirte un lector que se conecte por PS2, junto al teclado. El lector lo que hace es escribir por tí, lo que lea. El post donde deje el ocx es: http://foros.solocodigo.com/index.php?showtopic=13295y sirve para imprimir EAN13. Un saludo.
13
« en: Viernes 24 de Febrero de 2006, 14:19 »
Hola Radicaled, ya que estas medio empezando con las bd, te aconsejo que aprendas a usar ADO, porque es mucho más rápido el acceso a los datos, tanto cuando tienes que añadir datos como modificarlos. Por ADO la conexión a bd de access la hago de esta forma: Dim cn As ADODB.Connection, rs As ADODB.Recordset Dim consulta as string Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=c:\turuta.mdb" 'Para Abrir un recordset Set rs.ActiveConnection = cn 'para acceder a un campo concreto consulta="SELECT CampoNombre FROM tutabla" rs.Open consulta msgbox rs!CampoNombre 'Usa rs.EOF para saber si No te da resultados una consulta if rs.EOF then rs.close End if 'Para añadir líneas a una tabla consulta="INSERT INTO........." cn.Execute consulta 'Para modificar un dato de una tabla consulta="UPDATE............" cn.Execute consulta 'Cerramos cn y rs rs.close cn.close set rs=nothing set cn=nothing
Debes tener activada la referencia Microsoft Activex Data Objets 2.8 Library (ó la 2.6, 2.7...) Buscaté un manual de SQL, que hay muchos, para ver como se hacen las sentencias de SQL, ó aprovecha, como yo, el que viene con el access, y te será más fácil hacer las SQL.
14
« en: Jueves 16 de Febrero de 2006, 19:08 »
Hola Jonn, te dejo 2 formas distintas de abrir access y formularios, pero que se abra sobre un formulario de VB me da a mí que no va a poder ser. Lo que puedes hacer es que se abra sólo el formulario sin nada más, ni barra de herramientas,..., pero debes configurarlo en la bd de access, más que nada porque es más fácil. Private Sub Command1_Click() Dim dbW As Object Set dbW = GetObject("C:\...\TuMdb.MDB") dbW.DoCmd.OpenForm "TuFormulario" End Sub Private Sub Command2_Click() Dim Oaccess As Object Set Oaccess = CreateObject("access.application.8") Oaccess.OpenCurrentDatabase ""C:\...\TuMdb.MDB" Oaccess.DoCmd.OpenForm "TuFormulario" End Sub
Debes tener activada la Referencia específica del access a abrir: Acces97 - Microsoft Access 8.0 Object Library. Acces2000 - Microsoft Access 9.0 Object Library. AccessXP - Microsoft Access 10.0 Object Library ,creo. Access2003 - Microsoft Access 11.0 Object Library ,creo. Saludos.
15
« en: Viernes 3 de Febrero de 2006, 19:27 »
Hola angel38, prueba a hacer la sql de esta manera:
SQL = "select Format(TimeValue([Hora1]) - TimeValue([Hora2]),"hh:nn:ss") as Duracion from Tabla_horas where Usuario = '1'"
donde supuestamente:
- Hora1 y Hora2, son valores de campos de la tabla Duración.
- El '1' es la identificación del usuario; si quieres que sea con una variable, tiene que ser así:
....... where Usuario='" & tuvariable & "'"
Yo prefiero usar -&- para unir cadenas de texto, y el -+- para sumar valores.
Prueba haber si hay suerte.
Saludos.
16
« en: Jueves 2 de Febrero de 2006, 20:12 »
Hola zetaperu, para colorear toda una columna, debes jugar con las propiedades siguientes:
MSFlexGrid1.SelectionMode=flexSelectionByColumn
MSFlexGrid1.BackColorSel = vbRed
Y si lo que quieres colorear es una celda, usa la propiedad:
MSFlexGrid1.CellBackColor = vbred
claro posicionándote antes en la celda a colorear.
Saludos.
17
« en: Martes 17 de Enero de 2006, 17:56 »
Hola Roll, hazlo de esta forma: Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _
As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) _
As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Sub EsperarShell(sCmd As String)
Dim hShell As Long
Dim hProc As Long
Dim codExit As Long
' ejecutar comando
hShell = Shell(Environ$("Comspec") & " /c " & sCmd, 2)
' esperar a que se complete el proceso
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
Do
GetExitCodeProcess hProc, codExit
DoEvents
Loop While codExit = STILL_ACTIVE
End Sub
Private Sub Command4_Click()
EsperarShell ("ping 192.168.0.15 >C:\uno.txt")
End Sub
La función Esperarshell, no es mía, pero no me acuerdo de donde la conseguí, o sino pondría su origen. A cada uno sus méritos. Saludos.
18
« en: Miércoles 26 de Octubre de 2005, 19:27 »
Hola jodijo5, lo puedes hacer mediante un MSFlexgrid. Hay muchos ejemplo por la red.
Te adjunto uno que tengo guardado, que no sé de donde me lo bajé.
Saludos.
19
« en: Miércoles 26 de Octubre de 2005, 19:13 »
Hola sndr82 te he dejado una solución por mvp. Aquí la tienes: Private Sub Command1_Click() Me.Combo1.Text = Me.Combo1.List(Me.Combo1.ListCount - 1) End Sub Private Sub Form_Load() For q = 1 To 20 Me.Combo1.AddItem q Next q Me.Combo1.AddItem " " End Sub
Saludos.
20
« en: Lunes 17 de Octubre de 2005, 20:43 »
Hola Jamaicol, si miras el form_load, verá donde le da todas las propiedad al richtextbox, lo que hace es que le da un margen derecho de 7.3 cm, bueno miralo... Private Sub Form_Load() 'Crea el formulario con todas las cosillas dentro 'colocacion de el el cuadro de texto 'margen derecho el tamaño del parrafo o columna txtBox.RightMargin = 7.3 'para que vaya centrada la letra txtBox.SelAlignment = 2 'para que tenga margen a la parte izquierda txtBox.SelIndent = 2 mnuEditDeshacer.Enabled = False txtBox.AutoVerbMenu = True If SendMessage(txtBox.hWnd, EM_CANUNDO, 0&, ByVal 0&) Then mnuEditDeshacer.Enabled = True cmdDeshacer.Enabled = mnuEditDeshacer.Enabled End If txtBox.Top = 0 + tbHerramientas.Height txtBox.Left = 0 ''''''''''''''''''''''''''''''''''''''''''''''' txtBox.Font.size = 11 filename = "" fullname = "" Actualizado = True mnuSearchFindnext.Enabled = False start = 1 End Sub
Saludos.
21
« en: Sábado 1 de Octubre de 2005, 14:37 »
Hola de nuevo, por fin lo he sacado después de 1 tarde y una mañana de pruebas. El tema consiste en lanzar el informe siempre como AcViewPreview, luego usar la propiedad PrintOut y Cerrar el informe. Más o menos ésto: IMPRIMIR MÁS DE UNA COPIA DE UN INFORME DESDE VB ------------------------------------------------------------------- Dim obj As Object Dim strReportName As String Set obj = GetObject("RutaBd") strReportName = "NombreInforme" obj.DoCmd.OpenReport strReportName, acViewPreview obj.DoCmd.PrintOut , , , , nºcopias obj.DoCmd.Close acReport, strReportName obj.Quit Set obj = Nothing
Saludos
22
« en: Sábado 1 de Octubre de 2005, 10:53 »
Hola a todos.
Hasta ahora cuando quería lanzar + de 1 copia de un informe de access hacía un bucle y ya estaba. La impresora estaba conectada a PC directamente.
Pero ahora han cambiado la impresora y han puesto una de red, con lo que se ha hecho ligeramente más lenta la impresión, y la gente se pone nerviosa por tener que esperar 5 segundos.
Claro lo ideal sería lanzar un informe y que salieran tantas copias como queremos. Pero no me sale.
Lo que si puedo hacer es lanzar previsualización del informe y ahí que elijan las copias que quieran, pero claro lo quieren más automático.
Si se os ocurre algo os estaré agradecido.
Saludos.
24
« en: Martes 30 de Agosto de 2005, 18:20 »
Hola Usercode, para que te imprima debes finalizar siempre con:
Printer.EndDoc, ó
Printer.NewPage
En tu caso quedaría:
printer.CurrentX = 2
printer.currentY = 10
printer.print "Hola Mundo"
Printer.EndDoc
Mira en la ayuda del VB, que te lo explica bien.
25
« en: Viernes 29 de Julio de 2005, 10:42 »
Hola mindeye, pienso que lo que deberías hacer es abrir el puerto en el momento que va a ser usado y cerrarlo inmediatamente, no mantenerlo abierto siempre, aunque a lo mejor en tu aplicación debas mantenerlo abierto siempre, no sé.
Otra cosa que se me ocurre es cuando te da el error lo cierres (gestión de errores) y vuelvas a abrir con el form que toque.
Saludos no son más que ideas para probar.
Saludos.
|
|
|
Mostrar Mensajes
