Ouverture formmulaire access

Bonjour,
alors j'ai un formulaire demande avec le quel je veux ouvrir un autre formulaire
donc j'ai fais le code sur le clic du bouton :
Private Sub fiche_w_Click()
If IsNull(numId) Then
MsgBox ("Veuillez selectionner une demande dans le sous formulaire")
Else
DoCmd.OpenForm "fm_fiche_w", acNormal, , , , , numId
End If
End Sub

numid est donné avant mais g pa mi tout le code c trop long et sa sa marche c le suivant qui marche pas

et voila le code sur ouverture du formulaire :

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Me.Filter = "fw_id_dem=" & Me.OpenArgs
Me.FilterOn = True
Dim requete As String
requete = ("select * from demande where dem_id =" & Me.OpenArgs)
Dim source As ADODB.Recordset
Set source = CurrentDb.OpenRecordset(requete, DB_OPEN_DYNASET)
Me.fw_id_dem = source("dem_id")
Me.destination = source("dem_des")
Me.nature = source("dem_nat")
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub

si quelqu'un peut m'aider