For Loop In MS Access

Sep 6, 2013

I am using MS Access 2010. I have a query that will return 3 values (ZZZ070113,ZZZ070213,ZZZ090713) here is the query (SELECT DISTINCT RUN_ID FROM CUSTOMER where customerID = 1567). These variables will change from time to time. Some times there will be 2 or 4 ID's returned...I want to take the results and loop through a series of commands to extract records from another table and write the results to a new table.So based on some research I have done I figure I need to use a For Each loop statement

First is how do I assign the values from the query to a variable?Then how do I pass these results into a loop so I can see the results?The code would take ZZZ070113 and query table Customer_Details to retrieve ProcessDate and ProcessCount. These value would be written to a new table called Customer Details...Then the code would take ZZZ070213 and do the same etc.

View Replies


ADVERTISEMENT

Do A Loop In Excel Sheet From Access

Dec 11, 2007

hey group
How can i have something like this loop to run from ccess application which is already currently opn and where work is done ?


With objActiveWkb.Worksheets("Reconciliation Sheet")
For ii = 5 To 200
If Range(ii, 9) = "NO" Then
Range(ii + 1, 9).Interior.ColorIndex = "yellow"
End If
Next
End With

View 2 Replies View Related

Modules & VBA :: Using Access Of Count Worksheets Loop

Mar 10, 2015

I would like Access to open an Excel file count the worksheets and then give each tab the name of the column heading in cell A1 of each worksheet. I had no problem with the code in Excel but when I tried to add it to Access I am getting an error on the WS_Count = obj.ActiveWorkbook.Worksheets.Count line. The error message is "Object variable or With block variable not set".

Here is the code:

Code:
'This block of code will cycle through each tab and name them
Dim WS_Count As Integer
Dim I As Integer

[Code]....

View 4 Replies View Related

Modules & VBA :: Loop Through Access Databases And Get Table Definitions

Mar 9, 2014

I have 192 databases that I need to redact certain information in certain columns. Generally, I'm looking for field names like name, first name, last name, address, address2, shipping address, mailing address, and phone numbers. Not sure how to get this information without going into every database and every local table inside the databases. Is there a way to get this information programmatically and just access the databases and table that I need to redact info in?

View 6 Replies View Related

Modules & VBA :: Access 2010 / Loop Through Query To Assign A Value To A New Field?

Aug 16, 2013

Using Access 2010: I have a query with four fields: ORG_NAME, PERS_NAME_LAST, CountOfORG_NAME, and BdMbrCount. There are a couple hundred companies in the database with 1-7 people associated with each company. I need to number each person so that they have a number, 1-7 in the MemberCount field of my query.

I have my query connected to VBA code.

I have experimented with code that I have found on the forum, just to see if I could get something to work and I am getting “Undefined function ‘BdMbrCount’ in expression. I am trying to pass [ORG_NAME],[PERS_NAME_LAST] to my function and assign the value of BdMbrCount to a new field in my query, BdMbrCount.

Code:
Function BdMbrNumber()
Dim qdf As DAO.QueryDef
Set qdf = CurrentDb.QueryDefs("YourBdMbrsRRecognizedQry")
'Set rst = CurrentDb.OpenRecordset("SELECT [ORG_Name],[PERS_NAME_LAST],[CountofORG_NAME], [BdMbrCount] FROM YourBdMbrsRRecognizedQry")
Dim ORG_NAME As String

[code]....

View 14 Replies View Related

Modules & VBA :: Write A Loop To Make Certain Elements In Access Report Visible / Invisible

Aug 23, 2013

I am trying to improve my code by making it more readible. The following code works, but it is certainly not the most efficient way. I`m trying to write a loop to make certain elements in an Access report visible/invisible, but I can`t address the visibility property of these items while iterating over i.

