Tilrettet forespørgsel (kolonner) ud fra brugervalg uden at gå i designmode.

Det må kunne klares med en lille krølle i stil med:

Sub DinSub()
  Const Qname = "DinQuery"
  Const BrugerNavn = "ADTHA"
  Dim Q As QueryDef
 
  On Error Resume Next  'Første gang findes forespørgslen jo ikke
  CurrentDb.QueryDefs.Delete Qname
  On Error GoTo 0

  Set Q = CurrentDb.CreateQueryDef(Qname, "SELECT Programnavn," & BrugerNavn & " FROM ProgrammerOgBrugere")
  Set Q = Nothing

  DoCmd.OpenQuery Qname
End Sub

(Udskift selv diverse navne)

En kolonne til hver bruger er regnearkstænkning - og - om ønsket, præsentation fra databasen. Strukturen, på databasevis, som jeg ser det, vist med et eksempel:

tabel Apps
----------
id    name
1    photoshop
2    word
3    excel
4    firefox


tabel AppsUse
-------------

bruger    appsId
bruger1        1
bruger1        3
bruger1        4
bruger2        2
bruger2        3
bruger2        4


Læg mærke til at hvis en bruger ikke bruger et program, så findes der ingen post i AppsUse.

Følgende forespørgsel forudsætter at refererede form er åben:

SELECT [Apps].[id], [Apps].[name], -(select count (Apps.name) as useStatus from  Apps as A inner JOIN AppsUse ON A.[id]=[AppsUse].[Appsid] where Apps.id=A.id and AppsUse.bruger=forms!AppsUseAdmin!tbruger ) AS usestatus
FROM Apps;

forespørgslen, som ikke er opdaterbar, er datakilde i datadataark vist underformular til AppsUseAdmin
Denne har et tekstkontrolelement, som er bundet til usestatus og har event'en

Private Sub BUses_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim sql
    If BUses Then
        sql = "Delete from AppsUse where bruger=""" & Parent.tbruger & """ and appsId=" & id
    Else
        sql = "insert into AppsUse values(""" & Parent.tbruger & """," & id & ")"
    End If
    CurrentDb.Execute sql
    Requery
End Sub

--

Men det ville nu være mere automatisk med hostname.loginnavn som brugernavn - dermed funktioner i stedet for, både i forespørgsel og sql udtryk - og så ville der kun være bruge for en formular.

"Denne har et tekstkontrolelement..."
rettelse:
afkrydsningsfelt i stedet for tekstkontrolelement

Hej fdata og brugerekspert.

Tak for jeres forslag, hvor jeg hælder mest til fdata's forslag, måske fordi jeg ikke helt forstår det andet.

Men fdata - jeg har forsøgt mig med dit forslag uden held.
Min Tabel hedder "Gisprogrammer", som har felterne "Id", "PROGRAM" samt alle brugerne (f.eks. "ADTHA").
Min forespørgsel hedder "Gisprogrammer_FSP", som har felterne "Id", "PROGRAM" samt en bruger (f.eks. "ADTHA")
Min opstartsformular hedder "Datasikring - Opstartsformular", og brugernavnet hentes som et valg i en liste i feltet "[Kombinationsboks0]"

Kan du så guide mig lidt mere ?

PS: går på ferie fra i dag - så får nok ikke lige svaret tilbage før efter påske

Sub DinSub()
  Const Qname = "Gisprogrammer_FSP"
  Dim BrugerNavn As String
  Dim Q As QueryDef
 
  On Error Resume Next  'Første gang findes forespørgslen jo ikke
  CurrentDb.QueryDefs.Delete Qname
  On Error GoTo 0

  Brugernavn=Forms![Datasikring - Opstartsformular].Kombinationsboks0
  Set Q = CurrentDb.CreateQueryDef(Qname, "SELECT ID, Program, " & BrugerNavn & " FROM Gisprogrammer")
  Set Q = Nothing

  DoCmd.OpenQuery Qname
End Sub

Hej fdata

Mange tak for hjælpen. det fungerede lige som jeg havde ønsket det.
Super.

Eneste problem nu er at få slået sikkerhedsindstillingerne fra i den database som jeg vil sende ud, så den enkelte bruger ikke først skal vælge "Aktiver indholdet", altså at det er tilladt at afvikle det lille script.

Hvis du er i Access 2010 kan du klare det ved at tilføje stien til databasen her:
Filer / Indstillinger / Sikkerhedscenter / Indstillinger for sikkerhedscenter / Placeringer, der er tillid til

Tak igen fdata.

Det var jo meget simpelt - også selvom det er Access 2007 jeg sidder med :-)

Velbekomme - og tak for point ;O)