I have part of my form done, called frmcustomers with drop down menus which are working fine, thanks to prior help on here. Now I have an issue, I want to be able to send my information selected in my checkboxes back to a new table with everything checked, I don't want it to go back in the table I already use to get the information from the check boxes. I have a cmd print button, and I want to use that to first, use the information selected send back to my new table and than print that set of information out, I have a couple of fields that will go in the table, client, test, time, date. If anyone can help, much appreciation.
Justin
8 1380 MMcCarthy 14,534
Recognized Expert Moderator MVP
Hi Justin
Sorry I'm not sure what you are trying to do. Do you want to add a record to another table based on the current selections in the form?
Mary
Yes, from my checkbox selections which are already displayed on the form through a table and selectable I want to hit the print button which I have printing fine already, but before it prints, I want someway to send the selections on the drop down to a new table called login. I have time and date set up, customer name set up and customer test. Any help would be appreciated thanks for the response Mary. I have the empty table, I just need to know how to take my information from the checkboxes and date, and send them to each field in this table, for Customer, test, date, etc. One simple example would be fine, I've tried to search all over the net, and my access book is useless. I use to program years ago, I'm so rusty now it's not even funny. I do mostly lab work and secretarial. I'll send a donation in when I complete the project, because this site is so helpful to me and I'm thankful for that.
MMcCarthy 14,534
Recognized Expert Moderator MVP
Can anyone help?
Would something like this work? -
Dim strSQL As String
-
-
strSQL = "INSERT INTO Login (Customer, test, date) " & _
-
"VALUES('" & Me!Customer & "', '" & Me!test & "', #" & _
-
Me!date & "#)"
-
DoCmd.RunSQL strSQL
-
This assumes Customer and test are text fields and have the same textbox names on the form as column names in the table.
Mary
Here's my code -
Private Sub cmdprint_Click()
-
On Error GoTo Err_cmdprint_Click
-
Dim stDocName As String
-
Dim MyForm As Form
-
-
stDocName = "tbldate"
-
Set MyForm = Screen.ActiveForm
-
DoCmd.SelectObject acTable, stDocName, True
-
DoCmd.PrintOut
-
DoCmd.SelectObject acForm, MyForm.Name, False
-
Text54.Value = Now()
-
Text54.Visible = True
-
-
Exit_cmdprint_Click:
-
Exit Sub
-
-
Err_cmdprint_Click:
-
MsgBox Err.Description
-
Resume Exit_cmdprint_Click
-
End Sub
-
-
Private Sub Combo27_AfterUpdate()
-
Dim rs As Object
-
Set rs = Me.Recordset.Clone
-
rs.FindFirst "[CompanyID] = " & Str(Nz(Me![Combo27], 0))
-
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
-
Me.Combo29.Requery
-
Combo29.Visible = True
-
-
End Sub
-
-
Private Sub Combo27_Change()
-
cmdprint.Visible = False
-
-
Dim strCustomer As String ' define string
-
-
strCustomer = strCustomer & "" & Me.Combo27.SelText & ", "
-
'appending the value to string from box
-
-
' remove excess off string in append
-
strCustomer = Left(strCustomer, Len(strCustomer) - 2)
-
-
MsgBox strCustomer
-
End Sub
-
-
Private Sub Combo29_AfterUpdate()
-
cmdprint.Visible = True
-
-
End Sub
-
-
Private Sub Combo29_Change()
-
Dim strTest As String ' define string Test to use for append
-
-
strTest = strTest & "" & Me.Combo29.SelText & ", " 'append string from combobox
-
-
' to remove excess comma stored in append
-
strTest = Left(strTest, Len(strTest) - 2)
-
cmdprint.Visible = True
-
End Sub
-
-
Private Sub Form_Load()
-
Text54.Visible = False
-
Combo29.Visible = False
-
cmdprint.Visible = False
-
-
End Sub
-
I want those strings from Combo27 (to go into TablePrint in field CustomerPrint), and Combo29( to go into TablePrint in field TestPrint).
MMcCarthy 14,534
Recognized Expert Moderator MVP
I want those strings from Combo27 (to go into TablePrint in field CustomerPrint), and Combo29( to go into TablePrint in field TestPrint).
Are these new records to be appended or are you trying to update existing records?
Are these new records to be appended or are you trying to update existing records?
They are new records I'm storing them, taking them originally from a table, and upon selection, through the drop down boxes, sending the submitted results to a new table to store the selections. Just pretty much for record keeping of clients and tests that go on.
MMcCarthy 14,534
Recognized Expert Moderator MVP
They are new records I'm storing them, taking them originally from a table, and upon selection, through the drop down boxes, sending the submitted results to a new table to store the selections. Just pretty much for record keeping of clients and tests that go on.
The problem is that the two values are being retrieved in two separate procedures. You need to consider the following.
Storing the values in public variables for use later.
Creating a Add to table button which will retrieve the values from the two combo boxes and insert them into the table. -
Dim strSQL As String
-
-
strSQL = "INSERT INTO TablePrint (CustomerPrint, TestPrint) " & _
-
"VALUES('" & Me!Combo27 & "', '" & Me!Combo29 & "')"
-
DoCmd.RunSQL strSQL
-
Mary
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: Nomen Nescio |
last post by:
can anyone be so kind as to look at
http://www.mysolution.ws/HYPOCRITE.php
and let me know why it isn't passing the form data to
http://www.mysolution.ws/insertHYPOCRITES.php
for the most...
|
by: BaWork |
last post by:
I have a web form where a client can select which site members to send
an email to.
This form is populated from the contents of the member table, so the
form can have 0-x names listed on it...
|
by: Del |
last post by:
I have two question on sending email messages from MS Access (Versio
2000, 2002, and 2003). I have a form with a command button to send an
email message, the code behide the button is as follows;...
|
by: bidllc |
last post by:
I'm working on a minor bug from an open source bug tracking system
(bugtracket.net). It's a great app, but I don't want to bother the
creator any more than I have to, so I thought I'd pose the...
|
by: Philippe Lang |
last post by:
Hello,
I need to send emails from Postgresql triggers.
I was able to do it with a 'plperlu' function, that calls the 'system'
perl function, that itself calls the 'mail' shell function.
Is...
| |
by: salad |
last post by:
Hi Guys: I was stuck. I needed to send a report to a file. My
beautiful report(s) in Access were going to require loss of formatting
with RTFs, a PITA in WordMailMerge, sending it as a text...
|
by: Barry Edmund Wright |
last post by:
Hi,
We are having a large cheque run printed by an outside printer. The
printer asked us to give him the layout of the fields to print on a
form and send it to him. As an example the form looks...
|
by: bleachie |
last post by:
Hey,
I just need some help, my form seems to not send me all of the 'guestNames' and 'guestEmails' forms.
i use this function to add more guestnames and guestemail fields based on the number of...
|
by: nargis2009 |
last post by:
Hi,
I have been encountering problems with my web page which is supposed to send email, and wondered if anybody can help find error.
Initially I had all codes in one page and on click of...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
| |
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| |
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...
| |