What Is Wrong With This Code?
Aug 4, 2006
Hi all,
I have a form called frmrgstr with three text boxes, one combo box, and one button. Also, I have a table called info with four columns. That form "frmrgstr" is not based on any table.
What I want is, that to send data from the form to the table after clicking the button for the form.
I did the required code:
Dim x As String
x = "INSERT INTO info(UserName, PassWord, Email, Gender) VALUES(Me.Text0, Me.Text2, Me.Text4, Me.Combo29)"
UserName = Me.Text0.Value
Me.Text0.SetFocus
Password = Me.Text2.Value
Me.Text2.SetFocus
Email = Me.Text4.Value
Me.Text4.SetFocus
Gender = Me.Combo29.Value
Me.Combo29.SetFocus
DoCmd.RunSQL x
MsgBox "Welcome! " & Me.Text0
But after running the code, each time it will ask me about the value of text0, text2, text4, and combo29.
So please, what is wrong with that code......?????
See the attached file.
Thanks in advance....
Regards
Mark K.
View Replies
ADVERTISEMENT
Oct 28, 2004
The following code is for a delete button that is supposed to delete a job. However, in order to delete a job, related records (in tblJobDetails and tblLaborDetails) need to be deleted first. What I did was try to open the record source and delete them, and then once they're all deleted, delete the job. When I click the button, though, no action is taken and I get the error message:
The record cannot be deleted or changed because table 'tblJobDetails' (or tblLaborDetails if tblJobDetails is empty) includes related records.
Is there any way to get this code to work without making the relationships cascade delete?
Thanks a lot
-Jason
Code: Private Sub cmdDeleteJob_Click()On Error GoTo Err_cmdDeleteJob_ClickDim dbRoofing As DAO.DatabaseDim rcdJobDetails As DAO.RecordsetDim intJobID As IntegerDim intMaterialID As IntegerSet dbRoofing = CurrentDbintJobID = Me!JobID'clear out materialsSet rcdJobDetails = dbRoofing.OpenRecordset("tblJobDetails")rcdJobDetails.FindFirst "JobID =" & intJobIDIf rcdJobDetails.NoMatch = False ThenDoDoCmd.DoMenuItem acFormBar, acEditMenu, 9, , acMenuVer70DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70rcdJobDetails.FindNext "JobID =" & intJobIDLoop Until rcdJobDetails.NoMatch = TrueEnd If'clear out laborDim rcdLaborDetails As DAO.RecordsetDim intServiceID As IntegerSet rcdLaborDetails = dbRoofing.OpenRecordset("tblLaborDetails")rcdLaborDetails.FindFirst "JobID =" & intJobIDIf rcdLaborDetails.NoMatch = False ThenDoDoCmd.DoMenuItem acFormBar, acEditMenu, 9, , acMenuVer70DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70rcdLaborDetails.FindNext "JobID =" & intJobIDLoop Until rcdLaborDetails.NoMatch = TrueEnd If'delete jobDoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70Exit_cmdDeleteJob_Click:Exit SubErr_cmdDeleteJob_Click:MsgBox Err.DescriptionResume Exit_cmdDeleteJob_ClickEnd Sub
View 6 Replies
View Related
Dec 14, 2005
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Logins"
stLinkCriteria = "[ID]=" & "'" & Me![lstLogins] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
This code is on the doubleclick event.
lstLogins is sourced from this: SELECT Logins.[ID], Logins.[Login for] FROM Logins WHERE (((Logins.Customer)=[forms]![customers]![customer]));
When i run it I get a VB error "The OpenForm action was cancelled", and the debugger stops on the last line above (Do.Cmd...)
Any ideas why?
I know [ID] is a long integer, but I tried formatting it with Str just in case and it made no difference :(
View 2 Replies
View Related
Jul 11, 2006
I placed a combo box named CboSearchItem on form to select and bring the record onto the form. Its working smoothly.
Set rst1 = CurrentDb.OpenRecordset("Select * From Product_Master " & _
"where Productname= " & """" & CboSearchItem & """")
But when data in field 'ProductName' contains " mark, it produces error 3075 :
Syntax error in string in query expression "ProductName = "Hose White 3/4"'"
When I replaced all " mark from the data / record, it works fine.
For example Product Name are as follows:
Elbow 2 Way
ABC Pipe 3"
Shower Pipe 1 1/5 Meter
Reading all the above record but not the second one because it contains " mark.
I can not tell my client not to use " symbol while entering the product name. There should be a solution.
Please extend your help.
With kind regards,
Ashfaque
View 6 Replies
View Related
Feb 16, 2006
Works great, but when I hit the number "3", (3 times in row) it will let me into the form. I want it to not let me in IF I don't know the password.
Where did I go wrong?
Private Sub Form_Load()
Dim pw As Variant
If InputBox("What is the password?", "Password") = "1" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
If InputBox("What is the password?", "Password") = "2" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
End If
End If
End Sub
View 14 Replies
View Related
Jan 14, 2007
I protect my code from people being able to read it by setting a password on the code from Tools > Properties, selecting the Protection tab and entering a password, and clicking "Lock Project"
Is there a way to write code that will remove that Lock Project check and check it back on?
I've looked through the Application.SetOption command and it doesn't seem to be one of the choices. It would be very helpful if someone knew how to do this.
Thanks
SHADOW
View 6 Replies
View Related
Sep 21, 2005
Ok Guys,
Here goes...
all of a sudden now, when i open my form, its not displaying any of the previous data that i stored in it!! All the data is still in the table, and when i add data it goes into the table!! I checked properties and the record source and everything is ok there, what have i done wrong guys...HELP!!!!
View 3 Replies
View Related
Jun 9, 2006
I purchased a copy of Office 2003, on Ebay, for less than half the price it normally sells for. I created databases, which work well on my computer. However, when I copy them over to the office computer from my computer, via Flash memory stick, the program does not run. The message seems to indicate a problem with registration. When I installed Access, it asked me for a registration key, which I did provide. After that it worked-not activation process. Does this mean that you can only use the computer you created the database on to run it, or that I do not have a proper version of Access 2003? I cannot transfer, from my home computer, to the office computer. Is this Microsoft paranoia again?
Subsequent uninstalls and reinstalls of the program did not ask for the installation key.
What should happen? I would like to resolve this major problem and your help will be greatly appreciated. The program is flaky. Also, Switchboard does not work-must use Option Box.
These questions most user must know about initial installation and copying mdb files to other computers -please reply.
View 2 Replies
View Related
Oct 16, 2006
Hi,
Can anyone tell me what's wrong with this:
DoCmd.RunSQL "INSERT INTO tblPersoaneJuridice (Denumire,Localitate,CodUnicInregistrare,NumarInre gistrareRegComertului,Telefon,Fax) VALUES ('" & Forms!frmPrincipal!subfrmTipVersus!txtDenumire & "','" & Forms!frmPrincipal!subfrmTipVersus!txtLocalitate & "','" & Forms!frmPrincipal!subfrmTipVersus!txtCUI & "','" & Forms!frmPrincipal!subfrmTipVersus!txtNumarInregis trare & "','" & Forms!frmPrincipal!subfrmTipVersus!txtTelefon & "','" & Forms!frmPrincipal!subfrmTipVersus!txtFax & "')"
cui = DLookup("[CodUnicInregistrare]", "[tblPersoaneJuridice]", "[NumarInregistrareRegComertului]='" & Me!subfrmTipVersus!txtNumarInregistrare & "'")
i have a string variable denoted by cui and i need it to take value from table tblPersoaneJuridice from field CodUnicInregistrare. CodUnicInregistrare and NumarInregistrareRegComertului is text.
View 3 Replies
View Related
Jun 14, 2007
Have not coded for about 5 years and need a little refresher. Can't remember what I need to do. Thanks
Dim SelectedCompany As String
Dim rs As ADODB.Recordset
Dim Cn As ADODB.Connection
Dim sSql As String
Set rs = New ADODB.Recordset
Set Cn = New ADODB.Connection
SelectedCompany = Me!cboCompanyName.Text
sSql = "select Customername, AddressLine1, AddressLine2, AddressLine3, AddressLine4, AddressLine5, AddressLine6 from customers where "
sSql = sSql & "CompanyName = '" & SelectedCompany & "'"
rs.Open sSql, Cn, adOpenStatic, adLockReadOnly
this last line fails with error "No value given for one or more required parameters."
The code is executed when someone selects something in a combo box on a form in an access database.
Thanks
Pete
View 4 Replies
View Related
Oct 4, 2007
I think I'm just tired, and not seeing what to do here.
I have my main table.
MainID PK
bunch of other fields...
I also have a 'created by table'.
Createdby_ID PK
User ID
Main ID
Date_created.
I also have a user table, with a list of all the users.
User_ID PK
User_Name.
Is this the right way to setup these tables?
Only 1 person can create any paticular record.
I want it to be required tha whoever creates the record selects their name and dates it.
View 11 Replies
View Related
Dec 13, 2005
strSQL = ("SELECT onespace2(MeetingMinutes!MinutesID, '.' ) & " - " & [MinutesTitle] AS Item, MeetingMinutes.MeetingCode, Minutes.*, MeetingMinutes.MinutesCode, MeetingMinutes.MinutesID ")
strSQL = strSQL & ("FROM Minutes INNER JOIN MeetingMinutes ON Minutes.MinutesCode = MeetingMinutes.MinutesCode ")
strSQL = strSQL & "WHERE MeetingMinutes.MinutesCode= " & MinutesCode & " AND MeetingMinutes.MeetingCode= " & [Forms]![MinutesMFnew]![ComboMeetingNav] & ";"
cant get it running.
i got the same query running made in the querybuilder, but somethings change, so i need to adjus it in vba. But it doenswork, and get a type error
please advice
View 1 Replies
View Related
Jul 13, 2007
DoCmd.RunSQL "INSERT INTO tblAccessLog " _
& "(DateLoggedOut, TimeLoggedOut) VALUES " _
& "(#" & Date & "#,#" & Time & "#) WHERE " _
& "(LogID = '" & LogsID & "');"
Could anyone possibly tell me why this isn't working? Probably something stupid i've done bus still.
When i run it, I am getting the error message "Query input must contain at least one table or query" yet i've told it to use tblAccessLog so i'm just confused.
Thanks
View 8 Replies
View Related
Aug 14, 2007
StrSQL = "INSERT INTO LV (Directory_Name:,Filename:, Total_Files,Total_Records:,Total_Batches:, Total_YH) VALUES ('" & DirectoryName & "', '" & FileName & "', TotalFiles , TotalRecords , TotalBatches , TotalYH);"
Have tried loads of combinations of the " ' and ' " to get it working but just keeps giving me the damn syntax error!!! :mad:
What's wrong with it? Thanks
View 2 Replies
View Related
Oct 11, 2007
strSQL = "INSERT INTO TBL_History (Filename, Agent, SentRecieved, Accepted, Notes) VALUES ('" & [Forms]!FRM_ImportSubmission.submission_filename & "','" & [Forms]![FRM_ImportSubmission]![cboAgent] & "','Recieved','True','');"
CurrentProject.Connection.Execute strSQL
i've posted it as the sql string is built in the code
i get a 'catastrpohic error' when running it from vb like this and when i build put the string into a query and run it through the access user interface it worrks
View 14 Replies
View Related
Oct 23, 2007
I made a number of changes to a DB that was working fine (normalised further). So what's wrong? I have a number of forms (for my sample DB I have stripped down to just one, if I can resolve for this I can apply to others).
qryENTRY_COMPUTERS
ENTRY COMPUTER FORM
The user adds a new computer then selects the Computer Make (qryLOOKUP_COMPUTER_SUPPLIER) & Computer Model (qryLOOKUP_COMPUTER_MODELS).
This now returns error 'recordset is not updateable'.
The query on which the form is based is incorrect (qryENTRY_COMPUTERS). Previously I was able to add tblSupplier & tblSupplierProducts to the query then add field ProductDescription fom tblSupplierProducts to the query. This allows users to select a value from cboComputerModelID (ProductID), field ProductDescription then displays the related descriptive value for the ProductID selected (value remain on screen when user naviagtes between records.
I have attached a sample database (access 2002-2003 format).
I am sure the answer is staring me in the face but I have now spent hours trying to resolve!!
Help very much appreciated.
Phil.
Update: One difference I can see is that on the query 'qryENTRY_COMPUTERS' where i have added tblSupplierProducts & tblSupplier the join properties are in reverse i.e. Left Table Name = tblSupplierProducts Rigth Table Name = tblComputers Left Column Name = ProductID Right Column Name = ProductID ????
I can't edit this.......................
View 14 Replies
View Related
May 6, 2005
i cant seem to get this to work.
any help would be greatly Appreciated
=sum(iif([SADate]>=DateSerial(Year(Date()),Month(Date()),[p]))
thanks in advance
View 3 Replies
View Related
Jul 20, 2005
I am trying to create a form that has an unbound text box which row source is a field in a table. I have created a subform that gets the records from another table.
Both tables are linked in a one to many relationship. When a user selects a record in the cmbo box i want the table to show only those records which are related.
This obviously didnt happen. So i changed the subform instead of a table as its source but a query, then in the criteria of a query just set it to look at the cmbo on the form. After the cmbo was updated i got the subform to requery.
This worked fine, but i was unable to make any changes or updates but with no particular error.
When inserting a subform using the wizard i do remember coming across a section of a wizard that asks me if i would like to tie in the subform with something on the form. However this part of the wizard just doesnt show. Maybe i was using a different version of access for this wizard?? i am currently using Access XP.
Am i really going MAD!!?
View 3 Replies
View Related
Aug 30, 2005
I'm trying to mess with a combo box where when one user selects a value a form opens up. This is the code I'm typing in but I keep getting a syntax error
DoCmd.OpenForm(Phone,[View As AcFormView=acNormal],[DataMode As AcFormOpenDataMode=acFormAdd],[WindowMode As AcWindowMode = acWindowNormal],[OpenArgs])
View 5 Replies
View Related
Aug 15, 2006
Hi,
Trying to make the selection in a combo box on frm1 be the filter on frm2.
I found this example by searching the form, but it's not working for me
Option Compare Database
Private Sub Command3_Click()
On Error GoTo Err_Command3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "form_lastnametotal_exludeholidayform"
stLinkCriteria = "[Employee_Name]=" & Me!cboMyCombo
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command3_Click:
Exit Sub
Err_Command3_Click:
MsgBox Err.Description
Resume Exit_Command3_Click
End Sub
I get an 'the openform action was canceled' error?
Any ideas?
The second form is based on a query
Thanks
View 10 Replies
View Related
Sep 26, 2006
Hello once again. I have been working on a small database that records all IT records (Desk Info / Software / License Info / Hardware etc...) Somebody out there might even find it useful!! Will post to DB forum when working :)
Where to begin. I thought it would be a good idea to normalize a little more........(still not 100% but an improvement). I seperated Software/License information. I now have tblSoftware & a tblLicenseDetails.
Basically the clux of it all centers around a form 'frmDeskSetup'. You can search via three methods (Desk ID / User ID or Computer ID). I would like to amend the Installed Software Form (last form on frmDeskSetup) to include the License Information.
I have also tried to create a query linking tblComputerSoftware tblSoftware + tblLicenseDetails. My idea was to create a form that would allow users to Add Software/ Add a License for that Software and then allocate the licensed software to a computer all from one form. The query run OK but would not allow data entry via the form!!
Sorry for the length of this post. I have attached a stripped DB for forum in Acess 2003 format.
Thanks in advance,
Phil.
View 5 Replies
View Related
Sep 3, 2004
IIf([Count: ERName]>=5,"Yes","No")
What is wrong with this line? I am entering it in the following query:
ERName Group By
Department Group By
Date of Call-In Group By
Type of Call-In Group By
Count:ERName Count
The other thing I tried is just doing another query based on the above query and doing a totals (sum) line on Count:ERName. That doesn't work, it prompts me for count (as if that is a parameter I want to choose.
Any ideas? Sorry to be a pain. Thanks!
KellyJo
View 1 Replies
View Related
Dec 13, 2004
Hello,
I am still learning access- I am hopeful someone does not mind helping me...no matter how easy or simple this may be. I will do my best to describe what I am trying to do.
I am creating a system admin database- starting from scratch and am willing to start over.
I would like to create 2 forms that work directly with the appropriate tables.
Table 1 (host/IP):
Hostname
IP address
User - uses a drop down already created
System - uses a drop down already created
Table 2 (system updates):
Action- uses a drop down including install, remove, etc...
Software- uses a drop down to select from including virus, system updates
Date updated
Comments
Form 1:
-new record button (to enter new hostname record and IP associated)
-find button
-save button
-Exit (database button)
-Delete Record button)
-hostname
-IP address
-user (drop down to change user if necessary)
-System (drop down to select laptop, workstation, etc.)
-"Add/update patch" button (which I would like to link to form 2 showing
only the records for the selected host/IP on form 1)
- "view all updates for this system" button (within last week or month)
Form 2:
- Clear or undo button (which will undo any field entered by mistake on this
form)
- Save button
- Exit (to main form) button
- Hostname field which matches what is on form 1
- user field which also matches what is on form 1
- Next, there are four separate lines (as seen below)- each with the
appropriate links to table 2. The purpose of the four lines is if the admin has
four separate updates to be entered, they can do it on one page, click
save and each separate will be saved and accociated with that hostname,
IP.
1. Action - Software - Date Updated - Comments
2. Action - Software - Date Updated - Comments
3. Action - Software - Date Updated - Comments
4. Action - Software - Date Updated - Comments
- System Admin field - this is to show who did the updates for the selected
hostname/IP
Now, I seem to be okay with form #1 (except the "view all updates..." button)
Form #2 is giving me a fit. I seem to be having problems populating all the hostname records that have been entered. Also, the four lines are not working independently.
Is it possible to have the date update field automatically update when action or software is updated/selected.
Perhaps I have the second form set up wrong due to the relationships or primary keys or I just did not configure the form correctly.
Sorry for the long message- I hope someone can help straighten me and/or this database out.
Thanks in advance,
stillabeginr
View 4 Replies
View Related
Jun 9, 2006
I purchased a copy of Office 2003, on Ebay, for less than half the price it normally sells for. I created databases, which work well on my computer. However, when I copy them over to the office computer from my computer, via Flash memory stick, the program does not run. The message seems to indicate a problem with registration. When I first installed Access, it asked me for a registration key, which I did provide. After that it worked-no activation process. Does this mean that you can only use the computer you created the database on to run it, or that I do not have a proper version of Access 2003? I cannot transfer, from my home computer, to the office computer. Is this Microsoft paranoia again?
Subsequent uninstalls and reinstalls of the program did not ask for the installation key.
What should happen? I would like to resolve this major problem and your help will be greatly appreciated. The program is unreliable. Also, Switchboard does not work-must use option box instead.
View 2 Replies
View Related
Sep 28, 2007
Where am I going wrong here? I want to find then add if not found to this form. But the apply errors with err 3075. Any ideas???
NB Iam a first poster is this an OK question for here?, or should i have put it somewhere else
VBA Code part...
'Find or create the message
DoCmd.OpenForm "frmMessage", acNormal, "", "", acEdit, acNormal 'Open the
message form.
'this goes wrong because strEvent is passed and not it's contents I think!.
DoCmd.ApplyFilter "", "[Forms]![frmMessage]![Message] = strEvent 'Apply a
filter to find the current message."
Any constructive help appreciated. thanks.
View 4 Replies
View Related
Feb 10, 2008
Time for you form experts to lend a hand.... what I have is 2 tables with queries based directly on them with no criteria and forms directly on the queries.
custtbl
CustID ----Text-Primary Key
Custname--Text-non essential just identifies customer
equiptbl
CustIDFK - Text-Foreign Key
EquipID -- Text -Primary Key
EquipDesc-Text -non essential just identifies equipment
qucust
CustID ----Text-PK
Custname--Text
quEquip
CustIDFK - Text
EquipID -- Text -PK
EquipDesc-Text
fmcust
CustID ----Text-PK
Custname--Text
button - vba code
fmEquip
CustIDFK - Text
EquipID -- Text -PK
EquipDesc-Text
On the button for fmcust, I have the following code:
Code:Private Sub Command7_Click()On Error GoTo Err_Command7_ClickDim strid As Stringstrid = Me.CustIDIf IsNull(DLookup("custidFK", "equiptbl", "custidfk =' " & Me.CustID & " ' ")) Then strQuery = "INSERT INTO equiptbl(custidfk) Values('" & strid & "');" DoCmd.SetWarnings False DoCmd.RunSQL strQuery DoCmd.SetWarnings TrueEnd If Dim stDocName As String Dim stLinkCriteria As String stDocName = "fmequip" stLinkCriteria = "[CustIDFK]=" & "'" & Me![CustID] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command7_Click: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click End Sub Now, for an existing record, this pulls it up fine, but if the record doesn't exist, then I want it to create a new record in the equiptbl and pull it up in fmequip. I've done some error checking, and everything works fine up to the insert to part of the vba. I have a feeling it's something simple, but I'm too much into it to look at it objectively. (I've had a lot of distractions all weekend - dogs, kids, roommate, roommate's kids, I just want to punch anything that makes noise, lol)
Here is the sample I'm working with. Record 1 from the customer table is included in the equipment table, record 2 is not.
Edit: As it is, if the record doesn't exist in equiptbl, it pulls up the form with an entirely new record, everything blank, but I want the customer ID to populate the custidFK field of the equiptbl if the record doesn't exist in equiptbl (sort of autocompleting part of the new record if you will).
View 4 Replies
View Related
