Search results

If the form is bound to a table or query ... you can do this a couple of ways. 1) If the form is to be used specifically for "Data Entry" (not to view existing records), you can set the "Data Entry" property for the form to "Yes", the default is "No". 2) If the form is to be used for both...

Post the code you are using with your Close Button. Do you want to give a choice to fix the entry or undo all changes and close without saving the entry? RDH

You should not ask the same question in multiple forums .... this confuses the people trying to help you. I gave an answer to this in the "Tables" Forum. RDH

You should not ask the same question in multiple forums .... this confuses the people trying to help you. I gave an answer to this in the "Tables" Forum. RDH

Well I see that you got the Textbox/Combobox properties straightened out ..... See my reply to the other post you made on this subject. RDH

Hmmm .... your expression does not make sense ... A Textbox does not have a "Column" property .... Try this ..... Me!YourTxtBoxName = Format(Me![YourCboBox].Column(1),"$#.00") (Change "YourTxtBoxName" to the name of your textbox and "YourCboBox" to the name of your combobox) HTH RDH [This...

Great .... :-) Glad it fixed the problem. RDH

I think I just replied to this at Woody's Lounge. Just in case you don't see it there ... here it is again. Is there a chance that you are over-riding the settings on the form by using the acNormal argument in the code that is opening the form? You may be using something like this...

Alter your SubRoutine to what I have below. This should fix your problem. Sub cboFind_AfterUpdate() ' If the Combo Is Empty .... do nothing If IsNull(Me![cboFind]) Then Exit Sub ' Find the record that matches the control. Me.RecordsetClone.FindFirst "[Atten_ID] = " & Me![cboFind] Me.Bookmark =...

Try using the following: strSQL = "SELECT Distinctrow from tblData WHERE DatetblData = #" & Format(Me.txtDate, "mm/dd/yy") & "#" HTH RDH

LOL .... today is Saturday and all that comes to mind is "simple solutions". Hopefully I will not encounter something too intricate .... :-( RDH

I usually just "Import" the needed modules into the app. I keep a .mdb file that contains nothing but Modules and sample code. When I need a specific function in a module, I import it into the app and alter it to fit my situation. HTH RDH

I'm sure raskew's reponse will work, but maybe this is a little shorter way. ' Give Age in Years, Months Function GetAgeYM(DOB As Variant) As String Dim intYears As Integer, intMonths As Integer Dim strTmp As String If Not IsDate(DOB) Then Exit Function intMonths = Int(DateDiff("m", DOB...

This is usually caused by a "Missing" library reference. Open any module in design view, select Tools/References in the VBA Window if Access 2000/2002 or Tools/References in Access Main Menu if Access 97. Check the list of library references for "Missing" attached to a checked reference. If...

Leave your code in the After Update event of the checkbox where you have it. Then simply "Call" the Sub using the On Current event of the form so it will trigger when navigating through the records. Private Sub Form_Current() Call Alert_AfterUpdate End Sub HTH RDH [This message has been...

Great .... Glad you could use it. RDH

Here is a copy of a SubRoutine that I built a while back that you may can alter to your needs. This does not extract each table, but instead make a complete backup of the Backend db. Public Sub BackUp97() On Error GoTo Err_Backup Dim db As Database Dim strSource As String, strDest As String...

For your Date question .... have a look at the Weekday() function in Access Help. You can use this to determine the day of the week from the date entry. HTH RDH

You need to check out "Form and report templates" in Access Help files. HTH RDH

If you want it in the format you are showing in this thread ..... then try: Private Sub YourMemoTxtbox_AfterUpdate() Me.YourMemoTxtbox = "***" & CurrentUser() & "***" & Format(Date, "mm/dd/yyyy") & _ "***" & Time() & "*** " & Me.YourMemoTxtbox End Sub (Change the control names above to the...