jclaveria

A ver si te vale Public Function SystemDirectory() As String Dim buffer As String * 512, length As Integer length = GetSystemDirectory(buffer, Len(buffer)) SystemDirectory = Left$(buffer, length) End Function

Si estas trabajando con visual, tendrás que establecer una conexión vía odbc con la base de datos. Luego estableces la conexión con tu bd (ojea google para tu tipo de bd y verás como) Luego habilitas un recordset para conectarte a la tabla que...

No te hace falta pasársela al botón click Declárate la variable Hora de forma global en el modulo para que veas el valor de la misma desde el botón aceptar. Seguramente la variable la tendrás local en el método validar Prueba y ya me dirás

Si entras en Inicio-ConfiguracionImpresoras y abres el menu archivo deberías tener una opción de propiedades del servidor. Ahí te puedes definir tamaños personalizados de papel y luego asociarselos a la impresora que quieras. Pruébalo y ya me dirás

Vamos a ver, para eso lo primero deberías controlarlo en la base de datos, así si el código falla la base de datos no lo hará y evitarás que se cuele algún duplicado. Para el textbox solo se me ocurre que al perder el foco del mismo hagas una...

Pues ya lo siento, yo también tuve que hacerlo y lo hice con el datareport Es un tanto "farragoso" pero salen bien. Ya lo siento

Siento la tardanza pero he andado liado Ponlo de esta otra forma y verás como si te lo hace For Each c In Selection buscar = Format(fecha1, "ddmmyy") If InStr(4, c.FormulaLocal, buscar, 1) <> 0 Then c.Replace What:="[rp" & Format(fecha1, "ddmmyy"),...

Tal y como lo tienes no puedes colocar un contador, pues el método Replace se encarga el solo de reemplazar los valores y no te permite controlar cuales ni cuantos. El reemplaza y punto. La forma que tendrías de hacerlo es programando tu propia...

Yo lo tengo so.lucionado así... strSQL = "SELECT * FROM Contraseñas WHERE Contraseña = '" & txtContraseña & "'" rstContraseñas.Open strSQL, DataEnvironment1.prevendat, adOpenDynamic, adLockOptimistic If rstContraseñas.RecordCount > 0 Then .... lo que...

Date cuenta que no puedes estar a la vez al principio del recordset (BOF) y al final del mismo (EOF) o estas al principio o estas al final.