Komninationsboks til tekst feltr med indtastning

Jeg går ud fra, at din kombinationsboks er bundet til et felt, og det er dette felt du gerne vil have muligheden for også at indtaste et valgfrit navn ???

Eller er jeg helt gal på den ?

I egenskaber til kombinationsboksen markerer du BegrænsTilListe = Nej. Herefter har du både mulighed for at vælge blandt dem som allerede er i listen, eller selv indtaste et nyt navn.

Hvis du tillige vil have tilføjet det nye navn i din medarbejderliste, skal du have en opdateringsforespørgsel tilknyttet hændelsesproceduren AfterUpdate

Hvis din combo er bundet "tilbage i db" til er felt i tabellen, skal du slette opslaget og lave combo til en tekstboks. Du skal så trække det ind i formularen igen.

Hvis det ikke er er en combo i tabellen, kan du blot trække felterne fornavn og efter navn ind i forespørgslen / formularen. Slet herefter combo.

Det var vist noget sludder jeg fik fyret af der. Maria - Se venligst bort fra mit svar.

Op ret et felt i tabellen med brugernavn og brug dette felt som kontrolelementkilde til dit felt på formularen. Jeg har kaldt Felterne på formularen brugernavn og password og felterne i tabellen t_user for username og password

På din OK-knaps VedKlik hændelse skriver du:

    Dim stDocName As String
    Dim stLinkCriteria As String

'Test if the field "Brugernavn" is empty
If IsNull(Me!Brugernavn) Or Me!Brugernavn = "" Then
    MsgBox "Du skal skrive et brugernavn", vbCritical, "Skriv et brugernavn"
    Me!password = ""
    DoCmd.GoToControl "brugernavn"
    Exit Sub
End If

'Test if the user exists
If DCount("*", "t_user", "username = '" & Me!Brugernavn & "'") = 0 Then
    MsgBox "Brugernavnet findes ikke", vbCritical, "Brugeren findes ikke"
    Me!brugernavn = ""
    DoCmd.GoToControl "Brugernavn"

    Exit Sub

'Test if the password is correct
ElseIf DCount("*", "t_user", "password = '" & Me!password & "' And username = '" & Me!Brugernavn & "'") = 0 Then
        MsgBox "Forkert adgangskode", vbCritical, "Adgangskoden er forkert"
    DoCmd.GoToControl "Brugernavn"
    Exit Sub

Else
    stDocName = "MinNæsteFormular"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Exit Sub
End If

feltet ubundet

Problemet er at der er alt for mange brugernavne til min kombinationsboks fordi den er tilknyttet min medarbejder tabel!!

Ja det er rigtigt. Feltet skal være ubundet.

hmm HEKLA har lidt problemer med at den skriver at password og bruger navn ikke passer sammen

Type mismach skriver den

Den er beregnet på at både brugernavn og password er tekstfelter, og at formularens felter er formateret som tekst

hmm det er fordi jeg allerede havde lavet en kode der hedder: Option Compare Database
Option Explicit

Public MedarbejderId As Long

Function CheckBruger(BrugerID As Long, Password As String) As Boolean

    Dim db As Database, rs As DAO.Recordset

    On Error GoTo CheckBruger_Error
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Medarbejder", dbOpenSnapshot)

    rs.FindFirst "[MedarbejderID]=" & BrugerID & " AND [Password]='" & Password & "'"
    If rs.NoMatch Then
        CheckBruger = False
    Else
        CheckBruger = True
        MedarbejderId = BrugerID
    End If

    rs.Close
    Set rs = Nothing
   
    Exit Function

CheckBruger_Error:
MsgBox Error$

End Function


Men den er beregnet på en kombinationsboks og på, at det er tal felter...

Option Compare Database  'Anvend databasens rækkefølge til strengsammenligninger.
Option Explicit



Private Sub Cancel_Click()

    Dim svar As Integer

    svar = MsgBox("Vil du lukke hele systemet!" & vbNewLine & vbNewLine & "Er du sikker?", vbQuestion + vbYesNo, "Afslut?")
    If svar = vbYes Then
        DoCmd.Quit
    Else
        Me.initialer.SetFocus
    End If

