Hello,
I am new to VB&Access and inherited a project. I have a form with multiple buttons and if one is clicked then a few fields under the buttons are highlighted. Different fields are selected/highlighted depending on what button I click. I have managed to write VB code to throw up and error if a field is null, but that doesn't help me much because on a different button click that field might not need to be filled in.
I am wondering how I can do a check if the field is highlighted, if so then that AND my If NotNull code will be sufficient.
Currently this is the only code I have: - Private Sub Command147_GotFocus()
-
-
If IsNull(WorkRequested) = True Then
-
MsgBox "Required field: The Work Requested field must be filled in."
-
End If
-
-
End Sub
Thank you for any help!
** Edit ** 15 2283 NeoPa 32,556
Expert Mod 16PB
If you post the code used to highlight some of the controls (not fields BTW) then we can help you detect the changes that have been applied more easily.
Hello Neo,
I'm not sure where in this code it is: -
-
Option Compare Database
-
-
Private Sub ApprovedSM_AfterUpdate()
-
On Error GoTo Err_ApprovedSM_AfterUpdate
-
-
If Me.ApprovedSM = -1 Then
-
ApprovedDate = Now()
-
Status = 2
-
SubStatus = 8
-
End If
-
DoCmd.Requery "approveddate"
-
DoCmd.Requery "Status"
-
DoCmd.Requery "substatus"
-
-
Exit_ApprovedSM_AfterUpdate:
-
Exit Sub
-
-
Err_ApprovedSM_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_ApprovedSM_AfterUpdate
-
-
End Sub
-
-
Private Sub Calltaker_Change()
-
On Error GoTo Err_Calltaker_Change
-
-
EstimateNo = [Contact ID] & [Job ID]
-
Exit_Calltaker_Change:
-
Exit Sub
-
-
Err_Calltaker_Change:
-
MsgBox Err.Description
-
Resume Exit_Calltaker_Change
-
-
End Sub
-
-
Private Sub cboNewJob_Click()
-
On Error GoTo Err_cboNewJob_Click
-
-
DoCmd.GoToRecord , , acNewRec
-
-
Exit_cboNewJob_Click:
-
Exit Sub
-
-
Err_cboNewJob_Click:
-
MsgBox Err.Description
-
Resume Exit_cboNewJob_Click
-
-
End Sub
-
Private Sub CBoStatus_AfterUpdate()
-
On Error GoTo Err_CBoStatus_AfterUpdate
-
-
If [CboStatus] = "Won Estimate" Then
-
[JobStatus] = 22
-
End If
-
-
Exit_CBoStatus_AfterUpdate:
-
Exit Sub
-
-
Err_CBoStatus_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_CBoStatus_AfterUpdate
-
-
End Sub
-
Private Sub CboZip_AfterUpdate()
-
On Error GoTo Err_CboZip_AfterUpdate
-
-
DoCmd.Save
-
-
Exit_CboZip_AfterUpdate:
-
Exit Sub
-
-
Err_CboZip_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_CboZip_AfterUpdate
-
-
End Sub
-
Private Sub Combocity_AfterUpdate()
-
On Error GoTo Err_Combocity_AfterUpdate
-
-
DoCmd.Save
-
-
Exit_Combocity_AfterUpdate:
-
Exit Sub
-
-
Err_Combocity_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_Combocity_AfterUpdate
-
-
End Sub
-
Private Sub Contact_Email_Address_DblClick(Cancel As Integer)
-
On Error GoTo Err_Contact_Email_Address_DblClick
-
-
Call SendEmail(Me.[Contact Email Address])
-
-
Exit_Contact_Email_Address_DblClick:
-
Exit Sub
-
-
Err_Contact_Email_Address_DblClick:
-
MsgBox Err.Description
-
Resume Exit_Contact_Email_Address_DblClick
-
-
End Sub
-
-
Private Sub Check186_AfterUpdate()
-
On Error GoTo Err_Check186_AfterUpdate
-
-
If Me.ContractDeliverd = -1 Then
-
Me.DliveredDate = Now()
-
End If
-
-
Exit_Check186_AfterUpdate:
-
Exit Sub
-
-
Err_Check186_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_Check186_AfterUpdate
-
-
End Sub
-
-
Private Sub Check198_AfterUpdate()
-
On Error GoTo Err_Check198_AfterUpdate
-
-
If [Check198] = -1 Then
-
Me.assignedtoRep = Now()
-
Me.[SubStatus] = 4
-
End If
-
DoCmd.Requery "SubStatus"
-
DoCmd.Requery "assignedtorep"
-
-
Exit_Check198_AfterUpdate:
-
Exit Sub
-
-
Err_Check198_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_Check198_AfterUpdate
-
-
End Sub
-
-
Private Sub Check202_AfterUpdate()
-
On Error GoTo Err_Check202_AfterUpdate
-
-
If Check202 = -1 Then
-
Me.Status = 3
-
End If
-
DoCmd.Requery "status"
-
-
Exit_Check202_AfterUpdate:
-
Exit Sub
-
-
Err_Check202_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_Check202_AfterUpdate
-
-
End Sub
-
-
Private Sub Check205_AfterUpdate()
-
On Error GoTo Err_Check205_AfterUpdate
-
-
If [Check205] = -1 Then
-
Me.Text207 = Now()
-
End If
-
DoCmd.Requery "Text207"
-
Exit_Check205_AfterUpdate:
-
Exit Sub
-
-
Err_Check205_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_Check205_AfterUpdate
-
-
-
End Sub
-
-
Private Sub Check208_AfterUpdate()
-
On Error GoTo Err_Check208_AfterUpdate
-
-
If [followup2] = -1 Then
-
Me.Followup2date = Now()
-
End If
-
-
Exit_Check208_AfterUpdate:
-
Exit Sub
-
-
Err_Check208_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_Check208_AfterUpdate
-
-
End Sub
-
-
Private Sub Check213_AfterUpdate()
-
On Error GoTo Err_Check213_AfterUpdate
-
-
If Check213 = -1 Then
-
Me.followup3date = Now()
-
End If
-
-
Exit_Check213_AfterUpdate:
-
Exit Sub
-
-
Err_Check213_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_Check213_AfterUpdate
-
-
End Sub
-
-
Private Sub cmdRename_Click()
-
On Error GoTo Err_cmdRename_Click
-
-
Dim Msg, Style, Title, Response, MyString
-
Msg = "Caution This will copy the contact info to the Estimate Page, This can not be reversed." ' Define message.
-
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
-
Title = "Are You Sure You Want To Continue!" ' Define title.
-
' context.
-
' Display message.
-
Response = MsgBox(Msg, Style, Title)
-
If Response = vbYes Then ' User chose Yes.
-
Me.JobAddress = Forms!Contacts!Address
-
Me.City = Forms!Contacts!ContactCity
-
Me.State = Forms!Contacts!StateOrProvince
-
Me.Zip = Forms!Contacts!PostalCode
-
Me.[Job Name] = Forms!Contacts!CompanyName
-
Me.ContactPhone = Forms!Contacts!WorkPhone
-
Me.ContactFax = Forms!Contacts!FaxNumber
-
Me.ContactMobile = Forms!Contacts!MobilePhone
-
Me.Region = Forms!Contacts!Region ' Perform some action.
-
Else ' User chose No.
-
DoCmd.CancelEvent ' Perform some action.
-
End If
-
-
Exit_cmdRename_Click:
-
Exit Sub
-
-
Err_cmdRename_Click:
-
MsgBox Err.Description
-
Resume Exit_cmdRename_Click
-
-
-
End Sub
-
-
Private Sub Command180_Click()
-
AllowEdits = True
-
End Sub
-
-
Private Sub Command181_Click()
-
AllowEdits = False
-
End Sub
-
-
Private Sub ContactEmailAddress_DblClick(Cancel As Integer)
-
On Error GoTo Err_Contact_Email_Address_DblClick
-
-
Call SendEmail(Me.[Contact Email Address])
-
-
Exit_Contact_Email_Address_DblClick:
-
Exit Sub
-
-
Err_Contact_Email_Address_DblClick:
-
MsgBox Err.Description
-
Resume Exit_Contact_Email_Address_DblClick
-
-
End Sub
-
-
Private Sub ContractDeliverd_AfterUpdate()
-
On Error GoTo Err_ContractDeliverd_AfterUpdate
-
-
If ContractDeliverd = -1 Then
-
Me.DeliveredDate = Now()
-
Me.SubStatus = 7
-
End If
-
DoCmd.Requery "DeliveredDate"
-
DoCmd.Requery "substatus"
-
-
Exit_ContractDeliverd_AfterUpdate:
-
Exit Sub
-
-
Err_ContractDeliverd_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_ContractDeliverd_AfterUpdate
-
-
End Sub
-
-
Private Sub followup2_AfterUpdate()
-
On Error GoTo Err_followup2_AfterUpdate
-
-
-
If followup2 = -1 Then
-
Me.Followup2date = Now()
-
End If
-
DoCmd.Requery "Followup2date"
-
-
Exit_followup2_AfterUpdate:
-
Exit Sub
-
-
Err_followup2_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_followup2_AfterUpdate
-
-
End Sub
-
-
Private Sub Followup3_AfterUpdate()
-
On Error GoTo Err_followup3_AfterUpdate
-
If Followup3 = -1 Then
-
Me.followup3date = Now()
-
End If
-
DoCmd.Requery "Followup3Date"
-
-
Exit_followup3_AfterUpdate:
-
Exit Sub
-
-
Err_followup3_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_followup3_AfterUpdate
-
-
End Sub
-
-
Private Sub Form_Load()
-
On Error GoTo Err_Form_Load
-
-
Me.CallTaker.SetFocus
-
If (Forms!LoginFrm!Adminbx = -1 Or Forms!LoginFrm!salesManager = -1 Or Forms!LoginFrm![Call Taker] = -1) Then
-
Me.EstimateNo.Locked = False
-
Me.EstimateDate.Locked = False
-
Me.CallTaker.Locked = False
-
Me.JobName.Locked = False
-
Me.JobAddress.Locked = False
-
Me.City.Locked = False
-
Me.State.Locked = False
-
Me.Zip.Locked = False
-
Me.ContactName.Locked = False
-
Me.ContactPhone.Locked = False
-
Me.ContactFax.Locked = False
-
Me.ContactMobile.Locked = False
-
Me.ContactPager.Locked = False
-
Me.ContactEmailAddress.Locked = False
-
Me.ExpectedServiceDate.Locked = False
-
Me.ExpectedServiceTime.Locked = False
-
Me.CboRegion.Locked = False
-
Me.SalesCampaign.Locked = False
-
Me.Calltype.Locked = False
-
Me.Status.Locked = False
-
Me.SubStatus.Locked = False
-
Me.SalesCampaign.Locked = False
-
Me.followup3date.Locked = False
-
Me.Followup2date.Locked = False
-
Me.Text207.Locked = False
-
Me.DeliveredDate.Locked = False
-
Me.ApprovedDate.Locked = False
-
Me.assignedtoRep.Locked = False
-
Me.Check198.Locked = False
-
Me.ApprovedSM.Locked = False
-
-
Else
-
Me.EstimateNo.Locked = True
-
Me.EstimateDate.Locked = True
-
Me.CallTaker.Locked = True
-
Me.JobName.Locked = True
-
Me.JobAddress.Locked = True
-
Me.City.Locked = True
-
Me.State.Locked = True
-
Me.Zip.Locked = True
-
Me.ContactName.Locked = True
-
Me.ContactPhone.Locked = True
-
Me.ContactFax.Locked = True
-
Me.ContactMobile.Locked = True
-
Me.ContactPager.Locked = True
-
Me.ContactEmailAddress.Locked = True
-
Me.ExpectedServiceDate.Locked = True
-
Me.ExpectedServiceTime.Locked = True
-
Me.CboRegion.Locked = True
-
Me.SalesCampaign.Locked = True
-
Me.Calltype.Locked = True
-
Me.Status.Locked = True
-
Me.SubStatus.Locked = True
-
Me.SalesCampaign.Locked = True
-
Me.followup3date.Locked = True
-
Me.Followup2date.Locked = True
-
Me.Text207.Locked = True
-
Me.DeliveredDate.Locked = True
-
Me.ApprovedDate.Locked = True
-
Me.assignedtoRep.Locked = True
-
Me.Check198.Locked = True
-
Me.ApprovedSM.Locked = True
-
-
End If
-
Exit_Form_Load:
-
Exit Sub
-
-
Err_Form_Load:
-
MsgBox Err.Description
-
Resume Exit_Form_Load
-
-
End Sub
-
Private Sub Job_Name_AfterUpdate()
-
On Error GoTo Err_Job_Name_AfterUpdate
-
-
EstimateNo = [Contact ID] & [Job ID]
-
-
Exit_Job_Name_AfterUpdate:
-
Exit Sub
-
-
Err_Job_Name_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_Job_Name_AfterUpdate
-
-
End Sub
-
Private Sub JobID_AfterUpdate()
-
On Error GoTo Err_JobID_AfterUpdate
-
-
JobTable!JobID = Forms!Contacts!subQuestionFrm!JobID
-
-
Exit_JobID_AfterUpdate:
-
Exit Sub
-
-
Err_JobID_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_JobID_AfterUpdate
-
-
End Sub
-
Private Sub Command117_Click()
-
On Error GoTo Err_Command117_Click
-
-
Dim stDocName As String
-
-
stDocName = "estimatewkshtrpt"
-
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
-
-
Exit_Command117_Click:
-
Exit Sub
-
-
Err_Command117_Click:
-
MsgBox Err.Description
-
Resume Exit_Command117_Click
-
-
End Sub
-
Private Sub Command121_Click()
-
On Error GoTo Err_Command121_Click
-
-
-
DoCmd.GoToRecord , , acFirst
-
-
Exit_Command121_Click:
-
Exit Sub
-
-
Err_Command121_Click:
-
MsgBox Err.Description
-
Resume Exit_Command121_Click
-
-
End Sub
-
Private Sub Command122_Click()
-
On Error GoTo Err_Command122_Click
-
-
-
DoCmd.GoToRecord , , acPrevious
-
-
Exit_Command122_Click:
-
Exit Sub
-
-
Err_Command122_Click:
-
MsgBox Err.Description
-
Resume Exit_Command122_Click
-
-
End Sub
-
Private Sub Command123_Click()
-
On Error GoTo Err_Command123_Click
-
-
-
DoCmd.GoToRecord , , acLast
-
-
Exit_Command123_Click:
-
Exit Sub
-
-
Err_Command123_Click:
-
MsgBox Err.Description
-
Resume Exit_Command123_Click
-
-
End Sub
-
Private Sub Command124_Click()
-
On Error GoTo Err_Command124_Click
-
-
-
DoCmd.GoToRecord , , acNext
-
-
Exit_Command124_Click:
-
Exit Sub
-
-
Err_Command124_Click:
-
MsgBox Err.Description
-
Resume Exit_Command124_Click
-
-
End Sub
-
Private Sub Command141_Click()
-
On Error GoTo Err_Command141_Click
-
-
Dim stDocName As String
-
Dim stLinkCriteria As String
-
-
stDocName = "EstimateReportfrm"
-
DoCmd.OpenForm stDocName, , , stLinkCriteria
-
-
Exit_Command141_Click:
-
Exit Sub
-
-
Err_Command141_Click:
-
MsgBox Err.Description
-
Resume Exit_Command141_Click
-
-
End Sub
-
Private Sub Command142_Click()
-
On Error GoTo Err_Command142_Click
-
-
Dim stDocName As String
-
Dim stLinkCriteria As String
-
-
stDocName = "SubJobsIDFrm"
-
DoCmd.OpenForm stDocName, , , stLinkCriteria
-
-
Exit_Command142_Click:
-
Exit Sub
-
-
Err_Command142_Click:
-
MsgBox Err.Description
-
Resume Exit_Command142_Click
-
-
End Sub
-
Private Sub Command143_Click()
-
On Error GoTo Err_Command143_Click
-
-
DoCmd.PrintOut
-
-
Exit_Command143_Click:
-
Exit Sub
-
-
Err_Command143_Click:
-
MsgBox Err.Description
-
Resume Exit_Command143_Click
-
-
End Sub
-
Private Sub Command146_Click()
-
On Error GoTo Err_Command146_Click
-
-
Dim stDocName As String
-
Dim stLinkCriteria As String
-
-
stDocName = "ProposalFrm"
-
DoCmd.OpenForm stDocName, , , stLinkCriteria
-
-
Exit_Command146_Click:
-
Exit Sub
-
-
Err_Command146_Click:
-
MsgBox Err.Description
-
Resume Exit_Command146_Click
-
-
End Sub
-
Private Sub Command147_Click()
-
On Error GoTo Err_Command147_Click
-
-
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
-
Exit_Command147_Click:
-
Exit Sub
-
-
Err_Command147_Click:
-
MsgBox Err.Description
-
Resume Exit_Command147_Click
-
-
End Sub
-
Private Sub Command159_Click()
-
On Error GoTo Err_Command159_Click
-
-
DoCmd.PrintOut
-
-
Exit_Command159_Click:
-
Exit Sub
-
-
Err_Command159_Click:
-
MsgBox Err.Description
-
Resume Exit_Command159_Click
-
-
End Sub
-
Private Sub Command165_Click()
-
On Error GoTo Err_Command165_Click
-
-
Dim stDocName As String
-
-
stDocName = "EstRpt"
-
DoCmd.OpenReport stDocName, acNormal
-
-
Exit_Command165_Click:
-
Exit Sub
-
-
Err_Command165_Click:
-
MsgBox Err.Description
-
Resume Exit_Command165_Click
-
-
End Sub
-
-
Private Sub Label140_DblClick(Cancel As Integer)
-
DoCmd.OpenForm "JobCostManvilleMod"
-
End Sub
-
-
Private Sub Status_AfterUpdate()
-
On Error GoTo Err_Status_AfterUpdate
-
-
If Status = "2" Then
-
Forms!Contacts!SubJobsForm!JobStatus = 22
-
End If
-
If Status = "2" Then
-
Forms!Contacts!SubJobsForm!JobDate = Now()
-
End If
-
-
Exit_Status_AfterUpdate:
-
Exit Sub
-
-
Err_Status_AfterUpdate:
-
MsgBox Err.Description
-
Resume Exit_Status_AfterUpdate
-
-
End Sub
-
-
Private Sub Status_Change()
-
On Error GoTo Err_Status_Change
-
-
If Forms!Contacts!SubJobsForm!Status = "Lost Estimate" Then
-
Forms!Contacts!cboCustpros = 188
-
End If
-
-
Exit_Status_Change:
-
Exit Sub
-
-
Err_Status_Change:
-
MsgBox Err.Description
-
Resume Exit_Status_Change
-
-
End Sub
-
-
Private Sub Toggle23_GotFocus()
-
-
End Sub
-
-
Private Sub WorkRequested_Click()
-
-
End Sub
-
-
-
NeoPa 32,556
Expert Mod 16PB
Nor can I (and that's something to be concerned about). To confirm you actually have the correct module posted can you post the name of the Command Button control which was clicked to highlight those controls that are yellow in the picture, as well as at least one of the names of the controls (probably TextBoxes) that have been so highlighted.
Neo,
I don't know much about Access so please bear with me. When I click on the textbox "Type of work Being Requested" under the Properties, then data, it tells me the Control Source is Type of Work Being Requested. Where would/and how would I edit that or find that is it in a module?
Also all the button on the form are labeled Toggle 23 through Toggle30.
NeoPa 32,556
Expert Mod 16PB
Never a problem with inexperience, as long as it's explained clearly as you have there Johnny.
Let me see if I can lay out some easy-to-follow instructions for you to provide me with the information that'll help : - Open database and the form.
- Reproduce the picture included in your OP (Opening Post).
- Make a mental note of the button you clicked to to produce that situation. We'll refer to that for now as [ButtonX].
- Make a mental note of the first control on the form which is highlighted in yellow (The one with the label reading 'Type of Work Being Requested:'). We'll refer to that for now as [TextBoxY].
- Switch the form into Design Mode (From the View Menu select Design View).
- Ensure the Properties pane is visible (Alt-Enter).
- Click on [ButtonX] to select it and make a note of the value in the property called Name.
- Click on [TextBoxY] to select it and make a note of the value in the property called Name.
- Include in your next post the names of the controls [ButtonX] and [TextBoxY].
Neo,
You have great patience.. Thank you.
ButtonX is called "Toggle28".
TextBoxY is called "Word Requested"
** Snip **
NeoPa 32,556
Expert Mod 16PB
I can confirm that the code posted doesn't contain anything related to this function in that case. That indicates the strong probability that macros have been used instead of code ;-( Not good news at all!
If you go to the previous instructions and get to where you selected [Toggle28] then looked at the properties, I want you to scroll down the properties until you see the one called On Click. Normally, for code, this would say [Event Procedure]. Can you let me know what it says here for [Toggle28].
Next go to the Macros part of the database and tell me all that you see there in the macro of that name. You may need to be very thorough here, as I never work with macros (Very few professional developers ever touch them - and we always wash our hands thoroughly afterwards). Hopefully there will be some information there I can interpret to indicate how to do some code to handle your problem.
PS. I'll just remove the side-notes about toolbars. They're not part of the topic and they're no longer required even to assist you, so I'll snip them.
Neo,
There are no event procedures for any of the events on any buttons unfortunately.
Not sure if this is right - if not please let me know where else it is located:
There is a folder called "Modules" that I see from VBA. Under it there are nine macros files:
basaddalltolist
basAutomateOutlook
basCommonFile
basCRLF
basNotinList
basUtilites
modGlobals
modRibbonCallbacks
Relinker
NeoPa 32,556
Expert Mod 16PB
That's a misunderstanding Johnny (so not right - no).
Please reread the previous post. [Event Procedure] is what you'd expect to see normally. I wouldn't expect to see that in your database as I believe macros have nbeen used instead.
When you have the name of the macro to hand, open the folder called "Macros" (rather than "Modules") and you should find the macro there.
Neo,
You are most likely right in regards to the macros, there is no On Click property for Toggle28, no other events either for Toggle 28.
I found the Macros builds but did not see anything in them in regards to the Toggle or any other reference to the fields. I might have to just skip this problem one as it looks like it will need an expert hand to edit this particular issue.
Thank you for your time! Should I delete the post ?
NeoPa 32,556
Expert Mod 16PB JohnnyC:
Thank you for your time! Should I delete the post?
No. If we can't manage to resolve the issue then we leave the thread in place. Someone else may be able to benefit where you weren't able to.
Very confusing though, Johnny. There is an On Click event property when I create a Toggle control on my test form :-S Are you sure you have either the All or the Event tab showing? Did you scroll down the list if it's the All tab showing. It may not have anything in it, but it must exist at least.
If it's empty then I know there must be an Option Group control that it's within. In that case I need to see what's in the After Update event property of that control.
Neo,
I know, when I run a test from scratch and build a new button I get the same thing it should have an Onlick. None of the buttons do, which is strange to me. I scrolled down on the "all" tab as well as the "Event" tab. All my other buttons on the application do have an on-click only these in this sub form do not.
No events in "After Update" either. There are two after update events but they belong to the main form not the subform that is displayed at the top, I can paste those if you think it might help.
NeoPa 32,556
Expert Mod 16PB
No, but if you can take a small screenshot of the properties page when that control (earlier referred to as [CommandX]) is selected I'd be interested in seeing exactly what it is you're describing.
I can only see inserting an image link not an attachment on this reply box. Is there a way to place an attachment here? I have only seen that when I started my post.
NeoPa 32,556
Expert Mod 16PB
Your first post attaches an image Johnny. I amended it to show the picture in the post (using BB Code), but you attached it originally.
Of course, you can use a link instead with the same BB Code if you prefer.
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Roger |
last post by:
How can I check if a field already exist in a table? If it doesn't exist I want
to add it with ALTER TABLE ADD...
|
by: Krechting |
last post by:
Hi ALl,
I have a code that checks if the documents in a hyperlink field are still
where they should be. I use fileexist().
First I want to filter out all the hyperlink fields that are empty.
I...
|
by: BBFrost |
last post by:
Win2000
..Net 1.1 SP1
c# using Visual Studio
Ok, I'm currently in a "knock down - drag out" tussle with the .Net 1.1
datagrid.
I've come to realize that a 'block' of rows highlighted within...
|
by: Alex Smith |
last post by:
Hi Friends,
How can I check a checkbox selected more than one times in DataGrid ?
My First Priority is check with Client Side(Java Script), if it is not easy
than check server side (C#).
Thanks...
|
by: PCCTN |
last post by:
OK I have a database set up with three tables but only two I need help with
Invoices
Customers
The fields for both tables are the same
Name -
address
City
State
Zip
|
by: Coll |
last post by:
I have a form with a subform on it. On my main form, you select an
employee id number and the top portion of form fills in with data, and
the bottom portion of the form,which is a subform, lists...
|
by: =?Utf-8?B?SmFtZXMgUGFnZQ==?= |
last post by:
I've a multiview with 3 views. on view 2 the user is presented with a check
box list (items from database) at view 3 the user can review their selections
and, either post to the database or go back...
|
by: Josh Mitchell |
last post by:
Hello,
Could anyone direct me to some sample script that makes a div or text visible only when a webform field in selected. So for example, in the below snippet, I want the text "Your username...
|
by: Agnes |
last post by:
pKcno = myReader.Item("kcno") <--it will return error when the field
"kcno" doesn't exist
any method to check the field exist or not first , if not exist, I want to
skip the above statement.
...
|
by: cj2 |
last post by:
if myodbcreader.hasrows then
if myodbcreader("code").trim = "" or myodbcreader("reas").trim = "aVAL"
then
do something
endif
endif
Is this the appropriate way to test if the code field is...
|
by: DolphinDB |
last post by:
Tired of spending countless mintues downsampling your data? Look no further!
In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: Vimpel783 |
last post by:
Hello!
Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
|
by: jfyes |
last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
|
by: ArrayDB |
last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: Defcon1945 |
last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
|
by: Shællîpôpï 09 |
last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
| |