[Access 2003] VBA Code aanroepen van ander form

[Verwijderd]

Hallo,

Ik heb het volgende probleem. In een orderdatabase heb ik een formulier met daarop een list met produkten. Op het moment dat ik op 1 van de produkten op enter drukt moet het formulier een query uitvoeren, vervolgens moet er in een ander formulier een stukje code uitgevoerd worden. Ik heb redelijk wat ervaring met Access, maar ik heb geen idee hoe je een code aan moet roepen in een ander formulier. De code ziet er als volgt uit:

code:

Private Sub ProduktLijst_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ProduktKiezen: Exit Sub
If KeyAscii = 27 Then DoCmd.Close acForm, "Pakbon_ProduktZoeken"
End Sub

Private Sub ZoekTerm_AfterUpdate()
Me![ProduktLijst].Requery
Me![ProduktLijst].SetFocus

End Sub
Sub ProduktKiezen()
CurrentDb.Execute "UPDATE pakbondetails SET Produktnummer = " & Me![ProduktLijst].Column(3) & " WHERE PakbonDetailID = " & PakbonDetailNummer
Call UpdateInfoFields 'code in formulier pakbondetails (subform van pakbon)
DoCmd.Close acForm, "Pakbon_ProduktZoeken"
End Sub

Alles gaat goed behalve het aanroepen van de code. De code die aangeroepen wordt is een public sub. Ik heb me al helemaal suf gezocht op google, tweakers, officeforms en natuurlijk Access help. Het enige wat ik kan vinden gaat over functions maar daar heb ik weinig aan (denk ik). Ik hoop dat iemand een simpel antwoord weet, want zo moeilijk zou het volgens mij niet moeten zijn.

Alvast bedankt

[Boss]

Probeer er eens een public function van te maken.
Voor de werking maakt het niets uit, maar ik geloof dat Access wel functions kan 'doorgeven' en geen subs. Waarom niet is mij ook een raadsel.

[Verwijderd]

Als ik simpelweg public sub in puclic function verander krijg ik de zelfde foutmelding:

---

Compile Error

Sub or Function not defined.

---

Ook zonder het woord Call ervoor, ik denk dat ik op de 1 of andere manier een formulier naam erbij moet vermelden. Maar ik zou niet weten hoe?

Alvast bedankt voor je reactie

[Verwijderd]

Ik ben eruit, zodra je de function in een module zet kan je hem wel aanroepen vanuit elk formulier. Het is enigzins jammer omdat je dan het argument 'me' niet kan gebruiken. Maar goed we kunnen hiermee wel weer even voorruit.

[onkl]

Eventueel kan je de naam van het formulier als argument aan je functie meegeven.
Private Sub ProduktLijst_KeyPress(KeyAscii As Integer, Form As String)
Bla bla