End Sub

Private Sub Form_Load()
    On Error Resume Next
    Me!Programname = GetProgamname
End Sub





Private Sub OK_Click()

    Static Tries As Integer
    On Error GoTo ok_click_fejl

    If Not IsNull(Me!Password) And Not IsNull(Me!initialer) Then
        If CheckBruger(Me!initialer, Me!Password) Then
            DoCmd.Close acForm, Me.Name
            DoCmd.OpenForm "Hovedmenu"
        Else
            MsgBox "Der er indtastet forkert password!", vbCritical, "Fejl!"
            Me!Password = ""
            Me!Password.SetFocus
            Tries = Tries + 1
            Exit Sub
        End If
    Else
        If IsNull(Me!initialer) Then
            MsgBox "Brugernavn mangler!", vbCritical, "Fejl!"
            Me!initialer.SetFocus
        End If
    End If
    Exit Sub
ok_click_fejl:
    If Err <> 94 Then
        MsgBox Error$ & Chr(10) & Str(Err)
    End If
    Resume Next
End Sub

Private Sub password_Change()
    Me!OK.Enabled = True
    Me!OK.Default = True
End Sub

Og disse VBa koder tilknyttet formularen

Hmm jeg har lidt svært ved at overskue hvad jeg gør gald - istedet for medarbejder id skal de kun indtaste brugernavn og password -

Nu fungere den sådan at jeg kun kan taste medarbejderid og kode for at komme ind

Ja den er noget mere elegang end min. Hvis du vil bruge brugernavn i stedet for brugerID, skal du ændre lidt på tegnsætningen.
'" & BrugerNavn & "' i stedet for " & BrugerID & "

Function CheckBruger(BrugerNavn As String, Password As String) As Boolean

    Dim db As Database, rs As DAO.Recordset

    On Error GoTo CheckBruger_Error
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Medarbejder", dbOpenSnapshot)

    rs.FindFirst "[MedarbejderID]= '" & BrugerNavn & "' AND [Password]='" & Password & "'"
    If rs.NoMatch Then
        CheckBruger = False
    Else
        CheckBruger = True
        MedarbejderId = BrugerID
    End If

    rs.Close
    Set rs = Nothing
   
    Exit Function

CheckBruger_Error:
MsgBox Error$

End Function

hekla skal denne ikke ændres rs.FindFirst "[MedarbejderID]= '" & BrugerNavn & "' AND [Password]='" & Password & "'"

Jo det har du ret i:

rs.FindFirst "[Brugernavn]= '" & BrugerNavn & "' AND [Password]='" & Password & "'"

eller

rs.FindFirst "[Brugernavn]= '" & Me!BrugerNavn & "' AND [Password]='" & Me!Password & "'"

Jeg er ikke så god til det der med recordsets :o)

Fik du det til at virke?

nope det vil ikke helt - Det skulle gerne ligne den login funktion Thomas har lavet på Makeiteasy.dk

Hvor er du strandet?

ja hekla ikke ret mange steder den vil bare ikke!!

Hvilken fejlmeddelelse får du?

HEKLA det er løst med koden: Option Compare Database
Option Explicit

Public Username As String

Function CheckBruger(Login As String, Password As String) As Boolean

    Dim db As Database, rs As DAO.Recordset

    On Error GoTo CheckBruger_Error
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Medarbejder", dbOpenSnapshot)

    rs.FindFirst "[Fornavn]='" & Login & "' AND [Password]='" & Password & "'"
    If rs.NoMatch Then
        CheckBruger = False
    Else
        CheckBruger = True
        Username = Login
    End If

    rs.Close
    Set rs = Nothing
   
    Exit Function

CheckBruger_Error:
MsgBox Err.Description

End Function



Public Function GetProgamname()
    GetProgamname = "TimeReg"
End Function

JEg takker for din indsats alligevel - du får hermed point

OK. Tak for point.