VBA udfyldning af underformular

Hvis du vil vise records i en underformular, så sæt en query som recordsource  for underformularen. Querien kan du bygge op i querybuilderen - først vis alle records, og når det virker kan du sætte et WHERE kriterium på. Din SQL fejler, fordi 1. der er ikke blank mellem ] og WHERE, og derpå skal WHERE kriteriet referere til feltnavne som forekommer i den tabel/query som SQL'en skal køre på. Desuden, kun strings skal i '  - tal skal ikke omkapsles af '.

Har rettet det. Nu prøver jeg med ORDER BY. Der er en fejl i syntaksen.

Set rstMatrStkList = mydb.OpenRecordset("SELECT * FROM [T_MatrStyklist] WHERE [Hovedvarenr]= '" & Me![Styklisteoversigt] & "' & ORDER BY & '" & [Aktnr] & "'")

Mener du at jeg skal lave select sætning i kilden til underformularen? i stedet for at lave et recordset.

Jeg håbede på at jeg kunne sige
Me!Minunderformular.Recordsource = rstMatrstkList

Nej. Jeg mente at specificere kilden til underformularen som værende en query, der leverer de ønskede data.

Du kan vist godt sætte en formulars recordset til et du lige har genereret http://office.microsoft.com/en-us/access-help/recordset-property-HA001232787.aspx  . Jeg har ikke prøvet det selv.

Er der nogen årsag til at du ønsker at skrive kode til dette, fremfor at bruge de byggeblokke der er i Access? Mao: hvad hindrer dig i simpelthen at lave en query(forespørgsel) i querybuilderen, og sætte den som recordsource?

Underformularen indeholder også nogle beregnede tal. Og så er det fordi jeg prøver at lave det som en client-server løsning, således at man henter data, og så er offline fra selve databasen.

Og så er det nok manglende erfaring i byggeblokkene fremfor kode.

"Underformularen indeholder også nogle beregnede tal." ? Det gør den vel uanset hvilken datakilde den er beseret på? Eller er der nogle oplysninger som ikke er her?

"Og så er det fordi jeg prøver at lave det som en client-server løsning, således at man henter data, og så er offline fra selve databasen." Ikke forstået. Om du kører en query på en tabel i en underformular, som du forsøger på nu, eller baserer en formular på en query, som så udfører den, lyder ret meget af det samme. Medmindre der altså er flere oplysninger end angivet her.


"Og så er det nok manglende erfaring i byggeblokkene fremfor kode. " Prøv at bygge en query op i query builderen - det er ikke så svært, der findes jo Wizards til det meste. Desuden, så kan du ændre queriens visning til SQL, så kan du se hvordan SQL-sætningen bør se ud helt præcist. Jeg er doven anlagt, så bruger tit querybuilderen til at lave en query kun så jeg kan kopiere sql'en ind i min kode, når det passer bedre.

Det er således at de indlæste data i underformularen skal kunne redigeres og tilføjes nye poster, og så skal de skrives tilbage i tabellen.

Hvordan finder man ud af hvor mange records der er efter redigering?

Jeg prøver at lave en Qyery som du skriver.

"Hvordan finder man ud af hvor mange records der er efter redigering?" Svært at svare på, da det ikke fremgår hvor de data er henne, og hvad "redigering" går ud på præcist.

Når datakilden for en formular er en query (en opdatérbar en af slagsen) så kan man sagtens ændre i de forskellige felter for en post, eller tilføje/slette poster vha. formularen.

PÅ en formular med en datakilde giver Me.RecordSet.RecordCount for det meste det antal poster der nu måtte være tilknyttet.

Jeg har prøvet med en Qyery. Den virker fint i dataarkvisning.

Men jeg får ingen data i underformularen. I hovedformularen har jeg et ubundetfelt der hedder VisVarenr, her indsætter jeg det varenr der skal vises. Det virker OK.
På underformularen har jeg sat overordnede felt til VisVarenummer og underordnede felt til Hovedvarenr (de skal være ens).

Lukker spørgsmålet. Prøver en anden løsning