topic How to call a Module with antother Module in VBA! in ArcObjects SDK Questions

How to call a Module with antother Module in VBA!

chriss_ — Mon, 31 May 2010 07:39:20 GMT

Hi!

What I am looking for is very basic. I have a project containing two modules. Now I want to call one module by the other module. What I mean is I want the second module to be executed by the first module. I thought the "call" command would be the right way to do but I always get an error message. I also tried writing in brackets ("Process1") but this didnt work as well. Any suggestion what command to use? Has this something to do with private and public subs?

Private Sub Testprocess()

Dim pMxDoc As IMxDocument
Dim pFeatLayer As IFeatureLayer
Dim pFeatureClass As IFeatureClass
Dim pFeatureCursor As IFeatureCursor
Dim pField As IField
Dim pFeature As IFeature
Set pMxDoc = ThisDocument
Set pFeatLayer = pMxDoc.FocusMap.Layer(0)
Set pFeatureClass = pFeatLayer.FeatureClass
Set pFeatureCursor = pFeatureClass.Search(Nothing, False)
Set pFeature = pFeatureCursor.NextFeature
Dim n As Integer

Dim pProcessID As Integer

Do Until pFeature Is Nothing
pProcessID = pFeature.Value(pFeature.Fields.FindField("Process_ID"))
If (pProcessID = 1) Then

Call Process1

Else: End If

Set pFeature = pFeatureCursor.NextFeature
Loop

End Sub

Thanks for your help

Re: How to call a Module with antother Module in VBA!

JunFolledo — Thu, 03 Jun 2010 20:15:16 GMT

yes, if a Sub or Function is declared as Private in another module, you cannot call it from another module. You can call it only on the same module.

Re: How to call a Module with antother Module in VBA!

RuchiraWelikala — Sat, 11 Dec 2021 08:18:33 GMT

Just make the Declaration of the procedures (subs) public. It should look something like this:

Public Sub Testprocess()

Dim pMxDoc As IMxDocument
Dim pFeatLayer As IFeatureLayer
Dim pFeatureClass As IFeatureClass
Dim pFeatureCursor As IFeatureCursor
Dim pField As IField
Dim pFeature As IFeature
Set pMxDoc = ThisDocument
Set pFeatLayer = pMxDoc.FocusMap.Layer(0)
Set pFeatureClass = pFeatLayer.FeatureClass
Set pFeatureCursor = pFeatureClass.Search(Nothing, False)
Set pFeature = pFeatureCursor.NextFeature
Dim n As Integer

Dim pProcessID As Integer

Do Until pFeature Is Nothing
pProcessID = pFeature.Value(pFeature.Fields.FindField("Process_ ID"))
If (pProcessID = 1) Then

Call Process1


Else: End If

Set pFeature = pFeatureCursor.NextFeature
Loop

End Sub

Re: How to call a Module with antother Module in VBA!

chriss_ — Fri, 04 Jun 2010 02:12:38 GMT

Hi!

Thanks. I figured it out

Best regards
Chris