query als default waarde

[slauryssen]

ik wil een teksbox een default waarde geven, deze waarde is afkomstig uit een query! waarom lukt dit niet en geeft hij in mijn formulier devolgende tekst #name? kan ik dit alsnog oplossen of dienen zich hiervoor andere maatregelen te nemen???
Thanx

SLAU

 

[maartenf]

kun je een voorbeeldje plaatsen? (zip)

 

[NLPaPe]

Is jou query de "Record Source" dan kan je het zo doen:



of anders zelf een query definitie maken via Open Form event:

Private Sub Form_Open(Cancel As Integer)
    Dim rs As Recordset
    Dim db As Database
    
    Set db = CurrentDb
    
    Set rs = db.OpenRecordset("SELECT TOP 1 tbl_InternalContacts.ContactPerson AS DefaultIntCon FROM tbl_InternalContacts")

    DefaultIntCon = rs!DefaultIntCon
    
    Text_ContactPerson.DefaultValue = Chr(34) & DefaultIntCon & Chr(34)
    
End Sub

LET OP: De DefaultValue moet een string zijn!

De query die ik hier gebruik is special voor mijn database, je kunt hier ook een andere selectie query definieren.

Groeten,
Paul.