Code:
DoCmd.OpenReport "tblInterval subreport", acViewDesign, , , acHidden
Reports![tblInterval subreport]!BoxInsp1.Visible = False
Reports![tblInterval subreport]!BoxInsp2.Visible = False
Reports![tblInterval subreport]!BoxInsp3.Visible = False

[code]...

View 2 Replies View Related

Loop

Mar 14, 2007

Hello all, hope that you are having a Great Day!

I hopeing that someone could help me with a Loop problem. I am trying to create a directory on each name change. My code works for the first name, however, when I am trying to Loop through the table, it isn't working.

Here is my code

'MkDir "H:NewPrivateFolder"

On Error GoTo Err_cmbMkDir_Click

Dim DirName As String
Dim response As String
Dim folder As String


folder = "H:Projects"


'Forms("form1").Controls("list1").MultiSelect = 2
'DLookup("Officers_Name", "tblOfficers")
DirName = folder & DLookup("officers_name", "tblofficers")


Do
If Dir(DirName, vbDirectory) = "" Then


If MsgBox("OK to create folder!", vbOKCancel) = vbOK Then

MkDir DirName

Else
MsgBox "Create folder cancelled. Folder not created."
Exit Sub
End If
Else
MsgBox "The folder already exists..." & Chr(10) & "Please check the directories using Windows Explorer.", vbOKOnly
Exit Sub
End If
'response = MsgBox(DirName, vbOKOnly)

Loop

Exit_cmbMkDir_Click:
Exit Sub

Err_cmbMkDir_Click:
MsgBox Err.Description
Resume Exit_cmbMkDir_Click


End Sub

View 13 Replies View Related

While Loop Help

Jul 11, 2007

hello,

Let's say I have 10 variables (ID1, ID2, .........,ID10)
In java, I can use a while loop as follows to go through each variable

For example:
i=1
j=1
while (j<=10)
{
ID+i = 0 //this is some type of initialization of each var to 0
i = i + 1
j = J + 1
}
What would be the equivalent code in VBA, especially for "ID+i" ?? I use the '&' symbol but it concatenates everything meaning in the first loop goes to ID1 (which is correct), the second loop goes to ID12 (which is NOT correct), the third loop goes to ID13 (which is NOT correct either), and so on.

Thank you very much

View 2 Replies View Related

Do . . . Loop

Aug 4, 2005

I have a form that has a command button that requeries to the next days events. I want to skip days where there are no events. I created the Do Loop below but need it to stop after 10 days and return a MsgBox that says there are no further events.

I tried Do Until EOF but since the query is empty is fails. I have searched and read some other sources and did not find anything on limiting a loop the way that I need it. Or at least the way I understand it.

Any Ideas?

Forms!frmmain!txtSortdate = Forms!frmmain!txtSortdate + 1
If DCount("*", "qryflypages_old") <= 0 Then
Do
Forms!frmmain!txtSortdate = Forms!frmmain!txtSortdate + 1
Requery
Repaint
Loop
Else
Requery
Repaint
End If



Thanks RichB

View 1 Replies View Related

For Loop

Nov 15, 2005

Hi,

I have a question

email1 = "......@hotmail.com"
email2 = ".......@yahoo.com"
email3..
...

For i = 1 to num
msgbox email & i
next i

I run like this code, but it only show the numbers, it cannot be shown the email address.

For i = 1 to num
msgbox email & cstr(i)
next i

I tried it, but it's still NOT work

For i = 1 to num
msgbox cstr(email & cstr(i))
next i

Not work, too.

What's wrong with it?

Please let me know, thanks.

View 2 Replies View Related

Need Help With A Do Loop Containing EOF

Jun 19, 2006

I'm having a problem with my form where everytime I try importing a file into my database, I received an "overflow" message. It appears the problem is somewhere in my Do loop. The following shows what my code looks like right now:

Open txtCSVFileToUse For Input As #1
lvRandNum = Int((1000000 * Rnd) + 1)
lvINTERNAL_ID = lvRandNum
lpCntr = 1
Do While Not (EOF(1))

