Oprette en ny post, hvis den ikke eksistere i forvejen.

Jeg kan godt lige lave det, men der skal 100 point mere i posen. Hvis det er aktuelt, så send databasen med formen til min e-mail adresse, og jeg laver det til dig

min e-mail er forresten:
gooky_dk@yahoo.dk

Skriv lige herinde hvis du sender en email, da jeg ikke tjekker den så tit

jeg kan også lave det uden databasen, men så er der helt sikkert nogle fejl, jeg ville kunne rette hvis jeg har databasen.

Hvis du er bange for at jeg stjæler noget fra din database, så tag en kopi, tag det vigtigste ud(alt det jeg ikke skal se på) og lad mig få resten.

det gider du ikke eller hvad?

Yep. Jeg finder lige databasen, og sender den til dig. Øjeblik...

... ok, nu har jeg lavet en version der virker, men er kommet i tanke om at det MULIGVIS ikke er det du vil have. Men der er en version som muligvis er det du vil have.

Anyway, jeg kører 2000 og det kan jeg se at du ikke gør. Så det bliver måske svært bare at sende databasen. Vi må lige finde på noget andet. I mens det sker, så prøver jeg også lige at lave det som jeg tror du gerne vil have det.

spg er åbnet igen, da gooky ikke kunne finde ud af at lave det...

Jeg kan måske lave det, men jeg skal også bruge en kopi af din DB
phn@jubiipost.dk

send mig db, og en beskrivelse saa skal jeg lave det for dig

kedde@imada.sdu.dk

Du kan prøve med dette her i en comboboks der slår op i den pågældende tabel:
Generer koden i eventet on not in list.
Husk at vælge DAO i referencer.
Private Sub Serienr_NotInList(NewData As String, Response As Integer)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Serienr As String
On Error GoTo Serienr_NotInListErr:
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open \"Tbl_LegatTyper\", cn, adOpenKeyset, adLockOptimistic
Serienr = InputBox(\"Serienr findes ikke!\" _
& vbNewLine & \"Angiv et Serienr ,hvis du ønsker at oprette en nyt\", \"Opret nyt Serienr?\")
If Not Serienr = \"\" Then
rs.AddNew
rs!LegatType = NewData
rs!LegatType = Serienr
rs.Update
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
Set rs = Nothing
Exit Sub
Serienr_NotInListErr:
MsgBox \"Fejl:\" & Err.Number & \", \" & _
Err.Description, vbCritical, \"Fejl\"

End Sub

Jeg er ikke interesseret i combobox løsningen, da jeg så hvidt jeg husker kun kan indeholde 16384 elementer. Den kode jeg allerede har lavet finder ud af om serienummeret findes i forvejen.
Databasen ligger på http://www.danbbs.dk/~lsf/db1.zip

Prøv at lave \"Lager Ind\" til en subform og oprette en ny form der er \"moder\".
I \"moder\" laver du en tekstboks der eks. hedder SerienrOpslag. I Link ChieldFields skriver du Serienr og i Masterfields SerienrOpslag. For Tekstboksen under events - Efter opdatering lægger du følgende kode :

Private Sub SerienrOpslag_AfterUpdate()
  Dim SQL As String
    SQL = \"SELECT LagerInd.Serienr FROM LagerInd \"
    If Not IsNull(Me.Serienr) Then
    SQL = SQL & \"WHERE \"
    If Not IsNull([Forms]![Lager Ind]![SerienrOpslag]) Then
      SQL = SQL & \"Serienr like \'*\" & [Forms]![Lager Ind]![SerienrOpslag] & \"*\' AND\"
    End If
    SQL = Mid$(SQL, 1, Len(SQL) - 4)
End If
End Sub

Ja så har jeg et foreslag
men jeg skal lige have et sted at sende din DB  hen

Db´en kan sendes til yo@danbbs.dk

Flot, veldokumenteret og stabil kode, fra PoulH. For interesserede, kan resultatet betragtes på http://www.danbbs.dk/~lsf/db3.zip