Go Back   Access World Forums > Search Forums

Showing results 1 to 25 of 500
Search took 0.32 seconds.
Search: Posts Made By: arnelgp
Forum: Tables Yesterday, 12:51 AM
Replies: 6
Views: 130
Posted By arnelgp
Re: Drop down list with matching values only

you can use Total query or a simple "select distinct" query will eliminate any dups from the query.
Forum: General Yesterday, 12:49 AM
Replies: 9
Views: 158
Posted By arnelgp
Re: Intermittent Error

you are on the right path, splitting is your best solution.
Forum: Queries Yesterday, 12:37 AM
Replies: 3
Views: 72
Posted By arnelgp
Re: Query for multi-value combo-box

try something like this:
Forum: Reports 01-10-2020, 12:11 AM
Replies: 9
Views: 163
Posted By arnelgp
Re: Access Report issue

the better approach on dealing with Date datatype is to use DateSerial function when making comparison:

[TrdDt] >= DateSerial(2020, 01, 06)
Forum: General 01-10-2020, 12:07 AM
Replies: 12
Views: 368
Posted By arnelgp
Re: Yes/No Datatype

yes use query to update the Yes/No field, eg

Update table1 Set Completed = True Where Nz(table1.Totals, 0) > 0 And
(Nz(table1.Seq1, 0) + Nz(table1.Seq2, 0) + Nz(table1.Seq3) [ + Nz(table1.SeqN...
Forum: Modules & VBA 01-10-2020, 12:00 AM
Replies: 4
Views: 137
Posted By arnelgp
Re: Line return from string to Field

can you try using vbCrLf instead of vbNewLine:

aa = Me.D1AM + vbCrLf & DLookup("[Given]", "Volunteers", "[ID] = " & Me.Combo14)
Forum: Forms 01-07-2020, 09:24 PM
Replies: 2
Views: 124
Posted By arnelgp
Re: display the julian day using the system clock.

this will return in the format yddd:

right(year(date),1) & format(datepart("y",date),"000")
Forum: General 01-03-2020, 11:27 PM
Replies: 8
Views: 217
Posted By arnelgp
Re: SubForm won't resize

if you want to Resize your subform on Runtime, add VBA Splitter control.
download here http://www.thijsschreijer.nl/blog/?p=281
Forum: General 01-03-2020, 11:20 PM
Replies: 8
Views: 217
Posted By arnelgp
Re: SubForm won't resize

Clicking on the subform will bring its Name to the Property sheet.
to set recordsource of subform to Each records of the main form, set the Link Master/Child Fields of the subform.
Forum: Reports 01-02-2020, 12:55 AM
Replies: 3
Views: 142
Posted By arnelgp
Re: Open specific record from report

another approach, without filtering the form.
add code to DblClick Event of ProjectID on the Report.
(note that the code will only work on Report View)

Private Sub ProjectID_DblClick(Cancel As...
Forum: Queries 12-29-2019, 02:37 AM
Replies: 12
Views: 235
Posted By arnelgp
Re: Data Exists but DLOOKUP fails to return

you are using the function on same table?

Expr1: DLookUp("[Grade]","tbl_grade","[A_Score] = [Percentage]")

the above will return Null or the First record whose criteria is met.
Forum: Modules & VBA 12-23-2019, 10:15 PM
Replies: 37
Views: 571
Posted By arnelgp
Re: Date Comparison

you may also use DateSerial() function:

If DATE() = DateSerial(2020, 1, 1) Then
MsgBox " HAPPY NEW YEAR ", vbExclamation, "Greetings:"
End If
Forum: Modules & VBA 12-23-2019, 02:42 AM
Replies: 16
Views: 349
Posted By arnelgp
Forum: Modules & VBA 12-23-2019, 01:57 AM
Replies: 16
Views: 349
Posted By arnelgp
Re: loop through table records

I have not used item_description on tbl_salesusagematerial.
added batch_used field on tbl_batch to monitor how many have actually been used on each batch.
plz. see the code behind the form.
Forum: Queries 12-17-2019, 01:07 AM
Replies: 4
Views: 138
Posted By arnelgp

to simplify your IIFs:

Expr2: IIf(Len([Expr1])>11, Left([Expr1],LEN([Expr1])-1), [Expr1])
Forum: Modules & VBA 11-20-2019, 01:40 AM
Replies: 2
Views: 145
Posted By arnelgp
Re: criteria to sum same product for one person

create a user-defined function and pass the PID number to check with the function:

Public Function fnCountProduct(pid As Long)

Dim rs As DAO.Recordset
Dim db As DAO.Database
Forum: Modules & VBA 10-30-2019, 03:24 AM
Replies: 7
Views: 195
Posted By arnelgp
Re: Use input to determine which field to choose in SQL-WHERE

since you already has VBA, then substitute the fieldname using VBA:

dim strSQL As String
dim qd As DAO.Querydef

strSQL = select * from table where p% like '*" & [Name ?] & "*'"

Forum: Forms 10-30-2019, 03:13 AM
Replies: 10
Views: 251
Posted By arnelgp
Re: Duplicate Form with Subform

duplicate with subform
Forum: Forms 10-30-2019, 12:01 AM
Replies: 9
Views: 230
Posted By arnelgp
Re: How to catch keyreturn in Listview

maybe use Keypress event.
Forum: Forms 10-29-2019, 01:30 AM
Replies: 8
Views: 229
Posted By arnelgp
Forum: Reports 10-28-2019, 05:26 AM
Replies: 4
Views: 175
Posted By arnelgp
Re: Count but not the repeated ones

this will work on Print Preview only:

Dim dict As Object
dim lngCount As Long

Private Sub Report_Open(Cancel As Integer)
Set dict = CreateObject("scripting.dictionary")
End Sub
Forum: Modules & VBA 10-28-2019, 05:03 AM
Replies: 33
Views: 478
Posted By arnelgp
Re: Custom ribbon images

you're image files should already have transparent background (png) for it to work.
Forum: Queries 10-27-2019, 11:15 PM
Replies: 2
Views: 140
Posted By arnelgp
Re: Dlookup into a query field using Date Criteria

DLookUp("EXCRate","ExchangeRates","EXCDate=#" & Format([DateEntered], 'mm\/dd\/yyyy') & "#")
Forum: Forms 10-27-2019, 09:55 AM
Replies: 11
Views: 178
Posted By arnelgp
Re: Update the value in a field based upon

the update will not be immediate, you need to go to another record to reflect the change.
if you want immediate change, add this Expression on the Change Event of each 9 checkbox:

Forum: Forms 10-27-2019, 09:36 AM
Replies: 11
Views: 178
Posted By arnelgp
Re: Update the value in a field based upon

it won't update the field because of the expression on the textbox:

=IIf(Abs(([ACL1]+[ACL2]+[ACL3]+[ACL4]+[ACL5]+[ACL6]+[ACL7]+[ACL8]+[ACL9]))>5,[ACL - Met]=Yes,[ACL - Met]=No)

remove the...
Showing results 1 to 25 of 500

Forum Jump

All times are GMT -8. The time now is 04:33 PM.

Microsoft Access Help
Modules & VBA
Theory & Practice
Access FAQs
Code Repository
Sample Databases
Video Tutorials

Featured Forum post

Sponsored Links

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
(c) copyright 2017 Access World