Access - valores asociados

 
Vista:

valores asociados

Publicado por Victoria (1 intervención) el 16/02/2007 16:00:33
Hola, yo quisiera que al introducir un valor en un campo automaticamente aparezca en otro campo el valor asociado segun una tabla ya creada.

por ejemplo:

campo 1 ( 12 ) campo 2 (diciembre) (este último aparece automaticamente sin necesidad de escribirlo)

gracias
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
Imágen de perfil de Enrique Ramírez
Val: 37
Ha aumentado su posición en 2 puestos en Access (en relación al último mes)
Gráfica de Access

RE:valores asociados

Publicado por Enrique Ramírez (629 intervenciones) el 16/02/2007 18:57:55
Ejemplo:

[1] - Tengo TablaMeses la cual tiene dos campos : Num_mes (numerico) y Let_mes (Texto), y la información esta mas o menos asi:
01 ENERO
02 FEBRERO
……
12 DICIEMBRE

[2] - En un formulario tengo una caja de texto (Texto1) donde tecleo el numero de
mes y otra caja de texto(Texto2) en el cual se va a mostrar la descripción del
mes.

Este código debes de meterlo en el evento “Al perder el enfoque” de Text1

Private Sub texto1_LostFocus()
Dim vSql As String
Dim db As Database, rs As Recordset

vSql = ""
vSql = "SELECT TablaMeses.Nun_mes, TablaMeses_Let_meses “ _
& " FROM TablaMeses “ _
& " WHERE TablaMeses.Num_mes = “ & VAL(me.texto1.value)

Set db = CurrentDb()
Set rs = db.OpenRecordset(vSql, dbOpenDynaset)
IF rs.RecordCount>0 then
Me.texto2.value=rs!Let_Meses
ELSE
Me.texto2.value=”ERROR – el mes que ingreso no existe, verifique”
Me.texto1.SetFocus
EXIT SUB
END IF
rs.Close
Set db = Nothing
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