Search results

Ok Here ya go. If these are the only 3 fields in your table, Access will not save a record if all 3 are null. Just in case the code checks them anyway. Hint; start looking at Access VB Help. There are a lot of examples. Any basic question will be answered there.

Take a look Here's what I used to test mine. Its Access 2K. DAO

Private Sub Form_Current() If Me.NewRecord = True Then Me!Cmdwarranty.Enabled = False Exit Sub End If If IsNull(Me!Year) Then ElseIf IsNull(Me!Model) Then ElseIf IsNull(Me!VIN) Then Me!Cmdwarranty.Enabled = False Else Me!Cmdwarranty.Enabled = True End If End Sub

Form-->SubForm-->SubSubForm wrek, I Dl'd your '97 version and converted it '2000. I found common fields to relate the tables but no Relationships were set. (Conversion issue?) Anyway, I set the relationships and added .requery statements to the onCurrent events to the main and sub forms. The...

A Function? I like custom functions for anything I may EVER have to solve more than once. (I'm too old to waste time or trust my memory a lot.) This one takes separate names and creates a single name string for display or reports. It is easily adapable to your case. In fact I have one that...

Wrong zip? Brian, I must have sent you the wrong file. Its attached here - with the Calculate Button.

Attached here too Brian, its attached to this reply.

Check your mail Brian, check your email. I sent your form back to you - fixed.

Here's how Lets assume that the path to the ("_be") live data tables is c:\LIVEDATA\db1_be... If there is no other folder on c: named "LIVEDATA", those characters are unique enough. The if statement will look like this: If IsNull(InStr(1, tdf.Connect, "LIVEDATA")) Then strName = "Training...

OK one more Private Sub Command1_Click() Dim dbs As Database, tdf As TableDef, strName As String Set dbs = CurrentDb For Each tdf In dbs.TableDefs 'If the table has a connect string, it's a linked table. If Len(tdf.Connect) > 0 Then If IsNull(InStr(1, tdf.Connect, "TblSet1")) Then strName =...

Specific table As written, the procedure will report the FIRST linked table it finds. There is a name property in each table def. In this case, I think you would use tdf.name. So, inside the "if len(tdf.connect)>0" you can add another "if" to test tdf.name ( if tdf.name = "tblMyTableName" ...).

If its DAO For fun, I added a cmdbutton to a form and put this in the onclick event. Works for DAO. Private Sub Command1_Click() Dim dbs As Database, tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs 'If the table has a connect string, it's a linked table. If Len(tdf.Connect)...

A few years ago, I (perhaps clumsily) adapted the relinking module in "Northwind" to work with my (not linked) "tblTableLocs" table and "LocateTables" function. This module will also invoke the Windows file dialog box if the tables have for some reason been moved. I still have that code if you...

Header/No Header My experience with modifying tables in a deployed application was not fun. I had a situation where the English or Spanish language version of a document had to be made available at the users whim. I was lucky enough to be able to add an option group for "Language" to the...

In response to the checked box(es), are you editing past history record(s) or are you displaying past history but adding a new history record? It sounds like you are working on a service data system. Regards, Bill

Being a novice is not all bad. When I have a complicated cdo or list box to build, I use a stored query design. When I get that working like I want, I switch to sql view, copy and paste the sql statement into the row source property for the 'box and delete the (now) unwanted query. I'm sure I...

Let Access do it for you. Set your text box Input Mask to Zip code. (To give the user a HINT.) Set the validation rule for your text box to: (len([YourTextBox])=5) or (len([YourTextBox])=9)

Count'em How about counting the number of "blinks" for your label. You already know the "blink" interval in seconds. After a given number of "blinks", close the application.

You caught the mistake while I was correcting it. Now you know what a "senior moment" is. Nothing like a demonstration eh?

User access level mis, from somewhere in Access World (Its been a while), I got a module which allowed me to enable/disable database properties - even the "shiftkey" bypass. My user table has a field for access level (1,2) for each user. The properties module sets properties accordingly...