If lpCntr = 1 Then lpCntr = lpCntr + 1


Input #1, csvPro, csvJobName, csvJobNumber, csvShipper, csvConsignee, csvBillTo, csvServiceCode, csvCopies, csvWeight, csvUniqueContainerID, csvManifest, csvDueDate, csvTareWt, csvClass, csvVersion
With objRS
.AddNew
.Fields("K95_ID") = lvINTERNAL_ID
.Fields("K95_INTERNAL_ID") = lvINTERNAL_ID




.Fields("K95_PRONUM") = csvPro
.Fields("K95_JOBNAME_VERSION") = csvJobName
.Fields("K95_JOBID_MOTHER_PALLET") = csvJobNumber
.Fields("K95_SHIPPER") = csvShipper
.Fields("K95_CONSIGNEE") = csvConsignee
.Fields("K95_BILL_TO") = csvBillTo
.Fields("K95_TARIFF") = csvServiceCode
.Fields("K95_NUMBER_OF_COPIES") = csvCopies
.Fields("K95_WEIGHT") = csvWeight
.Fields("K95_UNIQUECONTAINERID_MPAL") = csvUniqueContainerID
.Fields("K95_MANIFESTNUM") = csvManifest
.Fields("K95_DUE_DATE") = csvDueDate
.Fields("K95_TARE_WT") = csvTareWt
.Fields("K95_CLASS") = csvClass
.Fields("K95_VERSION") = csvVersion
If EOF(1) = True Then Exit Do
lpCntr = lpCntr + 1
End With
SkipLine:
lpCntr = lpCntr + 1
Loop

I'm thinking it has something to do with with my counter and/or my EOF stuff. Any help would be much appreciated.

View 3 Replies View Related

Run SQL In VBA With A Loop?

Jun 8, 2006

Hi,

I am runnig a query via VBA where I have a variable defined for the criteria value.
However I do want to run this query several times for several values for the the variable.
These values are stored in a table.

Is it now possible to make sort of loop function in VBA that picks the first value in the table as criteria value, runs the query and then picks the second value in the table as criteria value, runs the query, etc, until all values have been picked?

Thanks,

Gurkentopf

View 6 Replies View Related

Loop Examples

Jan 11, 2006

Does anybody have any examples of loop, which will find data in a query and then show it as one line (string), listing all the data in one row.

Thanks inadvance

Alastair

View 2 Replies View Related

Loop Recordset

Jul 25, 2006

Hi folks,

I have created a recordset and what i want to do is check the field value "SiteRAG" to see if it matches some criteria and if so do some action where the field "SiteID" = the same as a label on a form.

Please see CAPS in middle of code:

Dim db As Object
Dim rs As Object
Dim intCount As Integer, intRecordCount As Integer, intID As Integer
Dim strSQL As String
Dim strRAG As Long
Dim fldItem As Field

strSQL = "SELECT tblSite.SiteID, tblSite.SiteRAG, tblSite.Active " _
& " FROM tblSite " _
& " WHERE (((tblSite.Active)=Yes));"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)


intRecordCount = 0
rs.MoveFirst

CHECK THE FIRST ROW FIELD SiteRAG & IF = TO CRITERIA THEN
DO SOMETHING BASED ON A LABEL MATCHING THE SiteID
ELSE
MOVE TO NEXT ROW

Loop
rs.Close
db.Close


Thanks for any help
Mark

View 2 Replies View Related

Loop In A Schema?

Feb 6, 2006

I am very inexperienced in databases and I am currently attempting to design a database and there is one part of the schema where I am unsure how to proceed.

I need to model schools, pupils and teams. Schools have a number of pupils as do teams.

I rushed in with the following design but it just seems wrong to me. I don't know much about database design but I don't like the idea of having a kind of loop/triangle in the schema like this.

