Help With ZIP Code Field
Jun 20, 2005
Hi. I'm a newbie to access so I was wondering if somebody could help me with this issue. We're trying to construct a database with information from visitors of a park. The information the visitors provide include the ZIP code where they're from. This information is stored on a field called ZIPCode. We're trying to create a report of the percentage of visitors from each region based on the ZIP Code. The first digit of each zip code represents the region they're from. For example the zip code 12345 belongs to region 1. We're having a problem creating a query and getting access to read only the first digit of the zip code to determine the region. How can we do that?
Thanks
View Replies
Nov 14, 2004
I am using this code on a button, to print a report:
Private Sub buttonPrint_Click()
Dim P1 As Integer
Dim R1 As Integer
Dim stDocName as String
R1 = MsgBox("Print;", vbYesNo)
If R1 = vbYes Then
If stDocName = "FIRST REPORT" Then
P1 = MsgBox("Printing options;" & vbCrLf & vbCrLf & _
" YES: Option 1" & vbCrLf & vbCrLf & _
" ΝΟ: Option 2", vbYesNo "Printing Options")
If P1 = vbYes Then
DoCmd.OpenReport stDocName, acNormal
End If
Exit Sub
Here is the difficulty I need help to overcome:
In report "FIRST REPORT" there is one field called txtSet1, Boolean.
Can I set the value of this field to either True or False from this point in my code ?
If P1 = vbYes Then
set Reports![FIRST REPORT]!txtSet1.value = True
DoCmd.OpenReport stDocName, acNormal
End If
Exit Sub
I know that the answer is NO because the above does not work. I think the problem is that because the "FIRST REPORT" is not opened until line
DoCmd.OpenReport stDocName, acNormal
is executed, the line
set Reports![FIRST REPORT]!txtSet1.value = True
can not find "FIRST REPORT".
Can I have some guidance please ?
Rgds
View 2 Replies
View Related
Apr 17, 2014
I have a code that finds the first, second, and third minimum value in a row across the fields. Now, I am trying to find a code to look at these values, find the field it is located, and return the field name. I tried several variations of my code to return the field name rather than the value, but have been unsuccessful to this point.
Function NthMinimum(intPosition As Integer, ParamArray FieldArray() As Variant) As Variant
Dim varTempArray() As Variant, varTempValue As Variant, intArrayValues As Integer
Dim I As Integer, J As Integer
ReDim varTempArray(UBound(FieldArray))
intArrayValues = 0
[Code] ....
As you can see, this works to find these values while ignoring NULLS. How to return the field name?
View 1 Replies
View Related
Jan 21, 2015
As you can see the purpose of this function code is to register into the TblLogChanges every single record exclusion or record change made in any form field of my project when the form is active. In other words if the user changes for example the value of the field Color in the form FrmX from Yellow to Black, the TblLogChanges will have added a line indicating: FrmX, type of change (record change or record exclusion), RecordId (in my case CADID), Current User, Date, and a complimentary string showing Field Color old value=Yellow --> Field Color new value=Black.It works fine when the field "old" value is populated (not null). However, if the feld old value is null, meaning, if the field value is originally null, or yet if the field is originally empty, and I fill it up with some data, then the code does not add an indicative line into the table TblLogChanges.
See function code below.
FYI the function is called in both Before Update and Delete events of the form with the following syntaxes: =logChangeFrmCadastro("E") for record exclusions, and =logChangeFrmCadastro("A") for record changes.
I have failed so far to make it happen. Reason is I'm able to read and understand most written syntax but still not good enough to create my own codes since I do not know to use the range of VBA commands and syntaxes available yet. This is a knowledge gap I'm doing my best to fill in.
what function code changes are required so the function be able to add an indicative line into TblLogChanges when the user changes a form field from "empty/nothing" to something?
Code:
Option Compare Database
Option Explicit
Function LogChangeFrmCadastro(strTipo As String)
On Error Resume Next
Dim db As Database, rslog As Recordset
Dim frm As Form, I As Integer
[code]....
View 5 Replies
View Related
Dec 1, 2006
hi
i found this code here and it works IF the number comes first and is preceded by a letter
123AA
but it does not work if the letters come first
AA123
here's the code
Public Function GetString(WholeString As String) As String
Dim i As Integer
Dim Temp As String
Temp = CStr(WholeString)
For i = 1 To Len(WholeString)
If InStr(1, "0123456789.", Mid(Temp, i, 1)) = 0 Then
GetString = Mid(Temp, i)
Exit Function
End If
Next i
GetString = Temp
End Function
Public Function GetNumber(WholeString As String) As Double
Dim Temp As String
Dim i As Integer
Temp = CStr(WholeString)
For i = 1 To Len(Temp)
If InStr(1, "0123456789.", Mid(Temp, i, 1)) = 0 Then
GetNumber = Mid(Temp, 1, i - 1)
Exit Function
End If
Next i
GetNumber = Temp
End Function
the probelm is with this line but i'm not sure what it is
GetNumber = Mid(Temp, 1, i - 1)
(i also get runtime error 13) but my data is in the same format as the example i downloaded.
any ideas anyone?
thanks in advance and thanks to the person who created the code
View 1 Replies
View Related
Dec 1, 2014
I have created an union query to pull together the same data from 2 ODBC tables (seperate countries).As there is a clash in the client number I have added a "N" prefix to differentiate NZ from Australia, as below:
The problem I now have is that I get type mismatch when linking to another table. How could I change the SQL below to dictate the field format to number (providing it will accept the "N" prefix) or all to text?
SELECT dbo_ClientMaster.ClientNumber, dbo_ClientMaster.Name, dbo_ClientMaster.AddressLine1, dbo_ClientMaster.AddressLine2, dbo_ClientMaster.AddressLine3, dbo_ClientMaster.AddressLine4, dbo_ClientMaster.TradeCode, dbo_ClientMaster.ReviewLimit, dbo_ClientMaster.ClientStartDate, dbo_ClientMaster.TypeOfTrade, dbo_ClientMaster.NextReviewDate, dbo_ClientMaster.LastReviewDate, dbo_ClientMaster.TerminationDate, dbo_ClientMaster.TerminationReason, dbo_ClientMaster.BankSortCode, dbo_ClientMaster.BankAccountNumber
[code]....
View 2 Replies
View Related
Jan 4, 2006
In trying to respond to another thread, I have run into something that is confounding me (or maybe I'm just getting dense).
We have a subform. One field has an event on DblClick to launch a search form. When the user identifies the target, he/she clicks a button on the subform. This pushes the appropriate value into a field on the original subform using VBA code and closes the search form. This all works fine.
The behaviour that is driving me bugging is when the user clicks on a new record (i.e. new line) on the subform, we would like to automatically generate the next record (E.g. when you type in a field of a record with autonumber in datasheet mode, Access automatically generates the next record). Currently this doesn't happen - Access generates the PK for the record being modified, but doesn't generate the view of the next record.
What really confuses me is that I have created similar looking example in which this works just fine. I can't figure out which of the differences between the two samples is causing this behaving.
Also, typing information into the field on the subform does cause the next record to be generated. It is just doing this via code that works in one case but not another.
I have narrowed it down to the actual subform. Even as a standalone form the form exhibits the same behaviour.
For reference, the original thread is
http://www.access-programmers.co.uk/forums/showthread.php?t=99457
Any suggestions?
-grommit
View 6 Replies
View Related
Dec 11, 2014
I have a query with the following structure;
aDate(pkey) cost1 cost2 cost3 calc1 calc2 calc3
01/012014 ,,,,,,,,,1,,,,,, 2,,,,,,, 3,,,,,, 1,,,,,,, 2,,,,, 3
01/02/2014 ,,,,,,,,1,,,,,, 2,,,,,,,, 3,,,,,, 2,,,,,, 4,,,,,, 6
01/03/2014,,,,,,, 1 ,,,,, 2,,,,,,, 3,,,,,,, 3,,,,,, 6 ,,,,, 9
01/04/2014 ,,,,,, 1,,,,,,,, 2,,,,,,, 3 ,,,,, 4,,,,,, 8,,,,,, 12
fields calc1,2,3 are running totals of cost1,2,3
I expect/hope to first calculate the sum of a cost field and then minus the value of its corresponding calc field from a specific record.
result = sum(cost1) - calc1 selected record value
I want to select the calc1 record from a drop down list of the primary key. Which cost field is in the equation will static/defined as I intend to make a textbox for each field.i need to know the code to pick a field(and retrieve it's value) from a record selected via dropdown list.
View 4 Replies
View Related
