hello,
okay, simple question. How in visual basic code do you tell the prompt to go to the next line in the same control on a form? In other words, how do you mimic the behavior of the enter key in code?
D
Hello,
I am writing an IF Else code and need to go to a new line as the If IsNull.....are too many. Any idea how can I do this?
I get an end of statement error.
Thanks.
Hi.
Hope this is in the right forum, apologies if not.
I am sure this is a simple question, but if I have a long line of code, I have to keep scrolling to the role to see it on the screen.
How do I see the line of code so it appears on the screen without scrolling...i.e Word Wrap sort of thing.....?
Many thanks.
Frank.
Hi All
I have the following code and wish to change the Weights.Collected field to True from false in the new query (expr3: ) in the new query.
Thanks
Private Sub cmdBuildQuery_Click()
On Error GoTo Err_BuildQry
Dim strSQL As String
Dim qdf As DAO.querydef
strSQL = "SELECT TOP "
strSQL = strSQL & Me.txtNumberToGet
strSQL = strSQL & " weights.Weights, Weights.DocketNo, Weights.Collected, Weights.UKBulk, Weights.weighttime FROM CollectionQry "
strSQL = strSQL & "ORDER BY ([id]);"
DoCmd.DeleteObject acQuery, "qryCollectYorks"
CurrentDb.CreateQueryDef "qryCollectYorks", strSQL
DoCmd.OpenQuery "appendUkBulk"
DoCmd.OpenQuery "qryCollectYorks"
Exit_BuildQry:
Exit Sub
Err_BuildQry:
If Err.Number = 7874 Then
Resume Next
Else
MsgBox Err.Number & " - " & Err.Description
Resume Exit_BuildQry
End If
End Sub
Is there a way to comment out a specific section of a SQL query within MS Access? The normal SQL commands such as, rem text; ' text ; - text ; or /* text doesn't seem to work.
Any help is appreciated.
Thanks.
Greetings,
I was wondering of I can simplify this line of code which to me looks very clumsy. It work but I assume it could be more efficient?
The line is;
If IsNothing(Me.transvalue) Or IsNothing(Me!FrmDestination.Form.sumtransvolume) Or Me.transvalue > Me!FrmDestination.Form.sumtransvolume Or Me.transvalue < Me!FrmDestination.Form.sumtransvolume Then
(obviously it is on one line)
The whole code is
If IsNothing(Me.transvalue) Or IsNothing(Me!FrmDestination.Form.sumtransvolume) Or Me.transvalue > Me!FrmDestination.Form.sumtransvolume Or Me.transvalue < Me!FrmDestination.Form.sumtransvolume Then
MsgBox "There is a volume error " & vbCrLf & _
"the data entry has not been properly completed " & vbCrLf & _
"Please correctly enter or check all Data", vbCritical, gstrAppTitle
Else
etc.
Point two is there a way of simplifying the "<" and ">" to say not equals.
Thanks in advance
rbinder
I saw this code and was wondering how does it actually work?
I saw it in/connected to a textbox.
Private Sub savetime_BeforeUpdate(Cancel As Integer)
End Sub
I have manipulated the duplicate record code found online to suit my purposes. It works for all the other subforms, however this subform has too many fields so the code goes onto the next line. How do I solve this? Online it says using "& _ " but I can't get it to work. There's basically too many fields to fit on one line so I need to continue the code onto the next line
Code with end of line problems highlighted in red:
If Me.[subformEmissionsControlTarget].Form.RecordsetClone.RecordCount > 0 Then
strSql = "INSERT INTO tblEmissionsControlTarget ( System_ID_No, EmissionsStandard, OtherEmissionsStandard, IntakeThrottle, OBDrequired, OBDVersion, DPFregenmethod, ExhaustTemperature, EGRTemperatures, EGRRates, SteadyStateCycle, SteadyStateEngineeringLimitType, SteadyStateLegislativeLimitSmoke,
[Code] ....
I programming a eBay upholder, and having an issue with the description, as there cant be any line breaks in the column. I have little knowledge of Vba programming. I think I can use the replace command to change the line breaks to spaces.
View 4 Replies View RelatedI have a database that I've split and have deployed to 7 persons.
The thing is, I have three (3) forms:
Form 1
Form 2
Form 3
...that require changing a portion of a line in each form's respective VBA codes. I need to change the directories to where an excel workbook is stored after exporting, and another is where same excel is moved to after being uploaded.
At the moment, during deployment I have to manually change the directories.
I was thinking of maybe a pop-up form with four (4) fields that allows the user to select his/her name at the start-up of their frontend app, and paste the directories in the other text boxes provided.
This information will then be used to replace the directories in the VBA.
If I were to make changes and have to redeploy, I would have to do everything manually again.
Hello again,
Is there a way in determining how the users jumps from one text or combo box to another on a form?
When I press enter I want the cursor to move to a different text/combo box than the one it automatically moves to.
Is there a way of doing this?
Any help appreciated!
Here's the statement
Code:
sqlfinal = "SELECT Employees.ID, Employees.Name "
sqlfinal = sqlfinal & "FROM ((qryDeptVBA INNER JOIN qrySkillVBA ON qryDeptVBA.ID = qrySkillVBA.ID) "
sqlfinal = sqlfinal & "INNER JOIN Employees ON qryDeptVBA.ID = Employees.ID) "
sqlfinal = sqlfinal & "INNER JOIN qryAreaVBA ON Employees.ID = qryAreaVBA.EmpID "
sqlfinal = sqlfinal & "GROUP BY Employees.ID, Employees.Name;"
If i simply remove the GROUP BY line and stick the semicolon at the end of the previous line (.EmpID; ) it works just fine. How is adding a group by line causing an error?I tried adding another parenthes at the beginning ((( and ending the joins as EmpID); and that failed with the exact same error.
I have a main form with 3 sub forms. The main form is tied to a table called QUOTES_MASTER. The first sub form is tied to a table called QUOTE_ LINE_ ITEMS_DIRTGLUE. It calculates the subtotal when selecting items. The relationship is one-to-many linked on QUOTE_ID.
The second sub form adds up total of all line items and is not tied to a table.The third sub form adds ESTIMATED FREIGHT to the PRODUCT TOTAL and is not tied to a table. how to get the values from the line items form inserted into the QUOTE_LINE_ITEMS_DIRTGLUE table as they are added.
I also want to insert the total value from ESTIMATED DELIVERED into the LINE_TOTALS field in the table QUOTES_MASTER.I tried this code on the product total sub form but it doesn't do anything and there are no errors:
Private Sub PROD_SUB_AfterUpdate()
DoCmd.RunSQL "UPDATE QUOTE_LINE_ITEMS_DIRTGLUE SET QUOTE_LINE_ITEMS_DIRTGLUE.SUBTOTAL = Me.PROD_SUB WHERE QUOTES_MASTER.QUOTE_ID = " & Me.QUOTE_ID
I have a module which reads a CSV transaction file line by line and adds the correct transactions to an access table and places the wrong ones in a logfile.Now some transactions are rejected twice there is even one rejected six times. Whereas one wrong transaction is processed only once. I am certainly overlooking something obvious in the logic but what. Here is the relevant code.
Code:
Function ImportCSVForConfederation(inputCSV, ORG)
Dim TNO As Integer, TACT As Integer, TABLE As String, TLINE As String, I As Integer, J As Integer, K As Integer
Dim FLD1 As String, FLD2 As String, FLD3 As String, FLD4 As String, LogFile As String, LogPath As String
Dim Lim As String, ITNO As Integer
[code]....
Greeting All!
I mentioned this a while back but was never able to solve this problem.
I don't have any nails left to chew so I hope some smart person on this forum can spot the error or know how to solve it.
Here goes...
On the main form you have a building that you can click on, once you have done so it will then list all the fire fighting appliances in that building that need servicing.
The problem is that when I'm editing the records the list box jumps to the first record after saving it & you have to scroll to the last record again to continue.
It's not so bad if you only have a few records to edit but it is a pain when you have more than can fit on the form.
I hope someone can spot where I'm going wrong and help me out as I have no idea how to solve this.
Thanking you in advance.
I have a long form that has a tab control at the bottom of it. You have to scroll down to get to the tab section. After I scroll down, when I click on one of the tabs the form jumps up. It doesn't jump up to the beginning of the form but somewhere near the beginning. I've checked everything that I could think of but nothing helps this situation.
Does anyone have any ideas?
Thanks
Sue
I am having a little difficulty with my importing in Access. Every time I import my text file, the lines will be jumbled. I have been reading up and I found this recordset code that seems to be what I need:
Code:
Dim strLine As String
Dim intLineNum As Integer
Dim MyDB As DAO.Database
Dim rst As DAO.Recordset
Open "C:TestTest.txt" For Input As #1
Set MyDB = CurrentDb
Set rst = MyDB.OpenRecordset("tblResults", dbOpenDynaset)
CurrentDb.Execute "DELETE * FROM tblResults", dbFailOnError 'Clear tblResults
[code]....
Basically, this code will extract data from the text file as long as it fulfills the Mid$ criteria. Here's where my problem comes. Each line in my text file is of different lengths and I have to capture the entire line.
I think using the Left$ function would work, but I don't know how to determine the character count such that the entire line of text would be inserted into the table.
Another difference between what I need and the code above is that, I am required to store each line into each row of my table, meaning
Line 1 is placed in Row 1 Column 1
Line 2 is placed in Row 2 Column 1
Line 3 is placed in Row 3 Column 1
.
.
.
Line X is placed in Row X Column 1.
Hello,
I have a simple invoice database with a primary key in the main table (with autonumber as invoice no.) and a subform with the item details which is without a primary key with the data type as numbers. In addition, I had the tables linked as one to many relationship. What happen is that when I am entering the data, the number jumps . For eg: It was suppose to be 7123 but the next entry was 7150. Pls kindly advice.
When the client clicks in a text-Box or Combo-box in a sub-form, the field seems to jump to the side. in this image it jumps to the left, but jumps to the right to..., it is quite irritating, especially attempting to open a combo-box list, and see the button jumping aside.We renewed the file many times, so I don't think it is corrupted, but go know..the file can be accessed via network or terminal server, the pic is from terminal, but happens via network too.
View 1 Replies View RelatedI've recently upgraded on of my systems from Access 2003 to 2010.
In the past I've always used to the ctrl key and the cursor keys to move and fine tune the position of my controls on my reports. However since upgrading the controls jump about all over the place when I try to move them.
I have noticed that when I've selected the controls and start to move them a little black line appears on the vertical ruler and when I release the controls they seem to move to it's position.
Hi, new to the forum hoping someone can help :)
I'm half way through a project and want to have 3 queries to search personal information (Surname/DOB/Ref Number) is it possible to select the record in data view from the query search and jump to the record in form view? Would I have to display the query differently or is it possible to just click within the normal query view?
Any help would be appreciated, thanks Harry
Hello All,
I'm a newbie to the forum, but hope that someone can point me in the right direction to solve a problem.
Background:
I have a db that I use much like Quicken to maintain a ledger and reconcile accounts. To reconcile credit card transactions, I have a continuous form that lists each transaction as a record in the Detail. Each record has Check Boxes for Yes/No criteria pertaining to "Cleared Status", "On Statement", and "Missing Receipt". Checking the box for "On Statement" allows a subsequent report to include the items that are checked. Likewise, an Update Query used later in the process sets all all items in the reconcile to "cleared" so that do not reappear on the list of items to reconcile. In order to cause the Report and the Update Query to reassess the Yes/No status for each item and thus function properly, I have set the Event Proceedure for these Check Boxes to Requery the underlying data.
Problem:
As you can imagine, the list of Credit Card Transactions is a long one. Each time a Check Box is clicked, the requery causes the list of records to jump back to the very top of the list. This really slows down the process of completing the reconcile. Is there a way to hold the continuous list in the detail section still as the requery takes place?
Thank you very much for any help you can provide.
Gordon
The problem now is when two data entry people are
working on the DB at the same time, sometimes the
client records one person is the are working on jump
from one computer to another computer.
Attached is an example caught:
Louise data entry user was logged into the database
on one computer entering data.
Mary data entry user was logged into the database on
a different computer entering data on a different
client.
The client data from Mary's computer "jumped" to the
screen of Louise's PC. And then worst to the
database table of contact data kept.
This is kind of hard to believe if there was not
screen images catching it in the act, which we have.
Is there a record locking MS-Access global setting I
need to turn on?
Also, we have at least 3 time where we get a duplicate MS-Access record-id key on the DB. That is not suppose to happen. I can e-mail the DB and mass out the real person(s) names if you would like.
Any of your great thoughts or insights will be appreciated.
Hope all is going good for you at America General and the earth quakes are not too shaking.
Thanks
Russ
I have a form with a subform for tracking the stocks trading. I use the subform to enter new transactions. This was working fine until I have made some modifications in the design, which started giving me the trouble. Whenever I try to input any transactions by selecting a combo box in the subform, it takes me to the first record, even before completing my entries. I tried my best to solve it. But not successful. I am attaching a sample file for reference.
View 14 Replies View RelatedI can change multiple things on a line graph with VBA.
Me.Graph47.chartType = GraphType ' take 65 for line
with me.graph47
.SeriesCollection(1).border.Color = vbblue ' change the line color
.SeriesCollection(1).border.Weight = LineWeight ' change the line weight to for example 3
.SeriesCollection(2).MarkerSize = MarkerWeight ' Change the marker weight, for example 4
.SeriesCollection(2).MarkerBackgroundColor = vbblue ' Change the marker color,
.SeriesCollection(2).axisgroup = 2 ' put this series on the secondary axis
end with
SeriesColection(1) is line with markers. This is correct.But now I want the seriescollection(2) without line, so only the markers. I cheched the MSDN site from Microsoft. The Excel trick with the macro does not work for me.how to hide the line with VBA for only SeriesCollection(2) in Access?
I have checked the tab order and have cycle for my form set to = all records (but have also tried current record). After I update one of any of my textboxes in the details section and then click or tab into the next box, the cursor jumps back to the first record, first field.
View 1 Replies View Related