|
|
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 - Shiquilla
Páginas: 1 ... 3 4 [5] 6 7 ... 9
101
« en: Sábado 2 de Julio de 2005, 21:04 »
Vaya, gracias Juez y JuanK... no sé qué decir...  . Sólo añadiré que todos los que dicen que son feos.. será por su perpepción del prototipo de belleza, todos somos muy lindos si mirásemos desde otro punto de vista. Saludos, 
102
« en: Sábado 2 de Julio de 2005, 20:19 »
Bueno, yo también me voy a presentar al foro y así entrar un poquito en sociedad.. aquí está mi foto, encantá de conoceros a todos.  Saludos,
103
« en: Sábado 2 de Julio de 2005, 20:04 »
Mi CI es de 122 
104
« en: Sábado 2 de Julio de 2005, 19:17 »
Buenas, el error simplemente está en la función Mid. Mid(Frase, Inicio, Cuantos)
en vez de Mid(Frase, 1, h)Private Sub CmdCalc_Click() Dim iCont As Integer Dim sFrase As String Dim x, h, w x = Len(TxtWord.Text) sFrase = TxtWord.Text For h = 1 To x w = Mid(sFrase, h, 1) If w = " " Then iCont = iCont + 1 End If Next h MsgBox iCont End Sub
Saludos, PD: Juanolo se me ha adelantao por 1 minuto xD. Bueno, aún así lo dejo..
105
« en: Martes 28 de Junio de 2005, 11:51 »
Creo que entendí la pregunta, bueno, sería algo así: Option Explicit Private goConexion As ADODB.Connection Public Property Get goBD() As Connection Dim lsCadenaConexion As String lsCadenaConexion = "Driver={Microsoft Access Driver (*.mdb)};" lsCadenaConexion = lsCadenaConexion & "Dbq=" & App.Path & "\BaseDeDatos.mdb;" lsCadenaConexion = lsCadenaConexion & "Uid=Admin; Pwd=" If goConexion Is Nothing Then Set goConexion = New ADODB.Connection goConexion.Open lsCadenaConexion goConexion.CommandTimeout = 30 Else If goConexion.State = 0 Then goConexion.Open lsCadenaConexion End If Set goBD = goConexion End Property Private Sub Command1_Click() If Trim(lblEtiqueta.Caption) <> "" Then msGenerarConsulta 'Aquí es dónde llamaríamos a que consulte en la BD End If End Sub Private Sub msGenerarConsulta() Dim lsSQL As String Dim loRS As ADODB.Recordset text1.Text = "" text2.Text = "" text3.Text = "" text4.Text = "" text5.Text = "" lsSQL = "SELECT * FROM Tabla " lsSQL = lsSQL & " WHERE Campo = '" & lblEtiqueta.Caption & "'" Set loRS = New ADODB.Recordset loRS.Open lsSQL, goBD, adOpenKeyset, adLockOptimistic If Not loRS.EOF Then text1.Text = IIf(Not IsNull(loRS!Campo1), loRS!Campo1, "") text2.Text = IIf(Not IsNull(loRS!Campo2), loRS!Campo2, "") text3.Text = IIf(Not IsNull(loRS!Campo3), loRS!Campo3, "") text4.Text = IIf(Not IsNull(loRS!Campo4), loRS!Campo4, "") text5.Text = IIf(Not IsNull(loRS!Campo5), loRS!Campo5, "") End If If loRS.State = 1 Then loRS.Close Set loRS = Nothing End Sub
Espero que te sirva. PD: Acabo de leer mejor.. y creo que preguntabas cómo sería esto programando con Access... bueno, yo lo dejo aquí, aunque esto sería desde VB. Saludos,
106
« en: Martes 28 de Junio de 2005, 11:38 »
Para abrir una base de datos: (Este ejemplo es con Access) Dim lsCadenaConexion As String Dim goConexion As ADODB.Connection lsCadenaConexion = "Driver={Microsoft Access Driver (*.mdb)};" lsCadenaConexion = lsCadenaConexion & "Dbq=" & App.Path & "\BaseDeDatos.mdb;" lsCadenaConexion = lsCadenaConexion & "Uid=Admin; Pwd=" Set goConexion = New ADODB.Connection goConexion.CommandTimeout = 30 goConexion.Open lsCadenaConexion
Para abrir un RecordSet a la base de datos: Dim loRS As ADODB.Recordset Set loRS = New ADODB.Recordset loRS.Open "SELECT * FROM Tabla", goConexion, adOpenKeyset, adLockOptimistic With loRS Do While Not .EOF 'Operaciones que haya que hacer .MoveNext Loop If .State = 1 Then .Close End With Set loRS = Nothing
Saludos,
107
« en: Martes 28 de Junio de 2005, 11:18 »
No entiendo muy bien qué es lo que quieres, si coger el siguiente código para el siguiente elemento o recorrer una tabla. Según el código con eso lo que estás haciendo es recorrer la tabla.
108
« en: Miércoles 22 de Junio de 2005, 10:55 »
gabperez, para insertar imágenes, en las propiedades de la ListView, asigna como lista de imágenes tu ImageList (para hacer esto, pulsa botón derecho encima de la ListView y dale a propiedades). Para insertar imágenes en una ListView hay dos formas: 1. Si lo quieres en la primera columna: Dim loItem As ListItem lsvLista.ListItems.Clear Set loItem = lsvLista.ListItems.Add loItem.Text = "Prueba" loItem.SubItems(1) = "De ListView" loItem.SmallIcon = "pausa" 'Nombre de la imagen de la ImageList loItem.Selected = False
2. Si la imagen la quieres insertar dentro de la lista pero en otra columna que no sea la primera: Dim loItem As ListItem lsvLista.ListItems.Clear Set loItem = lsvLista.ListItems.Add loItem.Text = "Prueba" loItem.SubItems(1) = "De ListView" loItem.ListSubItems(1).ReportIcon = "pausa" 'Nombre de la imagen de la ImageList loItem.Selected = False
Saludos,
109
« en: Miércoles 15 de Junio de 2005, 15:03 »
Os adjunto un programita que te da las 3 series:
Lógico
Fábrica
Físico
La única pega es que tanto en las series de Fábrica como la Física no sé identificar de qué disco duro es, pero bueno...¿algo es algo no?
Espero que os sirva de ayuda...
Saludos,
PD: El código no es mio.
110
« en: Miércoles 8 de Junio de 2005, 16:32 »
Para crear DSN: --Módulo para configurar ODBC (Guardalo en un módulo todo este código) Option Explicit ' ---------------------------------------------------------- ' ODBC API Declarations ' ---------------------------------------------------------- ' basic ODBC Declares Declare Function SQLAllocEnv Lib "odbc32.dll" (env As Long) As Integer Declare Function SQLFreeEnv Lib "odbc32.dll" (ByVal env As Long) As Integer Declare Function SQLAllocConnect Lib "odbc32.dll" (ByVal env As Long, _ hDbc As Long) As Integer Declare Function SQLConnect Lib "odbc32.dll" (ByVal hDbc As Long, _ ByVal Server As String, ByVal serverlen As Integer, _ ByVal uid As String, ByVal uidlen As Integer, ByVal pwd As String, _ ByVal pwdlen As Integer) As Integer Declare Function SQLFreeConnect Lib "odbc32.dll" (ByVal hDbc As Long) _ As Integer Declare Function SQLDisconnect Lib "odbc32.dll" (ByVal hDbc As Long) _ As Integer Declare Function SQLAllocStmt Lib "odbc32.dll" (ByVal hDbc As Long, _ hStmt As Long) As Integer Declare Function SQLFreeStmt Lib "odbc32.dll" (ByVal hStmt As Long, _ ByVal EndOption As Integer) As Integer Declare Function SQLExecDirect Lib "odbc32.dll" (ByVal hStmt As Long, _ ByVal sqlString As String, ByVal sqlstrlen As Long) As Integer Declare Function SQLNumResultCols Lib "odbc32.dll" (ByVal hStmt As Long, _ NumCols As Integer) As Integer Declare Function SQLFetch Lib "odbc32.dll" (ByVal hStmt As Long) As Integer Declare Function SQLGetData Lib "odbc32.dll" (ByVal hStmt As Long, _ ByVal Col As Integer, ByVal wConvType As Integer, ByVal lpbBuf As String, _ ByVal dwbuflen As Long, lpcbout As Long) As Integer Declare Function sqlError Lib "odbc32.dll" Alias "SQLError" (ByVal env As _ Long, ByVal hDbc As Long, ByVal hStmt As Long, ByVal SQLState As _ String, NativeError As Long, ByVal Buffer As String, ByVal Buflen As _ Integer, OutLen As Integer) As Integer Declare Function SQLSetConnectOption Lib "odbc32.dll" (ByVal hDbc&, _ ByVal fOption%, ByVal vParam&) As Integer Declare Function SQLSetStmtOption Lib "odbc32.dll" (ByVal hStmt&, _ ByVal fOption%, ByVal vParam&) As Integer ' misc Constants Public Const sqlChar = 1 Public Const sqlMaxMsgLen = 512 Public Const sqlFetchNext = 1 Public Const sqlFetchFirst = 2 Public Const sqlStillExecuting = 2 Public Const sqlODBCCursors = 110 Public Const sqlConcurrency = 7 Public Const sqlCursorType = 6 ' -- ODBC Commands Public Const ODBC_ADD_DSN = 1& Public Const ODBC_CONFIG_DSN = 2& Public Const ODBC_REMOVE_DSN = 3& Public Const ODBC_ADD_SYS_DSN = 4& Public Const ODBC_CONFIG_SYS_DSN = 5& Public Const ODBC_REMOVE_SYS_DSN = 6& Public Const ODBC_REMOVE_DEFAULT_DSN = 7& ' -- ODBC Error Codes Public Const ODBC_ERROR_GENERAL_ERR = 1 Public Const ODBC_ERROR_INVALID_BUFF_LEN = 2 Public Const ODBC_ERROR_INVALID_HWND = 3 Public Const ODBC_ERROR_INVALID_STR = 4 Public Const ODBC_ERROR_INVALID_REQUEST_TYPE = 5 Public Const ODBC_ERROR_COMPONENT_NOT_FOUND = 6 Public Const ODBC_ERROR_INVALID_NAME = 7 Public Const ODBC_ERROR_INVALID_KEYWORD_VALUE = 8 Public Const ODBC_ERROR_INVALID_DSN = 9 Public Const ODBC_ERROR_INVALID_INF = 10 Public Const ODBC_ERROR_REQUEST_FAILED = 11 Public Const ODBC_ERROR_INVALID_PATH = 12 Public Const ODBC_ERROR_LOAD_LIB_FAILED = 13 Public Const ODBC_ERROR_INVALID_PARAM_SEQUENCE = 14 Public Const ODBC_ERROR_INVALID_LOG_FILE = 15 Public Const ODBC_ERROR_USER_CANCELED = 16 Public Const ODBC_ERROR_USAGE_UPDATE_FAILED = 17 Public Const ODBC_ERROR_CREATE_DSN_FAILED = 18 Public Const ODBC_ERROR_WRITING_SYSINFO_FAILED = 19 Public Const ODBC_ERROR_REMOVE_DSN_FAILED = 20 Public Const ODBC_ERROR_OUT_OF_MEM = 21 Public Const ODBC_ERROR_OUTPUT_STRING_TRUNCATED = 22 'API Command to create a Data Source Name, not used in this example Public Declare Function SQLCreateDataSource Lib "odbccp32.dll" (ByVal hwnd&, ByVal lpszDS$) As Boolean 'API to modify/Edit/Create a Data Source Name Public Declare Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwnd As Long, ByVal fRequest As Integer, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Boolean
Esto sería para crear el ODBC, pon esto en tu formulario: Public Sub Form_Load() ObtenerListadoServidores End Sub Private Sub ObtenerListadoServidores() Dim ListaServers As NameList Dim i As Integer Set oSQLServerApp = New SQLDMO.Application Set ListaServers = oSQLServerApp.ListAvailableSQLServers ' For i = 1 To ListaServers.Count cbSQLServers.AddItem ListaServers.Item(i) Next If cbSQLServers.ListCount = 1 Then cbSQLServers.ListIndex = 0 Else cbSQLServers.ListIndex = -1 End If Set ListaServers = Nothing End Sub Private Sub Command1_Click() GenerarODBC End Sub Private Sub GenerarODBC() Dim DSN As String Dim Server As String Dim Address As String Dim Database As String Dim Description As String Dim Security As String Dim SqlDriver As String Dim SQLParameter As String If cbSQLServers.ListIndex <> -1 Then Server = "SERVER=" & Trim(cbSQLServers.List(cbSQLServers.ListIndex)) If cbSQLServers.ListIndex <> -1 Then Address = "ADDRESS=" & Trim(cbSQLServers.List(cbSQLServers.ListIndex)) DSN = "DSN=NombeODBC" Database = "DATABASE=BaseDeDatos" Description = "DESCRIPTION=DSN de Prueba" 'Descripcion del ODBC Security = "NETWORK=dbmssocn" SqlDriver = "SQL Server" SQLParameter = DSN & vbNullChar & Server & vbNullChar & Address & vbNullChar & Security & vbNullChar & Database & vbNullChar & Description & vbNullChar & vbNullChar SQLConfigDataSource 0&, ODBC_ADD_SYS_DSN, SqlDriver, SQLParameter End Sub
Esto sería si lo quieres crear por código el ODBC. Por ejemplo podrías hacer una función de que si no existe el ODBC que lo cree cada vez que entras a la aplicación. Para abrir una conexion utilizando el ODBC sería hacer esto: Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "DSN=NombreODBC; UID=Usuario; PWD=Contraseña;"
Saludos,
111
« en: Miércoles 18 de Mayo de 2005, 20:45 »
Hola Jeremy, no sé si lo he entendido bien pero lo que yo haría sería: 1. Desde VB leer el fichero txt e ir almacenando el texto en una variable. 2. Una vez leida la estructura de la tabla, ejecutar esa consulta en la base de datos (goConexion.Execute vbleTablaTXT) Así ya te generaría la tabla en la base de datos. Si no es esto lo que querías hazmelo saber en el MSN (ya sabes quien soy ) Un saludo, Érika.
112
« en: Martes 12 de Abril de 2005, 08:40 »
Comprueba con el administrador de servicios si el SQL Server Agent está iniciado y si quieres que se inicie siempre activa la casilla 'Iniciar automáticamente con el SO'.
Saludos.
113
« en: Viernes 1 de Abril de 2005, 09:23 »
Te creas una plantilla con marcadores en WORD poníendole marcadores donde los necesites. Para escribir en esos marcadores: Option Explicit Private Sub Form_Load() Dim Word As Object Dim Documento As Object Dim Path As String Dim Archivo As String Dim Existe As String Screen.MousePointer = vbHourglass Path = App.Path & "\Informes\" Archivo = "Plantilla.dot" Existe = Dir(Path & Archivo) If Trim(Existe) <> "" Then Set Word = CreateObject("Word.Application") Set Documento = Word.Documents.Add(Path & Archivo, , , False) Documento.Activate With Documento.Application If IrAMarcador("[MARCADOR]", Documento) Then .Selection.TypeText Text:="EL TEXTO QUE QUIERO" End With Word.Visible = True Word.Windows(Word.ActiveWindow).Caption = "Prueba Marcadores" Documento.Activate Else MsgBox "No se encontró la plantilla de WORD", vbCritical, "Word" End If Screen.MousePointer = vbDefault Set Documento = Nothing Set Word = Nothing End Sub Public Function ExisteMarcador(Marcador As String, Documento As Object) As Boolean Dim TextoDoc As Object With Documento Set TextoDoc = Documento.Content TextoDoc.Find.Execute FindText:=Marcador, Forward:=True ExisteMarcador = (TextoDoc.Find.Found = True) End With End Function Public Function IrAMarcador(Marcador As String, ByVal Documento As Object) As Boolean If ExisteMarcador(Marcador, Documento) Then With Documento.Application .Selection.Find.ClearFormatting With .Selection.Find .Text = Marcador .Replacement.Text = "" .Forward = True .Wrap = 1 .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With .Selection.Find.Execute .Selection.TypeText Text:="" IrAMarcador = True End With Else IrAMarcador = False End If End Function
Adjunto la plantilla de word por si la necesitas. Nota: Para poder modificar una plantilla de WORD pincha con el botón derecho y dale a Abrir, si lo abres haciendo doble click y la modificas no te deja guardarlo en .dot (como plantilla) sino como documento normal. Saludos, Érika
114
« en: Jueves 31 de Marzo de 2005, 19:02 »
Private Sub Form_Load() Dim loWord As Object Set loWord = CreateObject("Word.Application") MsgBox loWord.Version loWord.quit Set loWord = Nothing End Sub
Saludos,
115
« en: Jueves 31 de Marzo de 2005, 08:56 »
Por ejemplo, tienes dos formularios, uno con el botón de imprimir y otro con la forma de mensaje. En el formulario 'Mensaje' te creas una funcion para pasarle parametros y le añades un control Timer Formulario de generacion de excel se llamarán frmGeneraInformeExcel Option Explicit Private msVble1 AS String Private msConsulta1 AS String Private msloQueNecesitesParaGenerarElInforme AS Long Public msEditarPropiedades(vble1 AS String,consulta1 As String,loQueNecesitesParaGenerarElInforme AS Long) 'Asignar las vbles que le pasamos a vbles definidas a nivel de formulario msVble1 = Vble1 msConsulta1 = Consulta1 msloQueNecesitesParaGenerarElInforme = loQueNecesitesParaGenerarElInforme Timer1.Enabled = true Me.Show vbModal End Sub Private Sub Timer1_Timer() Timer1.Enabled = false msGenerarInforme 'Cuando he terminado de generar el informe, cierro el formulario Unload me End Sub Private Sub msGenerarInforme() 'Todo el codigo para generar la hoja excel ' Al final ponemos Excel Visible End Sub
Desde el formulario que tienes el botón imprimir: Private Sub Command1_Click() 'Boton Imprimir frmGeneraInformeExcel.msEditarPropiedades vble1,consulta1,loQueNecesitesParaGenerarElInforme End Sub
Si no lo entiendes te mando un ejemplo con un proyecto VB6. Espero que te sirva de ayuda. Saludos, Érika.
116
« en: Miércoles 30 de Marzo de 2005, 19:19 »
Simplemente, todo el proceso que haces para generar el archivo Excel mételo en un formulario con la propiedad BorderStyle del formulario a '0 - None'.
La apariencia del formulario la haces como si fuera un mensaje y ya está. Cuando hayas terminado de rellenar la hoja Excel, lo pones visible y cierras el formulario.
Saludos,
Érika.
117
« en: Miércoles 6 de Octubre de 2004, 17:21 »
datPrimaryRS.RecordSource = "Select Sum([Venta]) As Suma From MiTabla Where [Origen]='" & txtOrigen & "' AND [Destino]='" & txtDestino & "' AND [Venta]=" & CDBL(txtVenta) & " AND [Lugar]=" & CDbl(txtLugar)
Saludos.
118
« en: Martes 5 de Octubre de 2004, 23:38 »
Buenas, el ejemplo que te pongo yo llamo a un informe que tiene 5 tablas, y es para sacar la factura, si algo no entiendes me dices: Option Explicit Private crApp As New CRAXDRT.Application Private crReport As New CRAXDRT.Report Private rs_Facturas As New ADODB.Recordset Private rs_Clientes As New ADODB.Recordset Private rs_Marcas As New ADODB.Recordset Private rs_Movimien As New ADODB.Recordset Private rs_Compania As New ADODB.Recordset Private Sub Form_Load() On Error GoTo Errores Screen.MousePointer = vbHourglass 'Preparo el informe PrepararInforme crReport.PrintOut True, 1 Screen.MousePointer = vbDefault 'Cierro los recordset If rs_Clientes.State = 1 Then rs_Clientes.Close If rs_Compania.State = 1 Then rs_Compania.Close If rs_Facturas.State = 1 Then rs_Facturas.Close If rs_Marcas.State = 1 Then rs_Marcas.Close If rs_Movimien.State = 1 Then rs_Movimien.Close Set rs_Clientes = Nothing Set rs_Compania = Nothing Set rs_Facturas = Nothing Set rs_Marcas = Nothing Set rs_Movimien = Nothing Set crReport = Nothing Exit Sub Errores: Select Case Err.Number Case -2147467261 Resume Next Case Else Screen.MousePointer = vbDefault MsgBox Err.Description, vbCritical + vbOKOnly Unload Me End Select End Sub Private Sub PrepararInforme() On Error GoTo ErrHandler Set crReport = crApp.OpenReport(App.Path & "\Informes\Factura.rpt", 1) crReport.DiscardSavedData Dim SQL As String 'SQL Tablas Clientes SQL = "SELECT * FROM Clientes WHERE Entrada = " & CLng(Entrada) rs_Clientes.Open SQL, cn, adOpenDynamic, adLockReadOnly 'SQL Tabla Compañías SQL = "SELECT * FROM Compania WHERE Codigo_Compania = '" & rs_Clientes![Compania_Seguro] & "'" rs_Compania.Open SQL, cn, adOpenDynamic, adLockReadOnly 'SQL Tabla Facturas SQL = "SELECT * FROM Facturas WHERE Entrada = " & CLng(Entrada) & " ORDER BY Importe" rs_Facturas.Open SQL, cn, adOpenDynamic, adLockReadOnly 'SQL Tablas Marcas SQL = "SELECT * FROM Marcas WHERE Marcas.Marca = '" & rs_Clientes![Vehiculo] & "'" rs_Marcas.Open SQL, cn, adOpenDynamic, adLockReadOnly 'SQL Tablas Movimien SQL = "SELECT * FROM Movimien WHERE Entrada = " & CLng(Entrada) & " ORDER BY Tipo_Movimiento DESC" rs_Movimien.Open SQL, cn, adOpenDynamic, adLockReadOnly crReport.Database.Tables(1).SetDataSource rs_Clientes crReport.Database.Tables(2).SetDataSource rs_Movimien crReport.Database.Tables(3).SetDataSource rs_Facturas crReport.Database.Tables(4).SetDataSource rs_Compania crReport.Database.Tables(5).SetDataSource rs_Marcas Exit Sub ErrHandler: If Err.Number = -2147206461 Then MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", _ vbCritical + vbOKOnly Else MsgBox Err.Description, vbCritical + vbOKOnly Unload Me End If Screen.MousePointer = vbDefault End Sub
Espero que te sirva de ayuda, saludos.
119
« en: Martes 5 de Octubre de 2004, 17:30 »
oReporte.Database.Tables(1).SetDataSource = rs_Pedido oReporte.Database.Tables(2).SetDataSource = rs_Pedido_Lineas ... .. .
Y así con todas las tablas que tenga el informe. PD: Ahora no puedo postear un ejemplo, cuando llegue a casa lo posteo Saludos.
120
« en: Lunes 4 de Octubre de 2004, 12:02 »
Buenas, yo también deseo una cuenta GMail. Mi correo es erikapg_18 arroba hotmail.com.
Muchísimas gracias vradok!
121
« en: Jueves 30 de Septiembre de 2004, 12:14 »
Buenas a todos, necesito poder interactuar con una Base de Datos alojada en un servidor WEB. (Cuando me refiero a poder interactuar me refiero a hacer lecturas,modificaciones e inserciones en la BBDD). El problema que tengo es que no sé cómo conectar, he estado probando los controles Remote Data Control pero no soy capaz de realizar la conexión.
¿Alguien podría ayudarme? Muchísimas gracias.
Saludos.
122
« en: Miércoles 29 de Septiembre de 2004, 20:48 »
Contador = 0 Private Sub cmdOK_Click() If txtUserName <> "" And txtPassword <> "" Then If Contador <= 1 Then If txtUserName = "Admin" And txtPassword = "Password" Then LoginSucceeded = True Timer1.Enabled = False Contador = 0 frm2.Show Unload Me Else MsgBox "Clave de acceso o Usuario incorrecto", vbCritical, "Login" txtUserName.SetFocus SendKeys "{Home}+{End}" Contador = Contador + 1 End If Else Mensaje = MsgBox("Acceso denegado", vbCritical, "Login") End End If End If End Sub
Saludos.
123
« en: Miércoles 29 de Septiembre de 2004, 14:40 »
El único error que veo es el del IF. Si no especificas más no se puede ayudar. Contador = 0 Private Sub cmdOK_Click() If Contador <= 1 Then If txtUserName = "Admin" And txtPassword = "Password" Then LoginSucceeded = True Timer1.Enabled = False Contador = 0 frm2.Show Unload Me Else MsgBox "Clave de acceso o Usuario incorrecto", vbCritical, "Login" txtUserName.SetFocus SendKeys "{Home}+{End}" Contador = Contador + 1 End If Else Mensaje = MsgBox("Acceso denegado", vbCritical, "Login") End End If End Sub
Saludos.
124
« en: Jueves 16 de Septiembre de 2004, 08:52 »
Desde internet no... pero en programas P2P lo tienes para descargar.
Saludos.
125
« en: Miércoles 15 de Septiembre de 2004, 17:45 »
Se puede pasar el número a String e ir añadiendo al final de la cadena de texto tantos 0 como quieras, luego lo pasas a entero y ya está. ¿Es una solución no? Public Sub Command1_Click() Dim Valor As String Valor = CStr(Text1) For x = 1 To Cint(Text2) ' texto para decirme cuantos ceros a añadir Valor = Valor & "0" Next x Text3 = CLng(Valor) 'Resultado End Sub
Saludos.
Páginas: 1 ... 3 4 [5] 6 7 ... 9
|
|
|
Mostrar Mensajes
