Search results

try it...

Hello Sir @arnelgp Now facing another problem. Now Month table make UNIQUE : SELECT tblMonths.ID FROM tblMonths WHERE (((tblMonths.ID)=[Forms]![frmCreateAppend]![cboMonths])); Combine result is like October : "202210" Year table SELECT tblYears.Year FROM tblYears WHERE...

Uncle Gizmo , ebs17 , MajP , The_Doc_Man, amorosik Thank you very much to all I find out the error, its worked now. The case is "Items" name has changed.

Hi, I worked in this dB 1 years up nothing error. Today I facing this error... Private Sub cmdInsertData_Click() If CurrentProject.AllForms("frmEmployeeEdit").IsLoaded Then Forms("frmEmployeeEdit").Form!sfrmFacilitiesEdit.Form.Items = Me.Text2 DoCmd.Close acForm, Me.Name End If End Sub...

My idea you have do something like that Me.List1.Height = " " ' No sense how to change this numbers Me.List1.Width = "1;1;1" ' No sense how to change this numbers Me.List1.RowSourceType = "Table/Query" Me.List1.RowSource = "table1" Me.List1.ColumnCount = "" ' ' No sense how to change this numbers

is it Height OR width ? I tried with Height and width. Not fix it. See the image

Thank you very much @arnelgp if you fixed this, lots of time save.

This good the HEADER mockup. A little problem there, If customized label size by increased or Decreased then its not fixed same size when the form is reopen.

Any advice ?

Hereby 6 pages add by Insert Page Break I added Header Each SubReport and main report header is blank. Main report is open Private Sub CmdPrint_Click() DoCmd.OpenReport "rptVacationNormal", acViewPreview, , "RequestVacID = " & Me.RequestVacID, acWindowNormal End Sub In Print Preview showed same...

Before you have a comment, you have to open the dB that based on your suggest I have tried or Not. I told you, I tried it Bound and Unbound textbox POST#10.

Sorry. I need it act same textbox.

Okay, can you review. I have uploaded my dB.

Use your code. But I forget to mentioned. Not work. I tried it LostFocus and AfterUpdate. tried also Bound and Unbound.

Thank you very much. I am trying use replace function with bound textbox AFTERUPDATE event. Private Sub PGID_AfterUpdate() Dim dlup As String dlup = DLookup("PageNo", "tblPageNo", "PGID=" & Me.PGID) Me!PGID = Replace("Me!PGID", "PGID", "dlup") End Sub Have any Idea

I have another table That name is tblPayList . and JOIN with table tblPages TblPages field is : PGID(PK), PAGENO(TEXT), PAGEREF(TEXT). PGID PAGENO PAGEREF 1 PAGE-1 PG1 2 NOTHING NG 3 NORMAL NR 4 PAGE-5 PG5 Now tblPayIist field is : PaylistID (PK), PGID(FK), PayDate(Date & Time)...

Not working error #Type!

Thank you very much, Formatting Not work. There I added an example with Page. But here different Items, I want to do when I enter the code LIKE "1" Then ...Insert text items

I have Text Box that name is PageNo(FK) tblPages : PGID(PK), PAGENO(TEXT), PAGEREF(TEXT). Value Like: 1 - Page- 1, PG1 I would like to do something like, If I enter the VALUE "1" in the textbox then Move curser to display same textbox "Page- 1" Or "PG1" Any help will be appreciate...

Excellent ! its works. Thank you very much.