Men nu er det så at det hele skulle udvides så man kan vælge på en form hvilke felter man vil have overført til Excel regnearket.
Men hvordan gør jeg det ?
For med : DoCmd.TransferSpreadsheet acExport, 8, "ALLE_Recoards", "c:\test_New.xls", False, "" kan jeg jo kun vælge en Query den der i mit tilfelde hedder ALLE_Records. Jeg kan ikke selv definere min SQL sætning der.
Jeg har brug for enten selv at kunne generere min query string eller på en eller anden måde kunne overføre mine valg fra min form af hvilke felter der skal vises i min Query.
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Opret en formular med et afkrydsningsfelt hørende til hvert datafelt. Afkrydsningsfelterne kunne hedde X1, X2 osv.
Her følger så puslespilbrikkerne (går ud fra, at du genkender brikkerne):
' Variable og konstanter Const Qnavn = "Q_VisseFelter" Dim strSQL as String Dim Qdf As QueryDef
' Opbyg SQL strSQL = "SELECT " if X1 then strSQL = strSQL & "TabelNavn.Feltnavn1, " if X2 then strSQL = strSQL & "TabelNavn.Feltnavn2, " 'osv.
' Tom? If strSQL = "SELECT " Then MsgBox "Du skal vælge mindst et felt" Exit Sub End If
' Finish strSQL = Left(strSQL,Len(strSQL)-2) ' Slet sidste komma og mellemrum strSQL = strSQL & " FROM TabelNavn;" ' Samt evt. yderligere kriterier
' Dan Query CurrentDb.QueryDefs.Delete Qnavn ' Slet den eksisterende Set Qdf = CurrentDb.CreateQueryDef(Qnavn, strSQL) CurrentDb.QueryDefs.Refresh Set Qdf = Nothing
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.
