agrandar ventanas de aviso en access

[amateurchapin]

hola buenas tardes
espero que todos esten muy bien por aki, les kiero contar mi problema haber si alguien me puede ayudar, resulta que hice una base de datos de clientes en la que kiero que me avise en una fecha especifica cuando le toca servicio a ese cliente pero kiero saber si se puede desplegar el nombre del cliente con una macro ya que yo lo hice y funciona bien con un ejemplo que tome solo que me despliega el numero de Id del cliente y yo necesito algo como el nombre, se podra? alguien me puede explicar como hacerlo o mandarme un ejemplo?

[Taribo007]

En este hilo hemos estado hablado del uso de la funcion dlookup, que puede ser lo que necesitas:

http://www.forosdelweb.com/f21/duda-access-634800/

Un saludo

[amateurchapin]

gracias pero a ese link al que me mandaste no le entendi mucho esta un poco enredado yo creo que no me he explicado yo necesito que me tire en el aviso el nombre del cliente por que lo que me tira es el Id del cliente al abrir el formulario y tengo que ir a buscarlo conforme al numero pero talves hay una forma de hacerlo pero con el nombre

[amateurchapin]

soy honesto no se ni donde va ese comando Dlookup en mi estructura que tengo

[Taribo007]

Actualmente, como "te tira" el id del cliente??? Con un msgbox, en un cuadro de texto?? Donde exactamemente y como???

En cuanto al dlookup, teniendo un campo (nombre dle cliente), una tabla (clientes) y un campo por el que filtrar (id del cliente), puedes aplicarlo donde quieras

Un saludo

[amateurchapin]

mira yo lo hice asi con una macro en modulos:

Function cadaseisautopuerta()
Dim rst As DAO.Recordset 'Declaro un recordset Dao
Dim strSql As String 'Declaro la variable para la consulta
strSql = "SELECT IdCliente, fechaservicio FROM autopuertas" 'selecciono los campos de la tabla
Set rst = CurrentDb.OpenRecordset(strSql, dbOpenDynaset) 'Abro el recordset
If rst.EOF = False Then 'Si el recordset devuelve registros...
rst.MoveLast
rst.MoveFirst
Do Until rst.EOF 'Recorremos los registros devueltos
If rst!fechaservicio = Date Then ' Si la fecha coincide con la de hoy entonces...
MsgBox rst!IdCliente, vbInformation, "AUTOPUERTAS" '...que muestre un mensaje con el texto de la cita
End If
rst.MoveNext 'que se mueva al siguiente...
Loop '...y vuelta a empezar
End If
rst.Close 'que cierre el recordset
End Function

pero yo kiero que me tire el nombre del cliente y no su numero que le toca autonumericamente no se si me estoy explicando.

saludos y espero que si me entiendas ahora sino pues tratare de explicarlo lo mejor que pueda

[Taribo007]

Solo tienes que modificar la sql con la que instancias el recordset. Supongamos que tienes una tabla llamada Clientes, con un campo llamado IdCliente, y otro llamado NombreCliente, que es el que quieres mostrar. Como en la tabla autopuertas tienes el campo IdCliente, vamos a usarlo para establecer una relacion con la tabla clientes, y asi poder mostrar el campo Nombre cliente, algo asi:

Cambia esto:
strSql = "SELECT IdCliente, fechaservicio FROM autopuertas" 'selecciono los campos de la tabla

por esto:

strSql="SELECT Autopuertas.IdCliente, Autopuertas.fechaservicio, Clientes.NombreCliente
FROM Autopuertas INNER JOIN Clientes ON Autopuertas.IdCliente = Clientes.IdCliente"

Un saludo