Første post 10Efterfølgende poster skal være 5

I think your going to have to explain in more detail before we hae any chance of finding a solution.

Try giving an example

OKi...

Forstil dig jeg har en kunde som fx får.


1 Kasse ØKO kartofler
1 Flaske Cola

Også skal deret Leverings Gebyer på som er fx 10kr.

altså regnestykket ser sådan ud med det ovenfor:

10
5

Og en anden kunde måske får

1 Øko kasse kartofler
1 Kasse Vindruer
1 Kasse tomater
1 6 stk Tuborg

å vil det se sådan ud:

10
5
5
5

Håber i forstår.

det jeg mener er at Den første kasse altid vil koste 10 og alle der efter vil koste 5.

are you saying that for the first product purcahsed there is "leverings gebyer" of 10kr and following products only 5 kr?

Well the easiest is to count the number of products and multiply by 5 and then add 5

jeg skal have et Ex. på det altså en kode..

Felte som hedder belob hvor prisen skal gemmes i...

can you send me an example of your dB

ekspertenATsanthell.dk
AT = @

har sendt en mail med en vedhæftetfil

har sendt en ny.

I'm not quite sure what I should suggest, your database design is all wrong so I'm not sure what solution is the right one.

The form is not updatable because of the way you are trying to link the sub form to the main form. I can correct this but then you have the same information (telefon, adresse) in both tables which in my opinion is not correct.

if the form is updatable couldnt you just enter the pris field manually?

er der virkelig ikke nogen som kan hjælpe?

if the form is updatable couldnt you just enter the pris field manually?

If the form is updatable then this code works


Private Sub Form_BeforeInsert(Cancel As Integer)

If DCount("*", "Lev", "Telefonr = '" & Me.Telefonr & "'") = 0 Then

    Me.belob = 10
Else

    Me.belob = 5
End If


End Sub

It updates th elbelob field when you start entering a new record. At the moment the records you have have been entered directly into the tables.

Det kan jeg ikke rigtig få til at virke...

I have sent you a dB with an example.

Undskyld..

Ikke lige sådan jeg havde tænkt mig det..

Noget mere i stil med hvis man trykke på en kanp der fx hed "sæt pris" så satte den priser på...

skal lige siges at pakkerne er oprettet i forvejen inden jeg skal trykke på den kanp.

Du kan også lave en sammentællingsfelt nederst på formularfoden med kontrolelementkilden:

=(Count([NavnPåVarefelt])*5)+5

ikke lige det..

forstil jer at jeg trykker på næste kunde.

også kommer der op hvad kunden har bestilt.

og ved tryk på en knap så skal den sætte pris på hver post som kunden har bestilt.

altså den første ting til 10 og resten til 5. håber der er en som forstår mig.- :-S

02/04-2008 22:46:07 This is what I was afraid of :o) (02/04-2008 20:45:17)

I can make another solution later.

Because of the way your dB is designed it isnt easy to find a good solution but this seems to work.

You need to add the ID field to the sub form so that you have a unique record to update. You can make this field hidden.
Add a textbox to the main form an dname it txtPris. THis can also be hidden.

Place a button on the form and use code something like this.

Private Sub Command9_Click()
On Error GoTo Err_Command9_Click


Dim rs As Recordset

    Set rs = Me.underformular.Form.Recordset
   
   
    Do Until rs.EOF
       
        If rs.AbsolutePosition = 0 Then
           
            Me.txtPris = 10
           
           
        Else
       
          Me.txtPris = 5
         
        End If
       
        DoCmd.OpenQuery "qryUpdate"
        rs.MoveNext
       
   
    Loop
   
  Me.underformular.Form.Requery

Exit_Command9_Click:
    Exit Sub

Err_Command9_Click:
    MsgBox Err.Description
    Resume Exit_Command9_Click
   
End Sub

Make a query like this and name it qryUpdate

UPDATE Lev SET Lev.belob = [Forms]![start]![txtPris]
WHERE (((Lev.ID)=[Forms]![start]![underformular]![Id]));

and before anyone makes any suggestions, I have tried using DoCmd.RunSQL .... but cant. I guess because of the dB design.

Tak det var lige det jeg skulle Bruge Terry :-D

slev tak og god weekend