Thursday, November 7, 2019

How To Create Search Form With Two Criteria In Microsoft Access With VB Code

Rujukan : Search Criteria/Dynamic Search Form


Dynamic search form means user can choose/enter a value between 2 boxes or choose only 1 box and leave other box null/empty. (flexible search form provides several boxes where a user can enter criteria. An efficient search form creates the criteria from only those boxes where the user enters a value.
- by allenbrowne)




Step by step

1. Create a blank form

2. Under property sheet for ur empty form, select tableClient(your table/query) as a Record Source. This table/query will be ur data for ur form.


3. Under design view, add Id,Corporate,Companay name, City, Level fields.(Example field)




4. Then insert 6 textbox or combo box to be ur search box.(Type, Name Contains, City, Level, Entered Date) and 2 button for filter and unfilter function.(Can be search button and show all button)


5.  Then put code below under the On Click Event Producure on the property sheet for filter/search button.




link rujukan : http://www.iaccessworld.com/create-search-form-using-vba-ms-access/
&  http://allenbrowne.com/ser-62.html






Monday, November 21, 2016

PRINT A REPORT FROM A FORM MICROSOFT ACCESS WITH WHERE CONDITION


Table name : Personnel_details (name_id,personnel_name dob, position)
                   : Section ( name_id ,personnel_name, section)

Query name : section_query (position_name, position, section)

Form name : Form1


First, I create  a new blank form and create a combo box contains personnel name from personnel table. Then create command button named Report.


 After that  edit property sheet of the button. Choose menu event then choose macro builder for on click.  Add new action OpenReport. This action can restrict the records that are printed in the report by using Where Condition. Where conditions  is a valid SQL WHERE clause (without the word WHERE) or expression that Access uses to select records from the report's underlying table or query.

To open a report and restrict its records to those specified by the value of a control on a form, use the following expression :
[fieldname] = Forms![formname]![controlname on form]

Ex: [sectionquery]![personnelname] = Forms![Form1][Command0]

Friday, November 13, 2015

How to fix the “api-ms-win-crt-runtime-l1-1.0.dll is missing” error when installing Apache Wen Server



Having this little problem when trying to install Apache on my new office PC.
What i do is, getting help from Mr. Google.

Credit to : http://blog.spreendigital.de/2015/09/01/how-to-fix-the-api-ms-win-crt-runtime-l1-1-0-dll-is-missing-error-for-delphi-10-seattle/  by Dennis D.Spreen


d10_error

What i need to do is installing Visual C++ Redistributable for Visual Studio 2015 (32-bit)
 for Windows  32-bit

Wednesday, September 2, 2015

IIF Statement With Wildcard Condition In Access


Criteria :  All records where unit price is 0.99 or 1.99 or 2.99 or 3.99

Besides using the = operator in the expression for exact matches, we can also use other operators.
For example, for partial matches of text strings/numbers, we can use LIKE "*".

Credit to : http://www.access-programmers.co.uk/forums/showthread.php?p=471291#post471291


Example : Total2: IIf([Total] Like "*.99", True, False)


Criteria  : Multiple IIF in Access

Example : SWITCH (Criteria, TrueResult, Criteria2, TrueResult2, Criteria3, TrueResult3, Criteria4, TrueResult4)

 or by using Nested IIF

Example  : IIF( Criteria, TrueResult, IIF(Criteria, TrueResult, IIF(Criteria,
TrueResult, FalseResult)))
Credit to  : http://www.pcreview.co.uk/threads/multiple-if-else-in-ms-access.2789488/ 



Friday, August 21, 2015

Specifying Textual Criteria That Comes from a Field on a Form:




=DLookUp("[EMAIL]","penyelia","[NAMA PEGAWAI] = '" & [Forms]![borang]![NAMA PENYELIA] & "'")

Email – specific field
Penyelia – table
Nama penyelia – field yg berkaitan
Forms – berdasarkn borang
Borang – form name
Nama penyelia – field ygdiisi


=[nmPenyelia] & IIf(Nz([penyelia.EMAIL])<>""," [" & [penyelia.EMAIL] & "]")

TIMEDIFFERENCE IN ACCESS



Start time 01:10:53
Stop time 01:20:05
Duration IJAM, 40MINIT

USING DATEDIFF
EXAMPLE : Minutes: DateDiff("n",[STARTTIME],[STOPTIME])

DURATION: [Minutes]\60 & Format([Minutes] Mod 60,"""JAM,  ""00""MINIT""")




Thursday, January 29, 2015

Total 2 column When 1 Column Has A Null Value

Problem  : I have 2 column that contain numeric fields but then one column sometimes does not have any value, means that it has null value.

Solution :  Use NZ function to convert the values to zeroes.

Example : NZ ([columnName1, 0 ]) +  NZ([columnName2, 0])


Tuesday, January 27, 2015

Running Number On Report MS Access

Problem :  Running number for each records for report  MS Access / Numbered Query

Solution : First add unbound text box. Then click properties, control source is = 1 and set Running Sum
               to all over.

                                       

Credit To : http://rogersaccessblog.blogspot.com/2010/12/domain-function-examples-numbered-query.html

Relationship Indeterminate

Problem : I want to create One-To-Many relationship between 2 tables, but it show indeterminate.

Solution : Specific fields must be primary and make sure dekat properties tu choose no duplicate.



Include All Records On Query

Right now I'm working on access project..

Problem : Pegawai yang tidak berkursus tidak akan di display dalam result query

Solution : Click edit the relationship line in the query and select the 2nd radio button to include all records from the first table termasuk pegawai yang belum pernah berkursus.

Credit to : http://stackoverflow.com/users/13302/marc-s