Criar funções em MDL

Private Sub Molde()
Dim rstMoldeExistente As Recordset
'Dim rstRefCliMolde As Recordset
Dim rstArt As Recordset
Dim rstMolde As Recordset
Dim rstMoldeMov As Recordset
Dim rstMoldeRefWF As Recordset
Dim rstQry As Recordset

Dim ref As Integer
Dim intSearch As Integer
Dim criarMolde As Variant

Set rstMolde = glbMyDb.OpenRecordset("tblMolde")
rstMolde.index = "PrimaryKey"

Set rstMoldeMov = glbMyDb.OpenRecordset("tblMoldeMovimento")
rstMoldeMov.index = "PrimaryKey"

Set rstMoldeRefWF = glbMyDb.OpenRecordset("tblMoldeRefWF")
rstMoldeRefWF.index = "PrimaryKey"

Set rstArt = glbMyDb2000.OpenRecordset("tblFich_Art")
rstArt.index = "PrimaryKey"

Set rstMoldeExistente = glbMyDb2000.OpenRecordset("tblMoldes")
rstMoldeExistente.index = "PrimaryKey"
rstMoldeExistente.MoveFirst
Do While Not rstMoldeExistente.EOF
rstMoldeRefWF.index = "RefWF"
rstMoldeRefWF.Seek "=", rstMoldeExistente!M_REFINT
If rstMoldeRefWF.NoMatch Then
rstArt.Seek "=", rstMoldeExistente!M_REFINT
If Not rstArt.NoMatch Then
If Not IsNull(rstArt!M_REFCLIMOLDE) Then
Set rstQry = glbMyDb2000.OpenRecordset("Select * from tblFich_Art Where M_REFCLIMOLDE='" & rstArt!M_REFCLIMOLDE & "'")
rstQry.MoveFirst
' Dá código ao novo molde (111xxxx)
' Cria molde em tblMolde
Do While rstQry.EOF
' Cria relação em tblMoldeRefWF
rstQry.MoveNext
Loop
Else
' Dá código ao novo molde (111xxxx)
' Cria molde em tblMolde
' Cria relação em tblMoldeRefWF
End If
' Cria movimento em tblMovimentoMolde
End If
Else
' Cria movimento em tblMovimentoMolde
End If
rstMoldeExistente.MoveNext
Loop
rstMoldeExistente.Close
Set rstMoldeExistente = Nothing
rstMolde.Close
Set rstMolde = Nothing
rstMoldeMov.Close
Set rstMoldeMov = Nothing
rstMoldeRefWF.Close
Set rstMoldeRefWF = Nothing
rstArt.Close
Set rstArt = Nothing
End Sub


Minha gente preciso de fazer o que esta comentado:
' Dá código ao novo molde (111xxxx)
' Cria molde em tblMolde
' Cria relação em tblMoldeRefWF
' Cria movimento em tblMovimentoMolde

Alguem me pode ajudar a fazer essas funções? Obrigado a todos! Campus

Resolveste isto?


Cumprimentos.