School(SchoolID, SchoolName, Postcode)
Pupil(PupilID, School, Team, Forename, Surname)
Team(TeamID, School, TeamName)

I was conscious of having a fan trap of a school has many teams and a school has many pupils.

Is this bad practice or is it fine?

Any guidance or related articles on this would be appreciated.

View 1 Replies View Related

Do Loop Untill

Aug 25, 2004

Hi,

I have another problem.
I am waiting for a barcode scanner to give me info about a projectnummer. I do this with a do loop untill.
When this loop is open and I close the form I get an error. I have to close the loop.
Any one have a sugestion.

Thanks

Snakebite

Here is the code

Do
DoEvents
Buffer = Buffer & Me.MSComm1.Input
Loop Until InStr(Buffer, Chr$(10))

View 1 Replies View Related

Loop Statement

Apr 27, 2005

I want to have a label "Flash" when a command button is clicked, but I'm confused about the loop statement that is required in the code. Here's what I have so far:

Code: Private Sub Command11_Click()Do[Label13].Visible = TrueTimerInterval = 500[Label13].Visible = FalseLoopEnd Sub

Could someone please tell me what's missing. Thanks.

Scott

View 14 Replies View Related

If Function And Loop

Mar 8, 2007

Hey all,

I'm trying to make a code in asp that will allow comments to be presented to teh enduser relevent to the article they are reading.

I'm am using a access database to hold the info and each article is given a unique id.

My code is as such:

<%
Dim adoCon
Dim rsGuestbook
Dim strSQL
Dim adid
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("comment.mdb")
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblComment.id, tblComment.name FROM tblComment;"
adid = Request.QueryString("id")
rsGuestbook.Open strSQL, adoCon

Do While not rsGuestbook.EOF
if (adid=rsGuestbook("id")) then
Response.Write (rsGuestbook("name"))
else
end if
rsGuestbook.MoveNext
Loop

rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>

However the if fuction does not seem to be working, any ideas would be extremely helpful.

Regards

Vikram

View 1 Replies View Related

Non-terminating Loop

Mar 27, 2007

In this I have come up with a loop function that should loop until there is a blank record, but it dosnt
The problem im having is that the code goes in an unterminating loop on the 1st record and dosnt move on to the next one.


the fault lies in the line, it keep's saying "the field 'item stock quantity can not contain a null value as the requiered property is set to true'"

the thing is the form goes blank when the code is ran, but returns when the error is terminated

DoCmd.GoToRecord acDataForm, "purchase", acNext



here is all of the code, command 10 is a button on the main form

Private Sub Command10_Click()

Dim Counter As Integer
Counter = DCount("*", "Qry check amo")

If Counter <> 0 Then
If [Forms]![Purchase].[Form]![item purchase subform]![Purchase Quantity] > [Forms]![Purchase].[Form]![item purchase subform]![Stock Quantity] Or [Forms]![Purchase].[Form]![ammunition purchase subform]![Purchase Quantity] > [Forms]![Purchase].[Form]![ammunition purchase subform]![Stock Quantity] Then
MsgBox "Not enough stock"
Else

Do Until [Forms]![Purchase].[Form]![item purchase subform]![Item Number] = (" ")
[Forms]![Purchase].[Form]![item purchase subform]![Stock Quantity] = [Forms]![Purchase].[Form]![item purchase subform]![Stock Quantity] - [Forms]![Purchase].[Form]![item purchase subform]![Purchase Quantity]
DoCmd.GoToRecord acDataForm, "purchase", acNext
Loop

Do Until [Forms]![Purchase].[Form]![ammunition purchase subform]![ammunition Number] = (" ")
[Forms]![Purchase].[Form]![ammunition purchase subform]![Stock Quantity] = [Forms]![Purchase].[Form]![ammunition purchase subform]![Stock Quantity] - [Forms]![Purchase].[Form]![ammunition purchase subform]![Purchase Quantity]
DoCmd.GoToRecord acDataForm, "purchase", acNext
Loop

