Code gevraagd. Input of Print?

[Aquiahora]

Hoi allemaal,

Ik zou graag een tekstvak willen vullen met waarde uit een geselecteerd veld. Ik ken de code niet hiervoor. (ik ben geen VBA'er)

Op een rijtje;
Ik heb een frm waarop een knop staat die een subform opent. Op dat subform kun je openstaande nota's kiezen. Ik wil dan 1 nota selecteren en dat notanummer automatisch op mijn hoofdform laten invullen.
Ik dacht hiervoor in het boek iets gevonden te hebben als Input #Bestandnummer, Variabele. Of: Print #Bestandnummer, Variabele.
Maar zoals gezegd ik ben geen VBA'er en kan hier niet zoveel mee. En waar zet ik die code dan? Bij eigenschappen van het hoofdform? Of bij het subform?

!!!! Heb inmiddels wat meer gevonden. Denk dat deze beter is. Maar bij de onderstaande code kan die niks met de code IsFormLoaded. Ook niet als ik die verander in IsOpen

Wil iemand mee helpen? Alvast bedankt.

Dim stDocName As String
Dim stLinkCriteria As String

DoCmd.OpenForm "Debiteuren1", , , , , acDialog
If IsFormLoaded("Debiteuren1") Then
Me!omschrijving = Forms!Debiteuren1!Me![Fact-nr].Value
DoCmd.Close acForm, "Debiteuren1"

End If

 

[Guus2005]

Google: IsLoaded

  sub IsLoaded(strCaption)
    Dim i%
    For i% = 0 To Forms.Count -1
    If (Forms(i%).Caption =strCaption) Then 
    Msgbox "The form/window is loaded"
    else
    Msgbox "the form isn't loaded"
    end if
    End If Next i

Oftewel:

Public function FormIsLoaded(strCaption as string) as boolean
    Dim i as integer
    Dim blnResult as boolean
    blnResult = False
    For i = 0 To Forms.Count -1
        If (Forms(i).Caption =strCaption) Then 
            blnResult=True
            Exit For
        End If 
    Next i
    FormIsLoaded = blnResult
end function

Enjoy!

 

[Aquiahora]

Bedankt ga ermee aan de slag.