Search results

  1. I

    File Viewing

    Option Compare Database Option Explicit Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Private Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String...
  2. I

    Trying to store a control reference as a variable

    try this so Dim FieldName As String Fieldname = "OptionMANUF" Forms![EQSRCL Update].controls(Fieldname)="..." Fieldname =Forms![EQSRCL Update].controls(Other_Fieldname).name
  3. I

    Hyperlinks as user interface

    becuse your form wtih hyperlink is PopUp form & another form is no PopUp.
  4. I

    PAGE SETUP

    it is difficult for access but decision is see help PrtMip & PrtDevMode. glad to answer have a question? ask...
  5. I

    error code not working

    Response = False glad to answer
  6. I

    Manipulate Excel worksheet from Access

    use: Dim Myxl As Object 'strAppPath is my excel file address Set Myxl = GetObject("C:\TMP\TMP.XLS") with Myxl .Application.Visible = True .Parent.windows(1).Visible = True .activesheet.Range("C:C").ClearContents .ActiveWorkbook.Save end with Set oWS = Nothing Set Myxl = Nothing
  7. I

    Mulitple Selections in a list box

    For i = 0 To [LIST_NAME].Listcount - 1 if [LIST_NAME].Selected(i) Then 'selected ... End If Next glad to answer
  8. I

    Subforms Updating other Subforms Problem When Opening a Form

    i think you wrote wrong code. you must write so: forms("MAIN_FORM_NAME")![SUB_FORM_NAME].form.control("NAME") & my other advice: use ufter_update event if possible glad to answer
  9. I

    removing part of a field

    use: Function num(str As String) As Variant Dim i As Integer i = 1 Do If Asc(Mid(str, i, 1)) >= 48 And Asc(Mid(str, i, 1)) <= 57 Then num = num + Mid(str, i, 1) If Not (Asc(Mid(str, i + 1, 1)) >= 48 And _ Asc(Mid(str, i + 1, 1)) <= 57) Then Exit Function End If i = i...
  10. I

    Open Excel Workbooks

    some ways onem of them ... Dim XCL As Long On Error Resume Next XCL = DDEInitiate("Excel", "System") If Err Then Err = 0 Shell "Excel.exe ""C:\TMP\BOOK1.XLS""", 1 If Err Then Exit Sub XCL = DDEInitiate("Excel", "System") End If DDEExecute XCL, "[Run(""prim"")]" DDETerminateAll ...
  11. I

    Open Excel Workbooks

    some way first of them: see help DoCmd.TransferSpreadsheet ... other via DAO Connect glad to answer
  12. I

    Form and subform

    if i understand you right do following: 1)source of the list of projects must: "select ..... where PersonId=forms![YOU_FORM]![NAME_OF_PEOPLE_LIST]" 2)you must write VB code for PEOPLE_LIST UFTER UPDATE: ... me![PROJECT_LIST_NAME].REquery ... 3) MOST DIFFICULT! YOU MUST DETERMINE CHILD...
  13. I

    synchronized combo box on subform

    forms![MAIN_FORM_NAME]![NAME_SUB_FORM].Form![PRODUCTS] glad to answer
  14. I

    all choices from a combo box

    i do so: if user nothing select in list that he selected all- ... if isnull(me![LIST_NAME]) then 'all else 'something end if ... or you may use special function to fill list with first value-all. see help. glad to answer
  15. I

    Conditionally change text color

    only a2000
  16. I

    FORM FOR DEFAULT VALUE

    may be so Private Sub Form_Load() Me![NAME_OF_CONTROL].DefaultValue = "SOMETING" end sub glad to answer
  17. I

    Recordset

    if i understand you i think you may the following ...... rst.movelast if rst.recordcount........ ....... glad to answer
  18. I

    a few quick ?'s

    if i understand you problem may be the VBA helps you Private Sub Form_Load() DoCmd.GoToRecord , , acNewRec If IsFormOpen("associate/project") = True Then me.Filter = "[LastName] like '*" & Forms![Associate/Project]![txtlast] & "*'" me.FilterOn=True else me.FilterOn=False end if End Sub glad...
  19. I

    Display a warning MsgBox

    use the followin vb glad to answer Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr <> 3022 Then Exit Sub Call MsgBox("You entered the value elready existed.You must enter new value.", vbOKOnly) Response = Cancel End Sub
  20. I

    Need some serious HELP here.

    i would like to offer other way: in form where you change your value use: Private Sub Form_AfterUpdate() FORMS("MAIN_FORM_NAME")![WHAT_NEED_FORM_NAME].Form.Requery End Sub glad to answer
Back
Top Bottom