MsgBox "Purchase made"
End If

Else: MsgBox "You are not entitled to buy this ammunition type"
End If
End Sub

View 6 Replies View Related

Endless Loop

Feb 15, 2008

Below is all the code I have entered so far and for some reason the sub routine TripGT_Exit is staying in a loop until another field is selected. The problem is this is the last field in the record before a new one. Tab control involves only 3 fields: cmbICAO, TripETE, TripGT.

I comment out both fields populating TripDepartTZ and TripDepartDZ and it works fine but of course the fields aren't populated.

Code:Option Compare Database Public datArr As Date Public datDepart As Date Option ExplicitPrivate Sub cmbICAO_Click() Dim datDepartHomeTime As Date 'Variable from MSN Plan input form Dim datDepartHomeDate As Date 'Variable from MSN Plan input form Dim datFullDateTime As Date 'Sets initial date and times of the trip, used for testing only datDepartHomeTime = #10:00:00 PM# datDepartHomeDate = #1/2/2008# 'Takes the time and date and puts them together datFullDateTime = datDepartHomeTime & datDepartHomeDate datDepart = datFullDateTime If Me.cmbICAO = "ICAO" Or Me.LegNo <> 0 Then 'No new leg number needed if a leg is inserted into 'an exisiting trip Else Me.LegNo = NewControlID() 'Gets a new leg number for a new record of the trip End If If Me.LegNo = 0 Then 'For first leg of trip and assigns departure values Me.TripDepartTZ = datDepart Me.TripDepartDZ = (DatePart("d", datDepart)) End IfEnd SubPrivate Sub TripETE_Exit(Cancel As Integer)'Used for calculating arrival times Dim sinETE As Single Dim intAir As Integer If Me.LegNo <> 0 Then 'Calculates the air time after the initial leg (0) and updates "datArr" which is then 'used in calculating the ground departure time of the next leg sinETE = Me.TripETE intAir = sinETE * 60 datArr = DateAdd("n", intAir, datDepart) Me.TripArrvTZ = datArr Me.TripArrvDZ = (DatePart("d", datArr)) End IfEnd SubPrivate Sub TripGT_Exit(Cancel As Integer) 'Used for calculating departure times Dim sinGT As Single Dim intGround As Integer If Me.LegNo <> 0 Then 'Calculates the ground time after the initial leg (0) and updates "datDepart" whic is then 'used in calculting the air time of the next leg sinGT = Me.TripGT intGround = sinGT * 60 datDepart = DateAdd("n", intGround, datArr) Me.TripDepartTZ = datDepart Me.TripDepartDZ = (DatePart("d", datDepart)) End IfEnd Sub

I understand for normalization I should not be putting calculated fields into a table but use a quey instead; however, I'm not sure how to make this into a query whose calculations continue throughout as new legs added.

View 7 Replies View Related

Need To Loop .wav File Three Times

May 19, 2006

Need to loop .wav file three times. (See "Sound") (Not tagged in origional code.)

Private Sub Address_Exit(Cancel As Integer)
Address.BackColor = 16777215
On Error Resume Next

'If there is no matching record in communications do nothing.
If IsNull(DLookup("[address]", "communications", "[address]='" & replacequote(Me![Address]) & "'")) Then
Exit Sub
End If


'Make button visable and activate alert beep.
Command1796.Visible = True


PlaySound "H:GeneraldmediaBEEP_FM.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC

End Sub

View 1 Replies View Related

Is It Possible To Loop Through System Objects?

Jul 25, 2006

Is it possible to loop through all forms within a project and look at its controls? I was requested to change some object names to a more generic name, but I would like to find all references of the form within the Access application. Is there an easy way to do this?

I know that the MSysObjects contains the listing of all forms, but I don't know how to generically type cast a local variable to the form name listed in the table.

Does this make sense? There has to be a way to do this, but I haven't found anything in searching this forum.

