Tilted Forum Project Discussion Community  

Go Back   Tilted Forum Project Discussion Community > Interests > Tilted Technology


 
 
LinkBack Thread Tools
Old 05-18-2004, 06:24 AM   #1 (permalink)
Addict
 
Location: Grey Britain
[Visual Basic][Access] Referring to an arbitrary field

A few days ago I asked about some code to loop through controls on a form. Stompy gave me a snippet for that and it's been very useful several times already. However, I'm now trying to use it as a lazy (plus efficient and futureproof) way of uploading data from TextBoxes and ComboBoxes, but I'm having trouble.

I have associated each of the relevant Controls with a field in the database, which is associated with a Data Control on the same form.

The code I'm using to try to add a new record is shown below.


Private Sub cmdAdd_Click()

cmdAdd.Enabled = False

Dim strDbName As String
Dim dbDatabase As Database, rsProperty As Recordset

strDbName = App.Path & "\EstateAgent.mdb"
Set dbDatabase = DBEngine.Workspaces(0).OpenDatabase(strDbName)
Set rsProperty = dbDatabase.OpenRecordset("properties")

rsProperty.AddNew

Dim e As Control

For Each e In Me.Controls
MsgBox e.Name
If (e.DataSource = Data1) Then
rsProperty!e.DataField = e
End If
Next

rsProperty.Close
dbDatabase.Close
Me.Refresh
cmdAdd.Enabled = True

End Sub

It doesn't like the line 'rsProperty!e.DataField = e' and returns an error 'Method or Data Object not found.'

I presume this is because it's trying to find a field called 'e.DataField', rather than the field that it holds. Is there any way I can make it look for whatever field e.DataField holds?
__________________
"No one was behaving from very Buddhist motives. Then, thought Pigsy, he was hardly a Buddha, nor was he a monkey. Presently, he was a pig spirit changed into a little girl pretending to be a little boy to be offered to a water monster. It was all very simple to a pig spirit."
John Henry is offline  
Old 05-19-2004, 01:41 AM   #2 (permalink)
Addict
 
Location: Grey Britain
Just in case anybody with a similar problem comes looking at this thread, I ought to tell you how I got round it.

I'm pretty certain now that it's not possible to do what I was trying to do (but if it is, I'd still be very interested to know how) so I did it a different way.

I'll spare you the source, but the way I did it was to create a new record with all fields blank when you click on add record, then bring up a form to view the record, let the user edit all the textboxes then when they click on add record, it just saves the changes using the update method and the datafield properties.
__________________
"No one was behaving from very Buddhist motives. Then, thought Pigsy, he was hardly a Buddha, nor was he a monkey. Presently, he was a pig spirit changed into a little girl pretending to be a little boy to be offered to a water monster. It was all very simple to a pig spirit."
John Henry is offline  
Old 05-20-2004, 07:52 AM   #3 (permalink)
Tilted
 
Re: [Visual Basic][Access] Referring to an arbitrary field

Quote:
Originally posted by John Henry
rsProperty!e.DataField = e

It doesn't like the line 'rsProperty!e.DataField = e' and returns an error 'Method or Data Object not found.'

I presume this is because it's trying to find a field called 'e.DataField', rather than the field that it holds. Is there any way I can make it look for whatever field e.DataField holds?
First of all, rs!... is an abominable kuldge and should be avoided. Second of all, unless you specify you want to set the field's Value, it may assume you want to set the field object equal to the control, which won't work.

But the following should:

rsProperty(e.DataField).Value = e
magua is offline  
 

Tags
arbitrary, basicaccess, field, referring, visual


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT -8. The time now is 01:11 AM.

Tilted Forum Project

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Optimization by vBSEO 3.6.0 PL2
© 2002-2012 Tilted Forum Project

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73