User Profile

Collapse

Profile Sidebar

Collapse
kobamfo
kobamfo
Last Activity: Oct 21 '15, 07:02 PM
Joined: Sep 27 '12
Location: Accra, Ghana
  •  
  • Time
  • Show
  • Source
Clear All
new posts

  • kobamfo
    started a topic Type mismatch problem

    Type mismatch problem

    Hello Guys,

    I have a form wherein if the value of lstatus (which is a combo text field input) is say "c" and another field named n_days which is a number field is greater than figure three (3)then I spit a message box.
    I have done so with the code below on Before Update of the form:

    Code:
    If ((lstatus.Value = "C") And (n_days.Value > 3)) Then
    Although it works once the conditions...
    See more | Go to post

  • MsgBox on Checkbox Before and After Update Event Behaviour

    Hi Guys,
    I have a Check box named "crypt" on a continuous form and I would like to pop up a message box depending on the value of the check box, Like this: If the Box is initially checked on load of the form and the user unchecked it, the message should say "...Click yes to continue or No to cancel" such that the click of "yes" would accept the User's unchecking of "crypt" and No would simply undo the...
    See more | Go to post

  • kobamfo
    started a topic Query by form solution

    Query by form solution

    Hi there,
    I am looking for a decent Query by Form code (or solution) to allow users to input query parameters in a form which will return results in a continuous form. This solution will make my project really user-friendly and would be glad to implement such a thing. I appreciate your anticipated help.
    See more | Go to post

  • kobamfo
    started a topic Storing text from a check box control

    Storing text from a check box control

    Hi Guys,
    I have a check box named "jobstat" on a form and would like to store a text value in the backend table depending on the value of the "jobstat", so I have this code:
    Code:
    Private Sub jobstat_AfterUpdate()
    Select Case Me![jobstat]
      Case 1
        Me![txtVal] = "Complete"
      Case 0
        Me![txtVal] = "Incomplete"
    End Select
    the "txtVal" field...
    See more | Go to post

  • Good news!
    TheSmileyCoder, I tried out your approach and NeoPa I also tried your straight to the point approach and all worked just as I wanted, but I guess I found a mid-point and here is the code:
    Code:
    Private Sub Accept_Click()
    If IsNull(snc_dl.Value) Then
    Dim Msg, Style, Title, MyString
    Msg = "You have not entered a Serial Number for a Lookup"
    Style = vbOK
    Title = "Missing Data"
    response
    ...
    See more | Go to post

    Leave a comment:


  • How to pass a field-value in one form to a field in another form.

    Hello Guys,
    I have two forms "in_lookup" and "in_main" and I have a field in "in_lookup" named "snl_lk" and a field in "in_main" named "snl_in".
    I want a value entered in "snl_lk" in "in_lookup" form to automatically fill "snl_in" in "in_main" upon click of an "accept" button on "in_lookup" form, then a "cancel"...
    See more | Go to post

  • Thanks Rabbit, I think I am catching up a day at a time :-).
    See more | Go to post

    Leave a comment:


  • kobamfo
    replied to Access over the WAN issues
    First of all, what is the size of your bandwidth for your WAN? I use a 2mbps over my ISP's IP/MPLS and yes, performance is slightly sluggish as compared to the LAN but its ok. Also I hope you have your DNS Server properly configured with all clients using your local DNS Server as their Primary DNS. My BE resides on a W2K8 Server with Win XP Clients. I am actually in the process of upsizing to MS SQL Server 2008 Express for my BE. I am using the Free...
    See more | Go to post

    Leave a comment:


  • kobamfo
    started a topic Validation based on a Null condition problem

    Validation based on a Null condition problem

    Hi Guys,
    I have the following code which checks for non-Null fields prior to table update, so naturally, I have it on Before_Update of my form.

    Code:
    Dim strMessage As String
        Dim intOptions As Integer
        Dim strTitle As String
        Dim bytChoice As Byte
    
        If IsNull(destname) Then
            strMessage = "You have not entered a Destination for this Record." & _
    ...
    See more | Go to post

  • And my understanding has only improved just by listening in on your discussions. Actually this Post was part of an attempt to prevent storage of redundant data in several tables other than the foreign keys which make the joins happen between tables.
    See more | Go to post

    Leave a comment:


  • twinnyfo, I have reverted to use your correction since that is the right way. I appreciate your help.
    See more | Go to post

    Leave a comment:


  • Great!
    The Code below did the magic on the After_Update Event of the "subject_dl "
    Code:
    If IsNull(subject_dl.Value) Then
       Me.testsub.Locked = False
           Else: Me.testsub.Locked = True
           End If
    Very Glad this is working just as I want it. Thank you Guys
    See more | Go to post
    Last edited by zmbd; Oct 19 '12, 02:45 PM. Reason: Please format posted code using the <CODE/> button in the toolbar.

    Leave a comment:


  • Guys, thank you for your quick responses but Seth, could you help me with your function code? It seems to me the function approach is a "neat job". But I have tried your "On_Current " and "After_Upda te" suggestions with problems: Compiler error "Sub or function not defined" with "NotNull" highlighted.
    I must admit that my VBA is below average :-)
    Here is the Code i used:
    [If NotNull(subject _dl.Value)...
    See more | Go to post

    Leave a comment:


  • How to conditionally Lock data fields in Access forms using VBA

    Hi Guys,
    I am developing a solution for Document Management in my Organization; Now I want a particular field named "testsub" to be Locked once another field named "subject_dl " is not null, otherwise, the field testsub should be unlocked for data entry.
    So I had tried a code in the "On_Current " Event of the Form Named "outfrm" Example:

    Code:
    If Is Not Null(subject_dl.Value) Then
    ...
    See more | Go to post
    Last edited by Meetee; Oct 19 '12, 09:22 AM. Reason: Use code tags <code/> around your code
No activity results to display
Show More
Working...