By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,650 Members | 1,976 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,650 IT Pros & Developers. It's quick & easy.

My most complex form yet, could use a little direction, No hurry.

P: 4
So here is the deal,

I am attempting to make what is the most complex form i have made yet. It really is not much, but as an amatuer it is a little overwhelming. Here's a few critical background point.s
  • I have 2 Master Databses - I will be linking in only 1 table from each - tblMaster
  • Each record contains demographic data and about 40 "variable" fields which consist of a name for each variable, and its data
  • Variable Field 20-29 - contains information about recent activity or communication with the record
  • Variable field 37 contains "Information regarding when we can contact the record"
  • Variable Field 38 Contains "Call List list information"
  • Variable Field 39 contains "Email communications for a particular project
  • Variable field 40 contains Email Communications regarding updating their record

What I am attempting to do in this form is to choose a Query or Table to update, choose which variable fields to update, and finally update [Name] and [Data] fields.

I am using a bit of code and format which I used to simply export data in a specified query or table, but now want to do what an update query does in a form. Below is the code currenlty in place to export, I hope that it will work the same for me.

Expand|Select|Wrap|Line Numbers
  1. Private Sub UpdatefieldsButn_Click()
  2.  
  3.     Dim ID As Long
  4.     Dim result As VbMsgBoxResult
  5.  
  6.     On Error Resume Next
  7. 'Queries Radial Select
  8.     If (QueriesRB = True) Then
  9.         If (QueriesCB.ListCount <= 0) Then
  10.             result = MsgBox("No Queries defined.", vbExclamation, "Export for TSS Sample")
  11.             Exit Sub
  12.         Else
  13. 'Queries Action
  14.             If Me.ProjectParticipationCheck = "True" Then
  15.                 If ([QueriesCB.Value].VarFieldName20 <= 0) Then
  16.                     QueryDef.Updatable (
  17.  
  18.         End If
  19.     Else
  20. 'Tables Radial Select
  21.        If (TablesCB.ListCount <= 0) Then
  22.             result = MsgBox("No Tables defined.", vbExclamation, "Export for TSS Sample")
  23.             Exit Sub
  24.         Else
  25. 'Tables Action
  26.  
  27.         End If
  28.     End If
  29.  
  30. End Sub
  31.  
Now I know what this is a very long post and asking a lot, but I'm not sure how to go about it. Whether using a bunch of if Statements or if a Case statement may work.

If anyone feels like being extremely helpful and taking a look at it, I'd greatly appreciate it. I'm a quick learner and happy to read up on the reference library that contains what I need and learn/do it myself, but need some guidance.

Thanks
Mar 13 '07 #1
Share this Question
Share on Google+
1 Reply


NeoPa
Expert Mod 15k+
P: 31,263
I'm sorry, but I can't work out what you're even trying to do from your explanation. There are too many explanations that reference undefined items. As we don't know the undefined item - the explanation gives us no further understanding.
Don't feel that no-one wants to help, just that they can't with the info as supplied.
Mar 17 '07 #2

Post your reply

Sign in to post your reply or Sign up for a free account.