SoloCodigo

He interpuesto hoy una encuesta (http://foros.solocodigo.com/viewthread.php?tid=3181), pero al parecer la he redactado inadecuadamente, puesto que no se presenta como tal, sino como un tema normal.

Les ruego, si ello es posible, hagan las oportunas correcciones para que quede en formato de ENCUESTA, o que me informen sobre cómo realizarla para que los miembros puedan expresar su opinión y que sirva para que, si están de acuerdo con mi planteamiento, el foro se haga más "rentable"

Gracias!!!

Esperemos que viendo cómo tienes definida la variable de fecha, con tu database a la vista, podamos solucionar este error.

Saludos

Bueno, creo que tú lo que quieres es definir las propiedades del Data de forma que puedas actualizarlas en tiempo de ejecución. Pues simplemente haces esto:

Data1.Visible = False

SQL = "Select............
Data1.DatabaseName = App.Path & "biblio.mdb"
Data1.RecordSource = SQL
Data1.Refresh

(TE SOBRAN LAS INSTRUCCIONES set mibase Y set puntero)

Saludos y suerte

Pon la siguiente instrucción:

DataEnvironment.Connection1.ConnectionString = "Data Source = " & Ruta (& "DBName.mdb")

Lo que está entre paréntesis sobra si Ruta contiene ya el nombre de la base de datos.

Eso, lógicamente, suponiendo que previamente hayas definido (directamente en el propio objeto DataEnvironment, o también por código, como prefieras):

DataEnvironment.Connection1.ConnectionSource = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False"

Saludos y suerte

Perdona, renegado; veo que tú cometes el mismo error que yo cometía al cambiar a Visual, porque lo tenemos adquirido de los lenguajes que hemos usado anteriormente: la última línea de tu código, en Visual Basic hay que definirla así:

Public SRVSISTEMA As String, CATSISTEMA As String, UsuarioMed As String, PasswordBase As String

porque en otro caso las tres primeras variables se considerarían como Variant.

Saludos

Efectivamente, eso era lo que tú decías; pero ya te digo al inicio de mi respuesta anterior, que eso es tan simple como seleccionar la tabla que quieras borrar y pulsar la tecla [Supr] o [Del]. Te pregunta si estás seguro de eliminar esa tabla...

¿Qués es lo que te pasa? ¿Que no te permite esa opción? ¿No será que tienes confeccionada la tabla con Access 2000 y quieres anularla con Access 97?

Si es eso lo que te ocurre, cierra el fichero y ejecuta en Herramientas, Utilidades de la base de datos, Convertir base de datos, A la versión de Access actual...  Seleccionas la base de datos que quieras modificar y le das el nombre que te presenta por defecto "db1". Abre ese fichero db1 y AHORA YA PUEDES ELIMINAR LAS TABLAS QUE NECESITES.

Luego tendrás que ejecutar el procedimiento contrario: Herramientas, Utilidades de la base de datos, Convertir base de datos, A una versión anterior de Access... Le das el nombre de "db2" y luego renombras este db2 al nombre de tu base de datos.

Supongo que haya quedado claro todo. Porque ¡sólo me faltaba que tampoco fuera éste el problema que tienes!!! En tal caso, explicotéate bien... porque me tienes jugando a las adivinanzas...

Saludos y suerte

Según planteas la pregunta parece que quieres saber cómo borrar una tabla desde el mismo Acces, lo cual es tan simple como seleccionar la tabla y pulsar la tecla [Supr] o [Del].

Como no creo que sea eso lo que te crea dificultad, interpreto que quieras decir borrar la tabla desde Visual Basic.  Si fuera así, te adjunto el ejemplo que proporciona el MSDN de Visual, del que posiblemente no dispongas:

Sub TableDefX()
   Dim dbsNeptuno As Database
   Dim tdfNuevo As TableDef
   Dim tdfBucle As TableDef
   Dim prpBucle As Property

   Set dbsNeptuno = OpenDatabase "Neptuno.mdb")

   ' Crea un objeto TableDef nuevo, anexa los objetos
   ' Field a la colección Fields y anexa el objeto
   ' TableDef a la colección TableDefs del objeto Database.
   Set tdfNuevo = dbsNeptuno.CreateTableDef("NuevoTableDef")
   tdfNuevo.Fields.Append tdfNuevo.CreateField("Fecha", dbDate)
   dbsNeptuno.TableDefs.Append tdfNuevo

   With dbsNeptuno
      Debug.Print .TableDefs.Count & _
         "TableDefs en " & .Name

      ' Enumera la colección TableDefs.
      For Each tdfBucle In .TableDefs
         Debug.Print "  " & tdfBucle.Name
      Next tdfBucle

      With tdfNuevo
         Debug.Print "Propiedades de " & .Name

         ' Enumera la colección Properties del objeto
         ' TableDef nuevo, sólo imprime las propiedades con valores no vacíos.
         For Each prpBucle In .Properties
            Debug.Print "  " & prpBucle.Name & " - " & _
               IIf(prpBucle = "", "[vacío]", prpBucle)
         Next prpBucle

      End With

      ' Elimina el TableDef nuevo ya que esto es un ejemplo.
     .TableDefs.Delete tdfNuevo.Name
      .Close
   End With
