Hur öppnar man ett formulär filtrerat.

Jag antar att jag vill använda mig utav en fråga. Vet bara inte vad jag ska skriva i den. Jag kan ju skriva i frågan att den ska filtrera viss data men det är ju inte riktigt det jag vill ådstakomma. Tex att den ska visa endast poster där värdet för exempelvis är mellan två prisintervaller etc. Inte riktigt det jag vill.

EDIT: Försöker lösa det med VBA men det lyckas inte. Har tagit efterföljande kod från en annan databas och där funkar den perfekt. Varför funkar den inte när jag klistar in den i min andra databas och anpassar den för den databasen?

Private Sub Knapp_Se_arkiverade_order_Click()
On Error GoTo Err_Knapp_Se_arkiverade_order_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmOrder_arkiv"

stLinkCriteria = "\[Kundnr\]=" & "'" & Me!\[Kundnr\] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knapp_Se_arkiverade_order_Click:
Exit Sub

Err_Knapp_Se_arkiverade_order_Click:
MsgBox Err.Description
Resume Exit_Knapp_Se_arkiverade_order_Click

End Sub

Jag får typbladningsfel hela tiden. Detta är inte enda koden som inte funkar. Koden verkar ju rätt men ändå funkar det inte. Har testat att spara om databasen i 2003-format men det funkar ändå inte. Båda fälten heter Kundnr och det är ju de jag anger i koden. Är ny på VBA men detta är förmodligen det enda av de få programmeringsspråk jag stött på som inte gör det man skriver i koden. Helt värdelöst.

gör du det via en fråga så är ju frågan körd för andra typer av villkor.

Prova följande:

Skapa ett makro med instruktionen "Öppna formulär" och välj ditt orderformulär.

Vid Wherevillkor skriver du följande:
[kundnr]=[Forms]![Namnet på ditt kundformulär]![kundnr]

Spara makrot med ett namn.

Skapa sedan en knapp till makrot.

Via VBA:
Alternativet är att du ritar upp en knapp utan guiden och provar följande VBA-kod vid knappens onclick-event:

DoCmd.OpenForm "ditt orderformulär", acNormal _
   , , "kundnr=" & _
  [Forms]![Ditt kundformulär]![Kundnr]

Tackar.

Funkade visserligen med koden du gav mig men med den så fick jag inte upp formuläret i databladsläge vilket jag ville ha, så jag löste det med makrot istället. Det funkade riktigt bra och precis som jag ville ha det.

Har du någon lösning på detta problem? Jag har ett underformulär i ett formulär. I det länkar jag in ett annat formulär som också har ett underformulär i sig men jag visar det formuläret i databladsläge så jag får en lista som jag kan klicka fram under varje rad i databladet, eftersom det är ett formulär med underformulär.

I det formulär som jag länkar in i underformuläret för detta andra formulär har jag ett fält för "À pris" och i formuläret som jag har underformuläret i har jag ett fält för "Ordervärde". Detta gör att jag ser det totala ordervärdet för varje order, och när jag trycker fram listan under varje post så får jag fram orderdelar där priset för varje enskild orderdel visas.

Hur kan jag göra för att få totala summan att visas i fältet för "Ordervärde" och kan jag göra så att det uppdateras automatiskt när man lägger in priserna för varje orderdel?

Du får nog förklara lite tydligare. Eller så är jag trött nu på kvällen och är seg i skallen.

Beräkningen kan du väl göra så här:
=summa([Ordervärde])

Tryck Shift-Enter så får du beräkningen när du matat in.

Alltså. Jag har ett formulär. I det formuläret har jag ett underformulär.

I formuläret som jag har underformuläret i har jag ett fält för "Ordervärde" och i underformuläret har jag ett fält som heter "Á pris". I fältet för "Ordervärde" vill jag kunna räkna ihop samtliga priser.

Kan jag använda den formeln du skrev för en helt vanlig textruta i ett formulär och hur gör jag det isåfall?

I verktygslådan har du knappen Textruta. Rita upp en sådan.

Formeln nedan summerar ihop alla siffror du har i fältet Ordervärde:
=summa([Ordervärde])

Formeln nedan summerar ihop alla siffror du har i apris:
=Summa([Á pris])

Varje beräkning gör du i separat textruta.

Anger jag formeln som standardvärde för textrutan eller ska jag skriva det någon annanstans? Jag vill summera ihop alla "Á pris" och visa summan i fältet "Ordervärde".

Markera textrutan "Ordervärde".
Skriv =summa([Apris])

Hur vet programmet vart han ska hämta "Á pris" från? Måste man inte ange det också på nåt sätt?

jaha ock då är jag med.

Är inte dina fält i formuläret kopplat till fält i tabeller?

Jo självfallet men det är två olika tabeller. En länkas in i huvudformuläret och den andra länkas in i underformuläret.

Ok.

Så det var egentligen av den anledningen som jag tänkte att man var tvungen att ange namnet på tabellen som fältet Á pris ligger i också. Kan man ändra koden du skrev? Eller måste man fixa det på något annat sätt?

Skrev såhär

=Summa([tblOrderdelar].[Styckpris])

Jag har ändrat namnet till Styckpris. Det funkar dock inte. Det står #Fel i rutan

Om jag lägger det i ett fält i samma tabell som "Styckpris" så funkar det, men inte när jag försöker hämta in det i fältet "Ordervärde" som ju ligger i en annan tabell.

Ok.

Jag ska se om jag kan kolla imorgon på det där.

Jättechysst.

Jepp

Kan man använda en fråga till detta? Alltså en fråga som räknar ut summan av ett antal fält är ju ingen konst, men hur ska jag få samma fråga att skriva resultatet till det önskade fältet? Behöver jag köra flera frågor för att få resultatet? Isåfall kan jag ju köra ett makro. Men hur ska jag isåfall konstruera frågorna?