28. marts 2007 - 09:12Der er
10 kommentarer og 1 løsning
Resultat af query som defaultvalue
Jeg har en query der returnere den laveste dato fra et felt i en tabel.
Jeg vil gerne have den værdi som standartværdi i en teksboks i en form, således at når du åbner formen så står den laveste dato i databasen automatisk i tekstboksen.
Hvad skal jeg skrive ud for Default Value i egenskaber for tekstboksen?
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Slettet bruger
28. marts 2007 - 09:56#1
Det er nok lidt tricky, i stedet kan du gøre nedenstående når formularen åbnes!~)
Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb() Set rst = db.OpenRecordset("NavnPåForespørgsel") rst.MoveFirst Me.NavnPåTekstfelt = rst!NavnPåDatoKolonne rst.Close End Sub
Synes godt om
Slettet bruger
28. marts 2007 - 09:57#2
Husk hvis det ikke virker, at der skal være en reference til DAO i VBA'en (tools/references!~)
Use the DFirst function to return a random record from a particular field in a table or query. The following example prints the value of the "OrderDate" field from the Orders table in the Immediate window in the Visual Basic Editor. Microsoft Access picks one of the field records at random. This example is useful for quickly displaying the contents of a field to check data consistency.
? DFirst("[Orders]![OrderDate]", "[Orders]")
Bemærk formuleringerne: "return a random record" og "picks one of the field records at random". Hvorfor skulle det lige være den laveste værdi? Microsoft er nogle slamberter!
I that case there is no problem of course. But Me.NavnPåTekstfelt = Dfirst("NavnPåDatoKolonne", "NavnPåForespørgsel") as you suggest, returns a randomly selected record, it seems. Not nescessarily the first (lowest value).
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.