I have a database which contains personal information of about 1000 students and their classes. I want to transfer the student information on a class by class basis to dBase III+ files (to be used by an ancient DOS problem), each dBase III+ file contains only student info for each class. If I have 30 classes, then I should have 30 dBase III+ files. Transferring the info to dBase III+ files is no problem. What I am not sure is how can I loop through all the 30 classes so that I can produce 30 dBase III+ files? The class field is not indexed. My approach is to store all the distinct names of 30 classes into an array and then ask the Access program to loop through the array element by element, but so far without success. The failure is due to my inability to get the 30 distinct class names. Can anyone please help.
![]() |
Patch reliability is unclear, but widespread attacks make patching prudent. Go ahead and patch, but watch out for potential problems. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
List distinct field values (A2K SP3)
Home » Forums » AskWoody support » Productivity software by function » MS Access and database help » List distinct field values (A2K SP3)
- This topic has 4 replies, 2 voices, and was last updated 22 years, 1 month ago.
Viewing 0 reply threadsAuthorReplies-
WSHansV
AskWoody Lounger -
WSlesoch
AskWoody LoungerMarch 20, 2003 at 8:17 am #662563Thanks for your response, Hans.
What I want is to make the process automatic. Say I have classes named 2A, 2B, 2C, and 2D, which I may not know beforehand. I want by just supplying a class name “2”, and the program will get the distinct class names 2A, 2B, 2C and 2D, and then for each distinct class, save the info into files 2A.dbf, 2B.dbf, 2C.dbf and 2D.dbf.
I am really dumb. I don’t see how the SQL statement “SELECT DISTINCT Class_Name FROM tblClass_Info” will help. Apparently I need to know the Class_Name, which I may not know, as I only know their names start with “2”. My post must have been unclear. Can you elaborate it a little, please?
-
WSHansV
AskWoody LoungerMarch 20, 2003 at 8:51 am #662565Here is a code template. Of course, you must substitute the appropriate field and table names.
Dim strChar As String Dim strClass As String Dim strFile As String Dim dbs As DAO.Database Dim rstClasses As DAO.Recordset ' Ask user for first character strChar = InputBox("Enter first character, e.g. 2") If strChar = "" Then Exit Sub ' Get class names Set dbs = CurrentDb Set rstClasses = dbs.OpenRecordset( _ "SELECT DISTINCT Class_Name FROM tblClass_Info WHERE Class_Name Like '" & _ strChar & "*'") ' Loop through recordset Do While Not rstClasses.EOF strClass = rstClasses!Class_Name strFile = strClass & ".dbf" ' Now, you have the name of the class (e.g. 2A) in strClass ' and the file name (2A.dbf) in strFile ' Insert code to export data to strFile here ... ' Move to next class rstClasses.MoveNext Loop ' Clean up rstClasses.Close Set rstClasses = Nothing Set dbs = Nothing
This code will not work in this form, you will have to adapt it to your situation. Post back if you need more help.
-
WSlesoch
AskWoody Lounger
-
-
-
Viewing 0 reply threads -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Perplexity CEO says its browser will track everything users do online
by
Alex5723
57 minutes ago -
Login issues with Windows Hello
by
CWBillow
1 hour, 43 minutes ago -
How to get into a manual setup screen in 2024 Outlook classic?
by
Tex265
3 hours, 56 minutes ago -
Linux : ARMO rootkit “Curing”
by
Alex5723
13 hours, 15 minutes ago -
Employee monitoring app leaks 21 million screenshots in real time
by
Alex5723
13 hours, 21 minutes ago -
Google AI is now hallucinating idioms
by
Alex5723
13 hours, 53 minutes ago -
april update
by
69800
9 hours, 51 minutes ago -
Windows 11 Insider Preview build 27842 released to Canary
by
joep517
14 hours, 47 minutes ago -
Quick Fix for Slowing File Explorer
by
Drcard:))
15 hours ago -
WuMgr not loading?
by
LHiggins
15 hours, 35 minutes ago -
Word crashes when accessing Help
by
CWBillow
7 hours, 3 minutes ago -
New Microsoft Nag — Danger! Danger! sign-in to your Microsoft Account
by
EricB
14 hours, 38 minutes ago -
Blank Inetpub folder
by
Susan Bradley
12 hours, 3 minutes ago -
Google : Extended Repair Program for Pixel 7a
by
Alex5723
1 day, 1 hour ago -
Updates seem to have broken Microsoft Edge
by
rebop2020
11 hours, 35 minutes ago -
Wait command?
by
CWBillow
18 hours, 26 minutes ago -
Malwarebytes 5 Free version manual platform updates
by
Bob99
1 day, 7 hours ago -
inetpub : Microsoft’s patch for CVE-2025–21204 introduces vulnerability
by
Alex5723
1 day, 14 hours ago -
Windows 10 finally gets fix
by
Susan Bradley
1 day, 23 hours ago -
AMD Ryzen™ Chipset Driver Release Notes 7.04.09.545
by
Alex5723
2 days ago -
How to use Skype after May?
by
Joann
8 hours, 57 minutes ago -
Win 7 MS Essentials suddenly not showing number of items scanned.
by
Oldtimer
1 day, 19 hours ago -
France : A law requiring messaging apps to implement a backdoor ..
by
Alex5723
2 days, 13 hours ago -
Dev runs Windows 11 ARM on an iPad Air M2
by
Alex5723
2 days, 14 hours ago -
MS-DEFCON 3: Cleanup time
by
Susan Bradley
13 hours, 36 minutes ago -
KB5056686 (.NET v8.0.15) Delivered Twice in April 2025
by
lmacri
19 hours, 48 minutes ago -
How to enable Extended Security Maintenance on Ubuntu 20.04 LTS before it dies
by
Alex5723
3 days, 1 hour ago -
Windows 11 Insider Preview build 26200.5562 released to DEV
by
joep517
3 days, 5 hours ago -
Windows 11 Insider Preview build 26120.3872 (24H2) released to BETA
by
joep517
3 days, 5 hours ago -
Unable to eject external hard drives
by
Robertos42
1 day, 16 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.