Using a variable to identify a field.

Here is My code for starters:

Expand|Select|Wrap|Line Numbers

 Select Case varMonth

        Case Is = 1

            varLongMonth = "January"

        Case Is = 2

            varLongMonth = "Feburary"

        Case Is = 3

            varLongMonth = "March"

        Case Is = 4

            varLongMonth = "April"

        Case Is = 5

            varLongMonth = "May"

        Case Is = 6

            varLongMonth = "June"

        Case Is = 7

            varLongMonth = "July"

        Case Is = 8

            varLongMonth = "August"

        Case Is = 9

            varLongMonth = "September"

        Case Is = 10

            varLongMonth = "October"

        Case Is = 11

            varLongMonth = "November"

        Case Else

            varLongMonth = "December"

    End Select

    txttest = varLongMonth
 
    Dim db As DAO.Database

    Dim rs1 As DAO.Recordset
 
    Set db = CurrentDb()

    Set rs1 = db.OpenRecordset("Query_2")

    rs1.MoveFirst
 
    Do Until rs1.EOF

        If rs1![ID] = Val(ID) Then

            NumOrdTotal = rs1!varLongMonth + Val(NumOrd)

            rs1.Edit

            rs1!varLongMonth = NumOrdTotal

            rs1.Update

        End If

        rs1.MoveNext

    Loop
 
  rs1.Close

  Set rs1 = Nothing

  Set db = Nothing

At the line, NumOrdTotal = rs1!varLongMonth + Val(NumOrd) , I get an error saying: Item not found in Collection.

I believe I am getting this error because where the field belongs at rs1!"fieldName" I have a variable. I need to be able to use this variable to identify the field depending on certain criteria. How can I use this variable to do that?

Feb 15 '07 #1

Subscribe Post Reply

2134

NeoPa

32,556

Expert Mod 16PB

Try :

Expand|Select|Wrap|Line Numbers

rs1.Fields(varLongMonth)

Feb 15 '07 #2

NeoPa

32,556

Expert Mod 16PB

Try using this to convert month number to string :

Expand|Select|Wrap|Line Numbers

varLongMonth = Format(CDate("25/" & varMonth & "/1999"),"mmmm")

Feb 15 '07 #3

tehgreatmg

Try :

Expand|Select|Wrap|Line Numbers

rs1.Fields(varLongMonth)

Thanks NeoPa that did the trick, but now I got another probelm, WOOHOO. I can not get it to enter data into other records, just the first record. It is not giving any errors it runs it like its working. So its just some little thing.

Updated Code:

Expand|Select|Wrap|Line Numbers

     Select Case varMonth

        Case Is = 1

            varLongMonth = "January"

        Case Is = 2

            varLongMonth = "Feburary"

        Case Is = 3

            varLongMonth = "March"

        Case Is = 4

            varLongMonth = "April"

        Case Is = 5

            varLongMonth = "May"

        Case Is = 6

            varLongMonth = "June"

        Case Is = 7

            varLongMonth = "July"

        Case Is = 8

            varLongMonth = "August"

        Case Is = 9

            varLongMonth = "September"

        Case Is = 10

            varLongMonth = "October"

        Case Is = 11

            varLongMonth = "November"

        Case Else

            varLongMonth = "December"

    End Select

    txttest = varLongMonth

'========================================================================================

    Dim db As DAO.Database

    Dim rs1 As DAO.Recordset
 
    Set db = CurrentDb()

    Set rs1 = db.OpenRecordset("CartUse")

    rs1.MoveFirst
 
    Do Until rs1.EOF

        If rs1.Fields(ID) = Val(ID) Then

            NumOrdTotal = Val(rs1.Fields(varLongMonth)) + Val(varNumOrd)

            txttest2 = Val(NumOrdTotal)

            rs1.Edit

            rs1.Fields(varLongMonth) = Val(NumOrdTotal)

            rs1.Update

        End If

        rs1.MoveNext

    Loop
 
  rs1.Close

  Set rs1 = Nothing

  Set db = Nothing

Feb 16 '07 #4

NeoPa

32,556

Expert Mod 16PB

You need to post this as a new question as this is unrelated to this one.
Try to explain exactly what you're after a little more clearly though. If I'd understood the question I would have tried to answer it anyway.

Feb 16 '07 #5

NeoPa

32,556

Expert Mod 16PB

Try using this to convert month number to string :

Expand|Select|Wrap|Line Numbers

varLongMonth = Format(CDate("25/" & varMonth & "/1999"),"mmmm")

BTW. I'm pleased that helped and thanks for the feedback - always valuable.
Did you notice this post (#3 quoted)? It should help you to get rid of a whole hunk of code.

Feb 16 '07 #6

tehgreatmg

Alright I moved it here: Using a Do Until Loop to search for and modify data in a table And also I will probably change that case statement to the code you gave me after I get it writing data and working better first.

Feb 16 '07 #7

NeoPa

32,556

Expert Mod 16PB

Cool - Nicely done :)

Feb 17 '07 #8

by: N. David | last post by:

In bash, you can include a variable as part of a filename. For example: date=$(date) cat log.txt > $date"_log.txt" Which, when setting the right options in date, creates a file named...

PHP

Problem with wrapping an unmanaged C++ DLL using the header file

by: Lokkju | last post by:

I am pretty much lost here - I am trying to create a managed c++ wrapper for this dll, so that I can use it from c#/vb.net, however, it does not conform to any standard style of coding I have seen....

.NET Framework

Using content of variable

by: tino | last post by:

Years ago there used to be a feature in dBase and FoxPro where the content of a variable could be used a variable name: Var1 = "Var2" Var2 = blank &Var1 = "Hallo" this way Var2 would get...

Visual Basic .NET

Using a variable for a name

by: Alex | last post by:

Given the following code: Private Sub ButtonShowTheIntValue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonShowTheIntValue.Click ...

Visual Basic .NET

Easy Steps to Fix "Canon Printer Won't Connect to WiFi Network"

by: taylorcarr | last post by:

A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...

General

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Batch import of multiple excel files into the database

by: ryjfgjl | last post by:

If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...

Data Management

Merging data from multiple Excel files

by: ryjfgjl | last post by:

In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...

Data Management

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

Similar topics