Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 'Addnew
dataContactos.Recordset.AddNew
Case 1 'Carga Bmp
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Select
End Sub
Private Sub Form_Load()
'Ajusta el DataControl
dataContactos.DatabaseName = App.Path & "Bd-Foto 97.mdb"
dataContactos.RecordSource = "CONTACTOS"
End Sub
este codigo lo encontre con el maestro guille en elguille.info
creo que sirve checalo
oye LOLO solo dame una idea
si por ejemplo yo quisiera mostrar las fotos de una boda las de un bautizo las de un cumpleaños como le haria para que no se intercalaran es decir
si hago una busqueda y digigo muestrame solo las fotos de la boda que solo me aparecieran las de la boda y asi sucesivamente sale saludos