Help with underscore

arholly · December 21st, 2006, 03:05 PM

Hello,
I'm still learning my VBA and having some success with it. I'm having problem with one line of code where I want it to insert an underscore and it's throwing me. My line of code is:

Code:

rst("School" & "_" & "Program" & "_" & "Course_Code") = [CourseID]

Obviously using "_" isn't the right way to code it. Could someone help me out.

Thanks in advance,
Arholly

mmcdonal · December 22nd, 2006, 08:04 AM

Try this:

Dim sSPCC As String

sSPCC = "School" & "_" & "Program" & "_" & "Course_Code"

rst(sSPCC) = [CourseID]

HTH

mmcdonal

mmcdonal · December 22nd, 2006, 08:04 AM

Actually, what am I saying? Do this:

sSPCC = "School_Program_Course_Code"

mmcdonal

arholly · December 22nd, 2006, 09:44 AM

It's tossing an error on this line:

rst(sSPCC) = [CourseID]

Now, I'm wondering. Is it throwing an error because [Course_Code] has an underscore as well?

mmcdonal · December 22nd, 2006, 10:09 AM

Yeesh, am I not thinking this morning or what?

Do this:

sSPCC = Me.CourseID

rst("School_Program_Course_Code") = sSPCC

This is if you are taking a value OFF a form and passing it to the recordset for an update or insert.

mmcdonal

arholly · December 22nd, 2006, 10:21 AM

I'm not. I'm creating the CourseID from the Schoool/Program/Course_Code. Because they are unique, they then become the PK.

mmcdonal · December 22nd, 2006, 11:28 AM

Oooooh, I thought you wanted help with a regular expression. Yeesh! <smacking forehead>

Okay, do this:

sSPCC = Me.School & "_" & Me.Program & "_" & Me.COurseCode

Then

rst("PKFieldName?") = sSPCC

mmcdonal

arholly · December 22nd, 2006, 12:19 PM

Okay, when I make the code like follows, it keeps throwing an error on Me.Program, saying method or data member not found.

Code:

Private Sub Command31_Click()
Dim sSPCC As String

Set db = CurrentDb()
Set rst = db.OpenRecordset("tbl_Courses", dbOpenDynaset)

sSPCC = Me.School & "_" & Me.Program & "_" & Me.CourseCode

rst.AddNew
rst("School") = [School]
rst("Program") = [Program]
rst("Course_Code") = [Course_Code]
rst("Course_Description") = [Course_Description]
rst("ISBN") = sSPCC
rst.Update
rst.Close

MsgBox ("Course Added.")

[School] = Null
[Program] = Null
[Course_Code] = Null
[Course_Description] = Null
End Sub

FalseParadigm · December 26th, 2006, 10:39 AM

Everything looks right here from where I look. You may want to check your Me.Program object to make sure the name is correct.

Also, the name "program" may be a special phrase. Try renaming your object to something else.

--------------------------------
Ben

"It's my way, or the Hemingway."
--------------------------------