End Sub

Y si tampoco es esto, pues... ya dirás...

Saludos y suerte

He hecho varias pruebas y me ha quedado suficiente claro este concepto:

No puede pasarse un array de controles indefinido.

Tienes, sin embargo, fácil la solución:

Sub CargaLista(Valor as integer,Lista as ListBox)
Lista.Additem Valor
End sub

Y la llamada la haces así:
Call CargaLista(Valor, LstNuestraLista(i))

con lo cual no pasas el array de controles, sino el control con la posición ya definida.
Y ASI FUNCIONA PERFECTAMENTE.

Saludos

Me parece que os estáis volviendo chirivitas con esto del registro y las extensiones...

Yo tengo registrada la librería Abc.dll. Renombro Abc.dll como Abc.old (antigua Abc, que podía haber denominado Abc.ddd o Abc.lll). Ahora copio en el mismo directorio un fichero que se llama Abc.dll; como ya tengo registrada esa libreróa, sigue registrada Abc.dll. Y si me falla, la borro y renombro Abc.old como Abc.dll... Espero haberme explicado y que quede claro que el renombrar la librería no es  para mantenerla registrada con otro nombre, sino para dejarla inactiva, sin borrarla, por si necesito reutilizarla.

Saludos

Yo creo que es casi imposible ayudarte a conseguir que funcione tu código. Te aconsejo que borres todo y lo rehagas, porque estás mezclando órdenes que no tienen nada que ver con las variables a las que se las aplicas, tienes instrucciones que no pueden darte nada más que errores... Yo creo que así no sólo no consigues bloquear el registro, sino que no conseguirás ni siquiera abrir el fichero. ¿A tí no te da errores por todas partes?


Private Sub Text1_LostFocus()
If Text1.Text = "" Then
MsgBox "No puede dejar el código vacío"
Text1.SetFocus
exit sub
endif
If Not IsNumeric(Text1.Text) Then
MsgBox "El código debe ser numérico"
Text1.Text = ""
Text1.SetFocus
exit sub
End If
Text2.SetFocus
end Sub


Private Suc cmd_grabar_click()
Set rs = base.OpenRecordset("dctos", dbOpenDynaset, False, dbPessimistic)
rs.Requery

rs.FindFirst ("Codigo = '" & Text1.Text)
' (Yo no uso nunca el Seek, y por lo tanto no lo sé utilizar...)

if rs.Nomatch then
rs.AddNew
else
rs.Edit
endif
Rs!codigo = text1.text
Rs!detalle = text2.text
rs.update
rs.Close
End Sub

Supongo que si lo cambias a algo parecido a esto podrías conseguir que funcionara; pero lo estoy haciendo "de memoria" y con instrucciones que debo ajustar a tu forma de programar, no a mi forma...

Y recuerda que cuando se trata del mismo tema debes MODIFICAR TU MENSAJE, en vez de añadir un mensaje nuevo.


Saludos y mucha suerte

Me alegra el que se te haya solucionado el problema; pero considero que ñesa es una solución poco estable. Porque ¿qué te resultaría si la cifra, en lugar de tener 9 de longitud, tuviera 8? ¿Qué te daría si introdujeses 12345678?. Yo supongo que tú quisieras obtener 1.234.567-8, y sim embargo te aparecería 12.345.678- y ERROR.
La solución creo que es Format( a, "##.###.##0-0") si bien yo nunca he usado el guión dentro de una máscara...

Saludos y suerte

Hay muchos modos de realizar el bloqueo de un registro. Te incluyo un código que te da garantía total.

¡Atención! En el ejemplo no tengo en cuenta el refresco de la lista cuando han hecho modificaciones del fichero otros usuarios.  Ese es un problema de otra categoría, que supongo lo tengas resuelto.  Lo digo por si alguien toma este ejemplo y se piensa que con él puede hacer un programa garante en red...

Saludos

Con esta librería

Public Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long

Y defines dos variables como Long, por ejemplo:
Public nTime As Long
Public Sleep As Long

(si pones esta librería y esta definición de variables en un módulo, te servirán para toda la aplicación)


Cuando te interese hacer una pausa, das a nTime un valor EN MILISEGUNDOS; por ejemplo:
nTime = 2000   ' para 2 segundos
 
y la llamada sería

Sleep = SleepEx(nTime, 1)

Saludos