Visual Basic - estudiante

Hola que tal, necesito de su ayuda, espero poder obtenerla.

Resulta que tengo 3 problemas:

1.- Como puedo ingresar datos con un mismo boton a dos tablas de access diferentes ( tengo la tabla PRODUCTOS e INVENTARIO) y en mi programa en visual deseo que con un boton se agreguen los datos a estas dos tablas, pero Como lo hago?.

2.- Como comparo 2 contraseñas para personas distintas (el administrador tiene una contraseña y el empleado otra, al accesar a la base de datos, el empleado tiene restricciones) pero como comparo lsa contraseñas con If ??????

3.- Por ultimo,como puedo pasar la informacion de un flexgrid que esta en una forma, a otro flexgrid que tengo en otra forma?????

POR LA AYUDA, MUCHAS GRACIAS.
SE LOS AGRADESCO

en serio preguntas eso...?? sigamos el juego entonces

1. Cómo ingresas los datos a dos tablas de access con un mismo boton, sencillo, al pulsar el boton, ingresas los datos a la primer tabla de access... y luego a la segunda

2. Cómo comparar 2 contraseñas
If Contraseña_Usuario = Contraseña_Administrador Then
msgbox "Iguales"
Else
Msbox "No Iguales"
End If

obvio tendras que asignarle valor a Contraseña_Usuario y Contraseña_Administrador

3. a como llenaste el primer FlexGrid... llenas el segundo Flex Grid

Se aceptan los agradecimientos

perdona, olvide llamarte

estùpid@ igñorante

ya no me agradescas nada

chau

otra vez mi singular perro fiel contestando bajo mi "nombre", pido disculpas por el mensaje anterior, el primero si es mio

saludos

Como lo estas haciendo, abres tus tablas por un ADODB

Bueno necesitas abrir dos recordset uno por tabla.

Si lo haces por adodb..

Option Explicit

Dim RsProducto as new Adodb.Recordser
Dim RsInventario as new Adodb.Recordser

'******************
Private Sub Abrir()

RsProducto.open "Select * from productos",
coneccion,adopenKeySet,adLockOptimistic

RsProducto.Addnew
RsProducto("nombre del campo")=Txt
'
'
RsProducto.Update

If RsProducto.State=1 then RsProducto.close

RsInventario.open "Select * from inventarios",
coneccion,adopenKeySet,adLockOptimistic

RsInventario.Addnew
RsInventario("nombre del campo")=Txt
'
'
RsInventario.Update

If RsInventario.State=1 then RsInventario.close

End Sub

***************Metodo del boton

Private Sub Cmd Click()
'Reglas de validacion
If not Isnull(TxtCla) then
Abrir
Else
msgbox "Inserte clave de articulo",vbExclamation
Exit Sub
End if
End Sub

2) Comparar
Dim contraseña_admin as string
Dim contraseña_empleado as string

contraseña_admin=cadena
contraseña_empleado=Inputbox("Inserte una contraseña")

If Trim(contraseña_empleado)<>"" then 'Verifica que haya dato
If Trim(contraseña_empleado)=contraseña_admin then
'sentencias
Else
msgbox "Acceso restringido",vbExclamation
End if
End if

3) Declararia un type o un enum en un modulo
Al momento de vaciar el primer flex lo vaciaria en mi estructura.
Vaciaria la estructura en el segundo flex

O tambien podrias hacerlo mediante una clase.

Mandame tu codigo de este para revisarlo...

Suerte...

Mil Gracias Paloma te lo agradesco

Hola, oye te mande un correo pero no te llego, te puse un ejemplo de lo de mi problem con el flexgrid.

mira mas detallado, tengo 2 formas, y en cada una tengo un flexgrid, quiero q la informacion que contiene el flexgrid de una forma se pase al flexgrid de la otra, nose si me pudieras ayudar, en serio me super urge. Gracias

Private Sub Command1_Click()
Dim c As Long, r As Long

'copiar flexgrid form1 en flexgrid form2 (botón en form1)

Form2.Show
With Form2
'igualar formato flexgrids
.Width = Me.Width
.Height = MSFlexGrid1.Height
.MSFlexGrid2.FixedRows = MSFlexGrid1.FixedRows
.MSFlexGrid2.FixedCols = MSFlexGrid1.FixedCols

.MSFlexGrid2.Rows = MSFlexGrid1.Rows
.MSFlexGrid2.Cols = MSFlexGrid1.Cols
.MSFlexGrid2.Height = MSFlexGrid1.Height
.MSFlexGrid2.Width = MSFlexGrid1.Width


For c = 0 To MSFlexGrid1.Cols - 1
.MSFlexGrid2.ColWidth(c) = MSFlexGrid1.Width / MSFlexGrid1.Cols
Next c

For c = 0 To MSFlexGrid1.Rows - 1
For r = 0 To MSFlexGrid1.Cols - 1
.MSFlexGrid2.TextMatrix(c, r) = MSFlexGrid1.TextMatrix(c, r)
Next r
Next c
End With

End Sub

Te mando un ejemplo más completo por mail.

Muchas Gracias, te lo agradesco