Access - solucion a una entrada de datos

 
Vista:

solucion a una entrada de datos

Publicado por Leandro (5 intervenciones) el 29/12/2006 18:42:10
Buenas, me gustaria que me aconsegeis sobre una cuestion .

tengo 2 bd (Clientes y polizas) quiero que cuando de de alta una poliza me pregunte primero por el nif , si lo encuentra abra un formulario de polizas y sino otro formulario con campos de clientes y polizas y cree los registros correspondientes en las 2 bd , el nif es comun enlas 2 bd .

Gracias por la ayuda y consejo .
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:solucion a una entrada de datos

Publicado por Ubaldo (8 intervenciones) el 02/01/2007 17:48:21
Creas un formulario para dar de alta la poliza y en un boton agregar introduces el codigo siquiente

declaras variables para tus conexiones(bd,recordset y un string para guardar tu consulta (SQL)

RECUERDA QUE AL SELECCIONAR EL EVENTO CLICK TE MOSTRARA LA SECCION PARA TU CODIGO

PRIVATE SUB GUARDAR CLICK( )
strsql1="select polizas * " & _
" from polizas " & _
" where(( polizas.nif)= " & cuadro texto(nif) & "
set rs1=db.openrecordset (strsql1)
if rs1.recordcount > 0 then
docmd.openform " formulario polizas"
else
docmd.openform "formulario con campos clientes y polizas"
end if
estando en el formulario elegijo segun la condicion

strsql1="select polizas * " & _
" from polizas " & _
" where(( polizas.nif)= " & cuadro texto(nif) & "
set rs1=db.openrecordset (strsql1)
if rs1.recordcount > 0 then
msgbox "poliza ya existe"
else
rs1.addnew
rs1("")=ctCuenta
rs1(" " )=poliza
rs1.update
set rs1=db.openrecordet( "tablacuentas")
rs1.addnew
rs1("")=ctCuenta
rs1(" " )=poliza
rs1.update
end if
PD:ESPERO QUE TE SIRVA SI TIENES DUDA MI CEL:5512372495


END SUB
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar