Standardværdi eller hvad?

"som skal tildeles en værdi automatisk"

Så vidt så godt. Men den tildelte værdi (felt1) må så være afhængig af indtastningen i et andet felt (lad os kalde det felt2). Dette felt kan så være en Null værdi og eksempelvis måle om det er en ny record:

If me.newrecord then
me.felt1 = A0
end if

Den næste indtastning kan så måle på felt1:

If me.felt1 = "A0" then
me.felt1 = "A1!
end if

Måske det ville være nemmere med en Select Case struktur.

Du kan klare det med en quick-and-dirty v.h.a. en lille tabel, der indeholder "tæller" værdien og en smule kode:

- Opret en tabel ved navn Tæller med et eneste felt: Nr (heltal)
- Opret en post i tabellen med Nr=0

I din indtastningsformular erklærer du en variabel i toppen (før første rutine):

Dim Tlr As Integer

.. og tilføjer to små kode-stumper:

Private Sub Form_BeforeInsert(Cancel As Integer)
  Tlr = DLookup("Nr", "Tæller")
  Me.EnTekst = "A" & Tlr
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
  DoCmd.SetWarnings False
  If Tlr = 6 Then
    DoCmd.RunSQL "UPDATE Tæller SET Nr=0"
  Else
    DoCmd.RunSQL "UPDATE Tæller SET Nr=Nr+1"
  End If
  DoCmd.SetWarnings True
End Sub

Det giver dig ikke en defaultværdi; men den første rutine sætter A0 osv ind i et felt, idet du skriver det første tegn i posten.

Den anden rutine tæller tælleren op når du gemmer en post.

Håber, du kan få det til at spille  ;o)

Jeg prøver mig lige frem.Jeg er ikke så hurtig så jeg vender nok først tilbage imorgen

fdata

Det virker ikke ikke efter hensigten. Når jeg åbner formularen og forsøger at indtaste date, får jeg fejl "Ambiguous name detected"
Lad os lige resumere.
Jeg har oprettet tabellen "Tæller" med et felt "Nr".
Derefter har jeg insat - Dim Tlr As Integer - under "Option Compare Database" -er det correct.
De to stykker kode er derefter sat ind.

"Ambiguous name detected"

Kan betyde, at du ved en fejl har oprettet det samme procedurenavn 2 gange.

Jeg vil anbefale, at du under "Option Compare Database" tilføjer Option Explicit som betyder, at du er tvunget til at navngive dine variabler. Det kan spare dig for mange fejl fremover.

Private Sub Form_BeforeInsert(Cancel As Integer)
On Error GoTo err_handling
Dim rst As DAO.Recordset, i As String
Set rst = Me.RecordsetClone
rst.MoveLast
i = rst!id
Select Case i
Case "A1"
Me.nr = "A2"
Case "A2"
Me.nr = "A3"
Case "A3"
Me.nr = "A4"
Case "A4"
Me.nr = "A5"
Case "A5"
Me.nr = "A6"
Case Else
Me.nr = "A1"
End Select
rst.Close
Exit Sub
err_handling:
If Err.Number = 3021 Then
Me.nr = "A1"
Exit Sub
End If
MsgBox Err.Number & " " & Err.Description
End Sub

Sorry!~)

Private Sub Form_BeforeInsert(Cancel As Integer)
On Error GoTo err_handling
Dim rst As DAO.Recordset, i As String
Set rst = Me.RecordsetClone
rst.MoveLast
i = rst!nr
Select Case i
Case "A1"
Me.nr = "A2"
Case "A2"
Me.nr = "A3"
Case "A3"
Me.nr = "A4"
Case "A4"
Me.nr = "A5"
Case "A5"
Me.nr = "A6"
Case Else
Me.nr = "A1"
End Select
rst.Close
Exit Sub
err_handling:
If Err.Number = 3021 Then
Me.nr = "A1"
Exit Sub
End If
MsgBox Err.Number & " " & Err.Description
End Sub

Ja, nu er jeg ikke helt sikker, dit felt i formularen hedder nr ellers så må du lige skifte rst!nr og me.nr ud i koden!~)

Nu har jeg compile error, og "En Tekst" i den første kode er blåt. Så det tyder jo på at der er noget galt i det stykke kode. Jeg har checket mine indtastninger en gang til.

Må vi den fulde kode og hvilken linie der er fremhævet med en fejl.

Mit felt formularen hedder "A check"

Tlr = DLookup("Nr", "Tæller")
  Me.EnTekst = "A" & Tlr

"EnTekst" er blåt

Jeg har prøvet at mit feltnavn- A check- ind i stedet for "En tekst", men det ændrer ikke noget

Jeg plejer at sætte feltnavnet i "":

DLookup("[Nr]", "Tæller")

Men noget tyder på, at feltet EnTekst ikke kan genkendes. Det burde iøvrigt være nok med:

Me.EnTekst = "A" & DLookup("[Nr]", "Tæller")

Hvad mener du med dette:

Mit felt formularen hedder "A check"

Når du i koden har feltet EnTekst??

Med lidt hjælp fra mugs og spg ser det ud yil at virke. Det er jo selv følge formularens felt Me refererer til og det skal jo i klammer.
Det store problem er hvordan jeg fordeler point. Hvis det er iorden vil jeg godt give fdata 100 og 25 til mugs og spg. Så læg lige jeres svar.Hvordan deler man dem.
Mange tak for hjælpen.

Vi skal alle lægge et svar. Kommentarer kan ikke honoreres.

http://expfaq.dk/behandling_af_svar#behandling_af_svar

Men det vigtigste er, at din db fungerer.

fdata læg lige et svar, så jeg kan give point.

Så er jeg tilbage. Spændende battle.
mugs >> Tak for assistance
49jensen >> Du har rystet godteposen over de andre. Der er ikke flere point. Det er ok.

Hej!~)

iflg. 16/09-2008 23:32:23 så er der her 50p til fdata!~)

http://www.eksperten.dk/spm/845847

fdata>ja, en lille battle er altid herligt og mit eget lille testprogram havde jeg stor fornøjelse af at se i aktion!~)

og her er en lille hilsen fra mugs!~)

http://www.eksperten.dk/spm/845853

OK spg - Tak