kigge i forespørgsel med dmax

Hi fastwriter, not heard from you for a while! You can send your dB to me
terry@santhell.dk and I will take a look, hard to see exactly what your trying to do.

mvh
Terry

Hi Terry - ja, det er lang tid siden :) Men godt at se at du stadigvæk er herinde.

Hvad jeg har brug for er noget kode der kigger på min query i mit felt NUMMER - og finder den højeste værdi.

Denne værdi - hvis den fx er 100 - skal den næste værdi være 101 - og denne værdi skal koden så indsætte i min forespørgsel, men først efter at jeg har skrevet datoen.

Jeg kunne forestille mig noget i retning af

DoCmd.RunSQL "Insert into q-faktura ( fakturanummer ) Select " & DMax("fakturanummer", "q-faktura") + 1

q-faktura = forespørgsel
fakturanummer = field i forespørgsel

Dim NextVal as double


NextVal = 1 + DMax("fakturanummer","q-faktura")

Docmd.runsql "INSERT "Insert into q-faktura ( fakturanummer ) VALUES " & NextVal & ")"

where is the date used?

not quite right!
Docmd.runsql "INSERT "Insert into q-faktura ( fakturanummer ) VALUES (" & NextVal & ")"

Den vil jeg prøve!!! Tak Terry!!

Terry - den virker tildels.. det skal være sådan, at lige så snart jeg har skrevet datoen i mit datofelt (dato), så skal den opdatere feltet fakturanummer med det højeste nummer. Jeg kan se at din kode virker, men den kommer med en SYNTAX ERROR in INSERT INTO STATEMENT..?

Yes I can see there is STILL a little error in th esyntax, sorry!

Docmd.runsql "Insert into q-faktura ( fakturanummer ) VALUES (" & NextVal & ")"

I'm still not quite sure how your using the date field!

If I understand your problem correctly then try this!

In the after update event for the date field OR the before update event for the record.

Me.fakturanummer = 1 + DMax("fakturanummer","q-faktura")

Where me.fakturanummer is the field on the form!
Now you dont need to use INSERT into .....

YES!!!! Nu virker det.. Min kode er følgende, i min AFTER UPDATE event, når jeg har skrevet en dato:


Private Sub Fakturadato_AfterUpdate()

If [Fakturadato] < 0 Then
MsgBox "Du skal skrive en fakturadato"

Else
Me.Fakturanummer = 1 + DMax("fakturanummer", "q-tilfakturering")
 
End If

End Sub


TERRY - TUSIND tak for hjælpen!! Endnu engang kom du mig til undsætning!!

Er du ved at få lavet en usb-port til din hjerne? :)

No USB port but I am trying to find a way of copying it over to a CD and then selling it!
and thanks for the points :o)

Ok, how exactly is the syntax for DMax?
This is what I tried: DMax("Reference";"Kunde";"Institution=1")

I haven't got a clue about the "Criteria" syntax.