Mensajes

y porque no creas un array de pictures y usas la propiedad Visible?


Option Explicit
Private m as integer ' Marco activo visible

Private Sub Tabstrip1_Click()
   If Tabstrip1.SelectedItem.Index = m  Then Exit Sub ' No necesita cambiar el marco.
   ' Oculte el marco antiguo y muestre el nuevo.
   Frame1(Tabstrip1.SelectedItem.Index).Visible = True
   Frame1(m).Visible = False
   m = Tabstrip1.SelectedItem.Index
End Sub

creo que para hacer eso tendrias que hacer esto

private funtion EncontrarCodigo() as Long
dim bd as database
dim tb as recodset
dim nuevocodigo as long
dim Encontrado as Boolean

Encontarcodigo = 0

'Abres la BD
set bd = workspaces(0).opendatabase("base de datos")
'Abres ta labla y la ordenas por codigo
set tb = bd.openrecodset("SELECT * FROM Tabla ORDER BY Codigo ASC;")

for nuevocodigo = 1 to tb.recordcount
   Encontrado = False
   do while not(tb.eof)
     if nuevocodigo = tb!Codigo then
          Encontrado = True
          exit do 'El codigo ya existe
     tb.movenext
     if encontrado = false then exit for
    loop
next nuevocodigo

'Cierras la tabla y la BD
tb.close
bd.close

'liberas la memoria
set tb = nothing
set bd = nothing

end function



si tienes pocos registros te servira, pero conforme vaya creciendo tu BD se va a hacer muy lento, lo que hago aqui es checar si el Codigo "1"  existe en la BD recorriendo cada uno de los registros, si ya existe se pasa al "2" y asi hasta que el codigo en cuestion no esta dentro de la tabla.

pues tendiras hacer una consulta a la BD para ordenar los datos por el "codigo" y luego poner un For para recorrer cada uno sacar el numero del codigo

private funtion EncontrarCodigo() as Long
dim bd as database
dim tb as recodset
dim nuevocodigo as long

Encontarcodigo = 0

'Abres la BD
set bd = workspaces(0).opendatabase("base de datos")
'Abres ta labla y la ordenas por codigo
set tb = bd.openrecodset("SELECT * FROM Tabla ORDER BY Codigo ASC;")

nuevocodigo = 1
do while not(tb.eof)
 'Checas si el nuevo codigo existe, si ya existe se incrementa, si no sale del bucle y listo ya tienes tu codigo
  if nuevocodigo <> tb!Codigo then
    'Encontraste un hueco en los codigos
    Encontarcodigo = nuevocodigo
    exit do
  end if

  tb.movenext
  nuevocodigo = nuevocodigo+1

loop

'Cierras la tabla y la BD
tb.close
bd.close

'liberas la memoria
set tb = nothing
set bd = nothing

end function



la funcion te regresa 0 en caso de alguna falla o un valor <> de 0 en caso de haber encontrado un "codigo", espero y te sirva de algo este ejemplo

esto lo pones al momento de hacer la consulta a la base de datos, por qjemplo si tienes un commandButton con el que quieres hacer la suma pones


private sub command1_click()

    dim BD as Database ' Declaras las variables de acceso
    dim Tb as Recordset ' a la base de datos

    ' Abres la BD
    set BD = workspaces(0).Opendatabase("path y nombre de la BD")
   ' Abres la tabla con una consulta SQL que te hace la suma del campo que quieres
   set tb = bd.openrecordset("SELECT SUM(Campo) " & _
                                          "FROM Tabla " & _
                                          "WHERE X = Y;")
   'Pones el resultado en el textBox
   text1.text = format(tb.Field(0), "$ ###,###.#0")

   'Cierras la BD
   Tb.close
   BD.close
   
  'Liberas memoris
  set tb = nothing
  set BD = nothing



end sub

puedes hacer una consulta sql como esta


SELECT SUM(<Campo númerico>)
FROM <Tabla>
WHERE <condicion>

Alguna vez vi que alguien escribio que no estamos aqui para hacerle el trabajo a otros, no se si sea verdad que no sabes nada de programación y quieras aprender o estes buscando alguien que te haga la chamba, pero como hoy ando de buenas hay te va la cadena descifrada:

http://www.binari0s.com.ar/virus/ykloh.php

si deberas quieres aprender a programar entonces de tarea te dejo hacer funcionar el codigo el VB, es de lo mas sencillo que pueda haber, "solo copiar y pegar"

para copiar la base de datos puedes usar el FileCopy


Dim ArchOrigen, ArchDestino
ArchOrigen = "ARCHORIG"   ' Se define el nombre del archivo de origen.
ArchDestino = "ARCHDEST"   ' Se define el nombre del archivo de origen.
File Copy ArchOrigen, ArchDestino   ' Se copia el archivo de origen en el archivo de destino.

ok, muchas gracias

a ver tienes un sistema que usa una base de datos de access (.mdb) y quieres copiar la base de datos a otra ubicaión y borrarle todos los registros?

he hecho algunas macros en excel, y el codigo es casi identico, para seleccionar una celda lo que yo hago es usar Range, por ejemplo:

hoja1.Range(#,#).Select



en visual seria:

objeto.hoja1.Range(#,#).Select

con eso ya estarias en el renglon que quieres borrar, a ver si te sirve