vb/vba procedures to generate 2 letter code and update recordsets

Closed Posted 7 years ago Paid on delivery
Closed Paid on delivery

Access 2013 (32 bit)/Win10

Job012: Write Access VBA procedures to:

A) Create a procedure/function to loop through each field in ttblHd that begins with "col" and write the value in the field to the tlkpHdPr, field strHdPrK.

For example, there are 2632 records in ttblHd with 79 columns beginning with "col". The values in those fields when appended [url removed, login to view] yield 133 records. While there are currently 79 fields beginnning with 'col', but that number may go up or down over time.

Table tlkpHdPr shows the desired output.

B) Create another procedure/function to again loop through each field in ttblHd that begins with "col" only this time write 3 values to another table, ttblCldPrFld:

value 1 is from the 'col' field

value 2 is from a second field, strFlNmK, and

value 3 is the numeric part of 'col' field name.

See ttblCldPrFld for the desired output.

Requirements:

1) Create procedures/functions in the attached Access database, dbJob012

2) Process should execute from the command button cmdTest on frmTest

3) Code should be commented with explainations of how it works

Attached:

::dbJob013

::tlkpHdPr

::ttblCltPrFld

::ttblHd

::frmTest

Job013: Write Access VBA procedures to:

A) Create a procedure/function to increment a two letter code.

B) Create a procedure/function to loop thru the recordset definited by qrstPrLy4AaK assigning the next code generated by the above procedure to the field, strAaK

For example, if qrsstPrLy4Aa has 10 records, after the procedure is run:

Record 1 now has AA in strAaK

Record 2 now has AB in strAaK

Record 3 now has AC in strAaK

Record 4 now has AD in strAaK

Record 5 now has AE in strAaK

Record 6 now has AF in strAaK

Record 7 now has AG in strAaK

Record 8 now has AH in strAaK

Record 9 now has AI in strAaK

Record 10 now has AJ in strAaK

Requirements:

1) Create procedures/functions in the attached Access database, dbJob013

2) Process should execute from the command button cmdTest on frmTest

3) The recordset above, qrstPrLy4aaK is defined by a select query of the same name in dbJob013

4) Each time the code is executed, the letter code should increment from the last value used, i.e. using the example above, if the next execution started with record 11, the code assigned should be AK.

5) The procedure/function should generate a user message if when it is within 10 records of exhausting all available codes, i.e. there are 650 possible 2 letter combinations, when 640 have been used, the user message should fire.

6) Code should be commented with explainations of how it works

Attached:

::dbJob013

::tlkpPrHd

::tlkpPrLy

::qrstPrLy4Aa

::frmTest

Visual Basic Visual Basic for Apps

Project ID: #11369059

About the project

14 proposals Remote project Active 7 years ago

14 freelancers are bidding on average $74 for this job

abhinovpankaj

Hello, I have been working as freelancer since last ~ 3 years,prior to this was working with a MNC as an Sr. Software Professional. The project is Product based development and integration of the product with vari More

$88 AUD in 2 days
(25 Reviews)
5.0
kolosibalint

$30? Are you serious? It's not worth $30 reading the description. ______________________________________

$500 AUD in 10 days
(26 Reviews)
4.5
Mufaddalsaifee

Hi There, First of all i want to thank you for inviting me to bid on your project. I have checked the details and will be able to help in Access. I have 5+ years of experience in Microsoft technologies (EXCEL, More

$35 AUD in 1 day
(8 Reviews)
3.6
MohsanEijaz

I have experience in MS Office, VBA Programming, XML, MS Work, Google Docs, SEO, Google Spreadsheet, Data Entry in Odoo, Google Document and other related applications. I believe my capabilities would be perfect for y More

$55 AUD in 1 day
(3 Reviews)
3.6
morrisstarling

Thanks for inviting me to bid on this project. I am ready to work this weekend and deliver by Monday. I'm happy to discuss any additional comments over the chat best regards Morris

$70 AUD in 1 day
(6 Reviews)
3.3
parama4u

Hi, I am working with Visual Basic, and developing VBA scripts since 2007 for corparate Clients. Please check my profile and let me know your questions if any. Regards, Param

$30 AUD in 3 days
(1 Review)
1.4
TulyakovN

Understand, how to do this job. Skills in VBA, experiance of working in word, excel, access. No problem with this job and those tasks from discription.

$30 AUD in 3 days
(1 Review)
1.0
sahumk2000

I am interested in this task, here is my profile Education- Masters in Computers Skills - VBA, ASP.NET, MVC, EF, C#, VB.NET, SQL Server, WCF, WPF, WebAPI, AngularJS, Jquery, XML, Cr Reports Experience- 12 Yrs as D More

$30 AUD in 1 day
(0 Reviews)
1.3
mstphly

passion to do these little things

$40 AUD in 1 day
(0 Reviews)
0.0
kevindelhi

Developed many applications using access. I ensure that u will get desired solution in scheduled time period.

$25 AUD in 1 day
(0 Reviews)
0.0
willycamps

Hello, I will leave my information here in my profile. I have time to support you Let's talk about your needs in detail I hope, I will hear from you soon, Best regards

$25 AUD in 1 day
(0 Reviews)
0.0