Thanks in advance.

CHuck

View 2 Replies View Related

Insert Query Loop??

Feb 20, 2006

Hi I am creating a stock database and I have come across this problem:

I have a stock table, and I have successfully creted a query to insert a record with values selected in a form:

EG. In the form you can input a part no, comments and the quantity you want to add. I have created the stock system so that each individual item of stock is one record in the stock table.

What I can't seem to do is use the quantity field in the form to dictate how many times the form details is entered into the stock table.??

HELP

View 1 Replies View Related

My Stupid Loop Idea

Jul 6, 2006

I've got 20 checkboxes which i need to do the same thing but individually.

If IsNull(DLookup("[question 1]", "qryQuestions")) Then
chkQuestion1.Visible = False
Else
chkQuestion1.Visible = True
End If


I tried this:

Dim loopy As Integer
Dim tmpquest As String

For loopy = 1 To 20
tmpquest = "question " & loopy
tmpCheck = "chkQuestion" & loopy
If IsNull(DLookup(tmpquest, "qryQuestions")) Then
tmpCheck.Visible = False
Else
tmpCheck.Visible = True
End If
Next loopy

tmpquest works.
tmpcheck doesn't.

I tried dimming tmpcheck as lots of things but no luck.

Any help?

View 6 Replies View Related

Help With Loop With Text Box In Subform.

Oct 27, 2006

hi guys i was wondering if you can help me please, in my main form i have a text box which the user enter an item number , and a combo box with the main contracts., then a continuous subform which has a combo box with the subcontracts that belong to that main contracts, in the subform i also have a txtPriceA, and txtPriceB. my problem is that with the code i have the priceA and priceB get added in different rows and all the other fields get added correctly but with the columns priceA and priceB empty.


this is what i tried

Private Sub Command94_Click()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim varItem As Variant

Dim strSQL As String


Set rst = CurrentDb.OpenRecordset("tblMain")

For varItem = 0 To Me!frmAddSubform.Form!cmbSubContracts.ListCount - 1 'combo box from subform
rst.AddNew 'add new row for each subContract in combo box

rst!SubContract_ID = Me!frmAddSubform.Form!cmbSubContracts.Column(0, varItem)

rst!MainContractID= me.txtMainContract.value
rst!ItemNumber = Me.txtItem.Value

rst!PriceA = Me!frmAddSubform.Form!txtPriceA.Value (this is supposed to be added in the columm PriceA in the same row as the 1st row added from rst!subContract_ID. )

rst!Priceb = Me!frmAddSubform.Form!txtPriceB.Value (this is supposed to be added in the columm PriceB in the same row as the 2nd row added from rst!subContract_ID. )


rst.Update
Next varItem


rst.Close



But I get this:

ID (autonumber) Item# Main Contract Subcontract PriceA PriceB
1 123 12345 12345-1
2 123 12345 12345-2

3 $15.00 $ 15.01
4 $15.50 $ 16.01

I should only have two rows added instead of four....like this

ID (autonumber) Item# Main Contract Subcontract PriceA PriceB
1 123 12345 12345-1 $15.00 $ 15.01
2 123 12345 12345-2 $15.50 $ 16.01


:confused:

also, i have my reasons why i have repeating rows.

View 2 Replies View Related

Loop Through A Table And Return The Value

Mar 17, 2008

I have a table (ExportTables) with the following data

ExportTables
--------------------
MPI_CODE
MPI_IDS
MPI_REFF
REFFERALS
NOK_AD
--------------------

I want some VBA code that can loop through the table above one by one returning the value. The table data will change so i would like the code to handle change as well.

I want the returning value to be returned has a string i.e. TblValue = <table data value>

Because then i want to use the value to be put in this sql query- DoCmd.RunSQL "INSERT INTO TEST_DOC SELECT * FROM " & [color:red] TblValue [/color]

then loop onto the next value.

Hope you understand what im after.

View 2 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved