Passing Arguements to a function

  • Thread starter Thread starter Lisa B.
  • Start date Start date
L

Lisa B.

Is there a way to only pass two(2) arguements to a function if the function
is waiting for five(5)

1. For example I have a function that adds a record to a table.
2. On a form the user inputs First Name, Last Name, type, Title, and Level
3. First Name and Last Name are required fields
4. I don't want Type, Title. or Level to be required (they should be
optional inputs)
5. the user presses a button that calls the following function

Public Function NewRecruit(first, last, Otype, Title, Level As
String)

6. the code behind the button looks like this

NewRecruit Me![txtFName], Me![txtLName], Me![txtType],
Me![txtTitle], Me![txtLevel]

7. an error is generated if the user only inputs the first and last name
**Invalid use of Null***

8. the code for the function is as follows

Set TheDB = CurrentDb
Set SourceRS = TheDB.OpenRecordset("tblRecruitment", dbOpenDynaset)


With SourceRS
.AddNew
!CommunityID = GLBL_Community
!OfficialType = Otype
!OfficialLevel = Level
!Title = Title
!FName = first
!LName = last
.Update
.Bookmark = .LastModified
End With
RecruitID = SourceRS![OfficialID]


SourceRS.Close
 
Is there a way to only pass two(2) arguements to a function if the
function is waiting for five(5)
Click to expand...

Look up help for the Optional keyword.

Look up help for ParamArray.

Look up help for Variant Arrays.

HTH


Tim F
 
Lisa said:
5. the user presses a button that calls the following function

Public Function NewRecruit(first, last, Otype, Title, Level As String)
[...]
7. an error is generated if the user only inputs the first and last name
**Invalid use of Null***
Click to expand...

You get the error because Level is expected to be a string, but a Null
value is not. I think you should define parameters as variant instead of
string:

Public Function NewRecruit(first As Variant, last As Variant, Otype As
Variant, Title As Variant, Level As Variant)

Hope it works!


Francesc
 
Not positive, but I think that the AddNew is failing because there a null
values in the 3 of 5 fields that are left blank. There is a thing called the
Nz( ) function that will replace Null values with zero length strings and
let the AddNew proceed. This will only work if you table is setup to allow
zero-length strings in the fields. I think this would work.

With SourceRS
.AddNew
!CommunityID = Nz(GLBL_Community,"")
!OfficialType = Nz(Otype,"")
!OfficialLevel = Nz(Level,"")
!Title = Nz(Title,"")
!FName = Nz(first,"")
!LName = Nz(last,"")
Click to expand...


Lisa B. said:
Is there a way to only pass two(2) arguements to a function if the function
is waiting for five(5)

1. For example I have a function that adds a record to a table.
2. On a form the user inputs First Name, Last Name, type, Title, and Level
3. First Name and Last Name are required fields
4. I don't want Type, Title. or Level to be required (they should be
optional inputs)
5. the user presses a button that calls the following function

Public Function NewRecruit(first, last, Otype, Title, Level As
String)

6. the code behind the button looks like this

NewRecruit Me![txtFName], Me![txtLName], Me![txtType],
Me![txtTitle], Me![txtLevel]

7. an error is generated if the user only inputs the first and last name
**Invalid use of Null***

8. the code for the function is as follows

Set TheDB = CurrentDb
Set SourceRS = TheDB.OpenRecordset("tblRecruitment", dbOpenDynaset)


With SourceRS
.AddNew
!CommunityID = GLBL_Community
!OfficialType = Otype
!OfficialLevel = Level
!Title = Title
!FName = first
!LName = last
.Update
.Bookmark = .LastModified
End With
RecruitID = SourceRS![OfficialID]


SourceRS.Close
Click to expand...
 
Back
Top