I have written code to retrieve data from a back-end, that is then bound to a form (late binding forms).
From the retrieved record set I want to update a combo box using 1 field from the data in the record set, only showing unique records in the list.
MS Access 2007. I am trying to make a form.
Form2
Text0 = Textfield for ID
Text2 = Textfield for LName
Text3 = Textfield for FName
btnRet = Button for retrieve when ID is entered in Text0
btnUpdate = Button for saving the changes made in the textfields.
How can I search the ID from the Table I made? And when it was matched, get the details of that ID unto the designated text fields. It was like retrieving the data from the table with the ID typed in the text field from the form I made.
Then when it was retrieved, I can edit the fields and when I hit the Update button, the edited fields will replaced the original data.
Also after it was updated, a new record will be added in the history table that the ID was edited. Is is possible?
For now, i want to know how to retrieve the data with the ID and edit and save it after and update the table. Does it applies with the codes with the retrieve button and update button?
I want to update a field (field1) in each record of a recordset (qryUpdate)
I got the following code (in green) working fine - so far so good. I actually need to update the field from a selection from an unbound combo box. This looks up a table with two fields Period ID (autonumber PK) and a text field called Quarter. I've tried various combinations including the code in red and code such as
"rst![field1] = Me.cboPeriod"
"rst![field1] = Me.cboPeriod.Column(0).value" etc
but can't get it to work. It has to be something simple but I can't see it.
Private Sub cboPeriod_AfterUpdate()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("qryUpdate")
Do Until rst.EOF
If IsNull(rst![field1]) Then
rst.Edit
rst![field1] = 5
rst.Update
End If
rst.MoveNext
Loop
End Sub
Private Sub cboPeriod_AfterUpdate()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("qryUpdate")
Do Until rst.EOF
If IsNull(rst![field1]) Then
rst.Edit
[rst![field1] = Me.cboPeriod.Column(0)
rst.Update
End If
rst.MoveNext
Loop
End Sub
Is it possible to use combo boxes in reports? I have a report built but was wanting to use a look up box to retrieve alternate data while looking at the report.
View 3 Replies View RelatedIs it possible to retrieve the format of a field when looping through recordset.
e.g you can get the field type by using
Quote:
rs.Fields(y).Type
But the type for decimal or percentage is the same. It is the format that is different
I need to be able to see what is formatted as a percentage and what is formatted as fixed.
morning
i am adding a new row to an adodb.recordset, one of the fields being a Memo datatype.
all the other fields will write to the database fine, but with the memo, it will mysteriously disappear when i call rs.update
response.write(rs("my_memo_field")) 'give correct output
rs.update
response.write(rs("my_memo_field")) 'gives nothing!
any one else had this happen and have a solution?
cheers
I have a cascading combo box that successuflyl returns data from sql server tables venue and date, when I save the record it saves the values but when I re open the record for a particular patient the combo box values are cleared and do not display patients appointment venue and date although it is saved in the database. How can I return the values in the combo boxes which were saved.
View 11 Replies View Relatedi have a form based on a table.The key column of the table is a combo box in the form , if i select a particular value in the combo box then i have to diaplay the all the fields in the record on the form automatically based on that particular value.
Ofcourse it is a simple task, but today only i am trying my hand in VB for the first time in my life.... so i find it difficult to find the answer.......
please help me.......
I have an Access DB with a form that allows the user to select a new backend database. I can connect to the backend and then .refreshlinks but nothing on the form is updated. I have tried requiring the form but that doesn't do anything. I've tried loads of other things, refresh, recalc etc., but nothing updates the open form.
The only way I have managed to get it to work is to close the form and reopen it, then it shows the data from the newly linked backend database.
While it works, it doesn't look good but also there seems to be some problem with it because eventually it reports an error saying "cannot open any more databases" and when clicking OK comes back with "An error occurred while sending data to the OLE server (the application used to create the object" and a whole bunch of other messages.
I think it might have something to do with the fact that the form has a number of MS graphs open on it, but I'm not sure. Also, I can't track down a particular line of VBA code which causes this error.
how to update a form after changing the backend database.
Background I have a query (Q1) that retrives data from a table (Table 1). One of the fields in Table (F1) contains both text and numeric data (ie: 24 eggs). I want to separate these values in Q1.
Questions
How can i in Q1 retrive only numeric data from F1 and display that data i a field?
How can i in Q1 retrive only text from F1 and display that data i a field?
I'm creating a form that has combo boxes pertaining to each of the following fields from table "Documents": DocumentID (primary key), DocumentTitle, DocumentAuthor, and DocumentYear. No combo box is used with any priority over the others. The working form will allow a user to retrieve the full document record (data for all fields) by using any combo box they want, as well as any combination of combo boxes. This means that if a selection is made in one field's combo box, the drop-down lists in the other boxes need to update based on that preliminary selection. The filtered results for each field, based on any and all combo box selections, are always shown in a single datasheet on the form.
The kicker is that when a user starts filtering records by making selections from the drop down list in a combo box, but then decides to TYPE in another field's combo box, I want the combo box they typed in to do two things: 1) filter the records for that field based on what they typed, if any records meet that criteria (e.g. they typed "B" so only records beginning with B are shown), and 2) if no records match the typed criteria, the search starts all over (at the top of the cascade), filtering all library records based only on what they typed in the most recent combo box.
Does that make sense? Any tips welcomed.
I don't know how to cascade combo boxes in this way.
I have a form named CustomerForm.I have a query named CustomerQ. On my form I have a combo box named combo6.Combo 6 lists all of the company names from my customer table and includes the autokey field which is hidden.When I click on a value in my combo6 I want the values on my form to then be based on the value from combo6 whereas at the moment I select a value in combo6 and nothing happens other than combo6 now displays a different value. how to refresh/ repopulate the data based on combo6 without having to create more forms and queries.
View 14 Replies View RelatedI have a combo box that get its values from another table the problem i am having is when a user don't see the info they have in the combo box then enter the new data into the combo box field but it don't update my table with the entered values. How can i fix this to update my table if the user add new data in the combo box field.
View 3 Replies View RelatedHi,
I create the table1 in SQL Server and then link the table to MS Access using ODBC. But, when I write do this statement
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * from table1")
for i = 1 to rs.recordcount
msgbox rs.field(0)
next i
It only retrieve 1 record only, but the table have 10 records.
What's wrong with it?
I check rs.recordcount, it only loop one time.
Additionally,
it doesn't work this function in the ODBC link table
rs.addnew
rs.field(0) = "hello"
rs.update
And, when we use ODBC link tables,
we cannot delete data in the table.
currentdb.execute "delete * from table1"
it will give out error message, the table is read-only.
Please let me know about it, thanks.
i want to retrieve some data from a table i have pieced together a bit of code but get an error to few parameters.
Code:
Dim db As dao.Database
Dim Lrs As dao.Recordset
Dim LSQL As String
Dim Lname As String
'Open connection to current Access database
Set db = CurrentDb()
[code]....
when i paste the SQL into a query it works fine
I have one field AccountName in customer table and another field AccountID.
In my form I would like to select from the combo box AccountName during data entry and then have the AccountID automatically update in the Account ID field.
I have two laptop computers. Both have Access 2010 installed. Both computers are on the same Workgroup and each computer can access files on the other. Computers are connected with wireless connection. Computer 1 holds the backend data while computer 2 is used for data entry and connects to backend on computer 1.Both computers are used for data entry, and as I said, data is stored on computer 1 only.
Here's the problem. If I enter data on computers 1 and then open computer 2 I cannot access the data unless computer 1 exits and then reopens. If computer 1 does not exit and reopen I cannot access the data from computer 2. In addition, if I enter data in Computer 2 and save it then computer 1 can see the data and all is well. So, for everything to work I have to start the data entry in computer 2. If I start data entry with computer 1 then I have to go through the save and shutdown process.
I have tried requery and refresh, refreshpage, refreshrecord, etc, but with no success.
Im totally new at all this stuff, so any help is appreciated.
i have a database with one table that has many different attributes and almost 3000 records. this is all i have done, i have simply been loading in all of the data to the table, now that that is done i need to allow users to extract the data.
so, what is the best way to build a front end that allows the user to easily extract data from the database? ideally, i would like to have some sort of front end that would have a text input window where they could search for records matching attributes in the table that match or are close to the text they type in, with some additional options for honing down the search terms with dropdown menus, radio buttons, etc.
the problem is i really havent a clue on how to do that stuff. can anyone just give some general, beginner type steps for things i should be doing to create that "front end" i am visualizing. THANKS!
It's been some time since I wrote the following, which takes a string made up of "Lastname Firstname Telephone" and writes it at a specific time in Outlook. It uses Late binding so it works across all Oulook versions.
Code:
Public Function funOutputAppointmentToOutlook(dtmDate As Date, strSubject As String)
Dim olApp As Object
Dim mNameSpace As Object
Const olFolderCalendar = 9
Const olAppointmentItem = 1
[Code] ....
I would like to first check the specific Outlook time slot whether the string exists already and only if it does not exist to write it.
I have a table in which i want a column name as output when the data in it is null.
View 2 Replies View RelatedHow to retrieve data from a table (via query) ? I created the below query, but I'm not sure what else is needed to retrieve the value from my SQL query. My query code is below. I'm not getting any errors.
Dim strClient As String
strClient = "Jerry Davis"
strSQL = " SELECT [Progress Tracking].[Client Name], [Progress Tracking].[Client Start Date],
[Progress Tracking].[Start Body Weight], [Progress Tracking].[Tracking Date]
FROM [Progress Tracking]
WHERE [Progress Tracking].[Client Name])= ' " & strClient & " ' "
MsgBox "Weight Box " & " " & strSQL
I'm trying to retrieve data based on the contents of one column.
Sample table
Code:
Description EID Basecode
----------- ---- ---------
ssdad 1001 S2378797
gfd 1002 S1164478
gfdsffsdf 1003 R1165778
ssdad 1004 M0007867
gfd 1005 N7765111
gfdsffsdf 1006 W5464111
gfd 1005 N7765111
gfdsffsdf 1006 A4000011
gfdsffsdf 1006 W5464111
ssdad 1001 2378797
gfd 1002 1164478
ssdad 1001 965000
gfd 1002 780000
yjgk 4456 540000
kjhkh 2009 150000
ddd 1004 1040
d88jg 1004 14C676
fsa 6565 158
fdh 1004 2Khlm
ggdg 2009 967
I'm retrieving all **Basecode** column data starts with only letters other than 'W', 'N' by this query
Code:
SELECT tbl1.EID,tbl1.Description,tabl1.Basecode FROM tbl1 WHERE Not
IsNumeric(Left(Basecode,1)) AND Left(Basecode,1) Not In ("W","N");
And retrieving all **Basecode** if column data length >6 and with numbers '96', '78','54','15' by this query
Code:
SELECT tbl1.EID,tbl1.Description,tabl1.Basecode FROM tbl1
WHERE (((Len([Basecode]))>6)AND ((Left([Basecode],2))='15')) OR
(((Len([Basecode]))>6) AND ((Left([Basecode],2))='54')) OR
(((Len([Basecode]))>6) AND ((Left([Basecode],2))='78')) OR
(((Len([Basecode]))>6) AND ((Left([Basecode],2))='96'));
How do i get other data which won't retrieve based on above queries, other than data mentioned on these queries like this
Code:
Description EID Basecode
----------- ---- ---------
ssdad 1001 2378797
gfd 1002 1164478
ddd 1004 1040
d88jg 1004 14C676
fsa 6565 158
fdh 1004 2Khlm
ggdg 2009 967
Third query not working
Code:
SELECT tbl1.EID,tbl1.Description,tabl1.Basecode FROM tbl1
WHERE (IsNumeric(Left(Basecode,1)) AND Left(Basecode,1) Not In ("W","N"))
AND NOT (((Len([Basecode]))>6)AND ((Left([Basecode],2))='15')) OR
(((Len([Basecode]))>6) AND ((Left([Basecode],2))='54')) OR
(((Len([Basecode]))>6) AND ((Left([Basecode],2))='78')) OR
(((Len([Basecode]))>6) AND ((Left([Basecode],2))='96'));
I am trying to create a Database that will type our orders. I have a table with our customer list that includes both billing and shipping information. The problem is that sometimes one customer will request a "drop shipment" to another customer. Is it possible to retrieve different data from two different customers? Billing info for customer "A" and shipping info for customer "B" without creating seperate tables?
View 1 Replies View RelatedHow can i retrive Bulk Data - from Different database into this database table. At the moment i loop through all the records which is not good idea...i want it to be real quick without linking the table...
I heard something like Insert into statement can work but have never used one....
I have a table:
And I want to extract the "Submit Date" data and place them into their corresponding fields on a form:
Basically I want to take the Submit Date column from the table and place them (in the same order) in the form. How can I do so? I'm also confused as to what to select for the Control Source in the Form Design.
*Note: both "Submit Date" columns in the form and table are set to Date/Time.
--Using Access 2000
In a Library database, there is a form about Books Lends o returns (table: MovBooks) When someone needs a books, I need verify if the book is lended or not. (Table: Books, field: Status -Yes/No-) and update if its free
I want to resolve this problem using Recordset.
Thank you very much