Mensaje de para Nuevo

[2Fast To You]

Hola Amigos

Bueno, estoy desarrollando un Proyecto algo como Agenda Telefónica pero necesito que cuando el Usuario le de a Nuevo Contácto y escriba el nuevo contacto etc etc. y cuando le dé a Guardar que le salga un Mensaje diciendole "Su Contácto a sido creado decea usted Crear otro.. y aparesca Si o No"

Si dá SI le vuelve abrir ese Form y para crear otro nuevo y lsito.

Otra cosa es como puedo ponerle a este Código que ponla la Contraseña de la BD:

Código PHP:

  Private Sub Form_Load() 
    Data1.DatabaseName = App.Path & "\Directorio.mdb" 
End Sub  
   

Saludos

[2Fast To You]

Bueno, sobre el Mensaje he logrado hacer lo siguiente:

Código PHP:

  Private Sub CmdGuardar_Click() 
    rs.Update 
    If MsgBox("Su Contácto a sido creado decea usted Crear otro..", _ 
    vbQuestion + vbYesNo, "Atención") = vbYes Then 
    Unload Me 
    Load frmNuevo 
    frmNuevo.Show vbModal 
    End If 
End Sub  
   

Es simple lo que ahora no se es como ponerle una Funciona para cuando diga que NO.

Pues lo que quiero que pase cuando diga que no esque cierre ese Form y habra frmMain

Saludos

[jrp01]

No entiendo por que haces eso que no es mas simple si tienes por ejemplo una forma donde pones los datos al guadar te pregunte si deseas otro si es asi simplemente limpias las cajas de texto y listo si no cierras la forma

[2Fast To You]

Hola.

Mira, realmente no entedí a que te refieres. El codigo que puse funciona bien pero quiero que haga una Funcion que no se como hacerlo y la función es:

Que cuando el Mensaje que le sale

Su Contácto a sido creado decea usted Crear otro..

Y le diga que NO no salga el mismo Form que es lo que pasa cuando leda a que SI.

Si le dice que no, necesito que salga de ese Form y valla al frmMain.

Saludos

[jrp01]

Si mira pones por ejmplo algo como esto en la forma:

Private Sub Limpia()
text1.text=""
text2.text=""
....
End sub

En el boton de guardar:

rs.Update
If MsgBox("Su Contácto a sido creado decea usted Crear otro..", _
vbQuestion + vbYesNo, "Atención") = vbYes Then
Limpia
else
unload me
end if

Saludos

[2Fast To You]

Gracias.

Oye, y dime si me puedes responder este pregunta:

Como hago para que el siguiente Código ponga la contraseña de la BD

Código PHP:

  Private Sub Form_Load() 
    Data1.DatabaseName = App.Path & "\Directorio.mdb" 
End Sub  
   

Saludos

[jrp01]

Creo que es asi:

Data1.DatabaseName = App.Path & "\Directorio.mdb"
Data1.Connect = ";pwd=la_contraseña"

Ya que yo no uso ese control prefiero ADO, me permite hacer mas cosas y denegar otras.

Saludos

[2Fast To You]

Amigo y una pregunta. Como visualizo estos mismos datos pero en una Lista

Saludos

[jrp01]

listView o en un Grid?

[2Fast To You]

Lo estoy haciendo con un DataList

Cual me recomiendas

Saludos