Vraag om een parameterwaarde in te vullen

[reneemettrie]

Ik heb een access db gemaakt voor het beheer van de leden van de clubs van een federatie (Access 2013). Eén formulier, met code.
Bij mij werkt dit zonder enig probleem.
Maar de andere gebruiker krijgt steeds de vraag om een parameterwaarde in te vullen.

Ik kan dit probleem absoluut niet reproduceren.
cbo_KeuzeClub is een combobox waar vele subs naar refereren. Ik begrijp absoluut niet wat hier aan de hand is?
Denk niet dat het aan de code ligt, maar voeg hem hier toe:

Option Compare Database
Option Explicit


Private Sub cbo_KeuzeClub_AfterUpdate()
'MsgBox cbo_KeuzeClub.Value

DoCmd.ApplyFilter wherecondition:="Clubcode = '" & cbo_KeuzeClub & "'"
cbo_lid.Requery
cbo_ZoekVoornaam.Requery
cbo_Membertpe.Requery
LicenceID.InputMask = cbo_KeuzeClub.Value & "/" & "000"
LicenceID.DefaultValue = cbo_KeuzeClub & "/"
LicenceID.InputMask = cbo_KeuzeClub.Value & "/" & "000"
End Sub

Private Sub cbo_lid_AfterUpdate()
 
 Me.RecordsetClone.FindFirst "LicenceID = '" & cbo_lid.Value & "'"
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub



Private Sub cbo_ZoekVoornaam_AfterUpdate()

Me.RecordsetClone.FindFirst "LicenceID = '" & cbo_ZoekVoornaam.Value & "'"
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub




Private Sub cmd_Close_Click()
DoCmd.Close
End Sub

Private Sub cmd_Dogs_Click()
DoCmd.GoToPage 2
End Sub

Private Sub cmd_Fees_Click()
DoCmd.GoToPage 3
End Sub

Private Sub cmd_Licence_Click()

Dim Bericht As String, Aanspr As String, Onderwerp As String

On Error GoTo MyError
Select Case Languagecode
Case "NL"
    Aanspr = "Beste "
    Onderwerp = "Licentie " & Clubcode
Case Else
    Aanspr = "Bonjour "
    Onderwerp = "Licence " & Clubcode
End Select

Select Case Languagecode
Case "NL"

    Bericht = Aanspr & Firstname & "," & vbNewLine & vbNewLine & _
    "Bedankt voor het hernieuwen van de licentie en je vertrouwen in onze club." _
    & vbNewLine & _
    "In bijlage je voorlopige licentie, die later zal vervangen worden door een definitieve lidkaart." _
    & vbNewLine & _
    "In de hoop je weldra op één van onze evenementen te ontmoeten," _
    & vbNewLine & vbNewLine & _
    "Sportieve groeten," _
    & vbNewLine & vbNewLine & _
    "Brussels Mushing Board."

Case Else

    
    Bericht = Aanspr & Firstname & "," & vbNewLine & vbNewLine & _
    "Merci pour le renouvellement de ta licence et ta confiance dans notre club." _
    & vbNewLine & _
    "En pièce jointe tu trouveras la licence provisoire, qui sera remplacée par une carte définitive plus tard." _
    & vbNewLine & _
    "En espérant de te rencontrer bientôt pendant un de nos évènements," _
    & vbNewLine & vbNewLine & "Salutations sportives," & vbNewLine & vbNewLine & "Brussels Mushing Board."
End Select




DoCmd.OpenReport reportname:="rpt_licence", view:=acViewPreview, _
wherecondition:="LicenceID =" & "'" & LicenceID & "'"
DoCmd.SendObject objecttype:=acSendReport, Objectname:="rpt_licence", to:=email, subject:=Onderwerp, _
messagetext:=Bericht, outputformat:=acFormatPDF

DoCmd.Close objecttype:=acReport, Objectname:="rpt_licence"
MyError:
Exit Sub
End Sub

Private Sub cmd_New_Click()
DoCmd.GoToRecord record:=acNewRec
'MsgBox cbo_KeuzeClub.Value
Dim LaatsteID As String, LaatsteNr As Integer, NieuweID As String

LaatsteID = DLast("LicenceID", "Clubmembers", "clubcode = '" & cbo_KeuzeClub & "'")
LaatsteNr = CInt(Right(LaatsteID, 3))
'MsgBox LaatsteID & vbNewLine & LaatsteNr
NieuweID = Replace(LaatsteID, LaatsteNr, LaatsteNr + 1)
'MsgBox NieuweID
LicenceID = NieuweID
Firstname.SetFocus
End Sub

Private Sub cmd_ribbon_Click()
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End Sub

Private Sub Form_Current()
On Error GoTo MyError 'Nieuw lid

With HyperlinkMail
    .Caption = email.Value
    .HyperlinkAddress = "mailto:" & email.Value
End With


cbo_lid = LicenceID
cbo_ZoekVoornaam = LicenceID
cmd_New.Caption = "New Member for " & cbo_KeuzeClub
cmd_Licence.Caption = "Mail Licence for " & Firstname

MyError:
Exit Sub
End Sub
Private Sub Form_Load()
'Dim paswoord
'paswoord = InputBox("Password?", , "MBEL")
'Select Case paswoord
'Case "VFS"
'cbo_KeuzeClub = "VFS"
'cbo_KeuzeClub.Locked = True
'Case "TIT"
'cbo_KeuzeClub = "TIT"
'cbo_KeuzeClub.Locked = True
'Case "SRT"
'cbo_KeuzeClub = "SRT"
'cbo_KeuzeClub.Locked = True
'End Select

DoCmd.ApplyFilter wherecondition:="Clubcode = '" & cbo_KeuzeClub.Value & "'"
End Sub

Private Sub Form_Open(Cancel As Integer)

DoCmd.Maximize
DoCmd.ShowToolbar "Ribbon", acToolbarNo

End Sub

 

[OctaFish]

De code werkt, dus daar ligt het vermoedelijk niet aan. Je kunt dan hooguit naar bibliotheken kijken, die op de andere computer niet of verkeerd staan. Compileer de db eerst eens bij jezelf (zal geen problemen mogen opleveren) en dan ook bij de andere gebruiker. Daar zou hij dan fouten kunnen vinden. Die fout heeft doorgaans niks met het probleem te maken, maar moet wel worden opgelost.

 

[reneemettrie]

Bedankt voor de tips.
Hij gaat het proberen. Ik denk dat hij met 2016 werkt, DB is gemaakt in 2013.
Destijds heb ik ook problemen gehad met keuzelijsten die altijd hadden gewerkt en dat plots niet meer deden (met code die Access er zelf achter had gezet). Heb toen een lege DB gemaakt, alles van de andere geïmporteerd en plots werkte alles weer correct...

 

[reneemettrie]

Even een late update.
De andere gebruiker heeft de testen nog niet uitgevoerd.
Ondertussen heb ik op mijn eigen computer Office 2016 geïnstalleerd en nog steeds geen probleem, niet bij de compilatie, bibliotheken noch uitvoering.
De database staat op OneDrive, ik kan ze openen vanuit Access op mijn PC en vanaf OneDrive, probleem doet zich niet voor.
Maar nu doe ik een download vanuit OneDrive op mijn oude PC, en bij het openen van het formulier wordt onmiddellijk twee keer naar die parameterwaarde gevraagd. Geen probleem bij compileren en bibliotheken lijken OK. Op de oude PC staat Office 2013.