Visual Basic :: How To Check If Your Next Entry Is Equal To The Previous Entry

[validate] Check DB For Duplicate Entry
Hello all, this is my first post on the forum.

Here is my situation: I have created a MS Access DB, and I need to check the value of a textbox, against the current database entries.

I tried to create a class that would do this, but I must admit my VB skills are very poor, and thus I've decided to figure out how to do this in the event first, then when it works I can have fun making it a class

So here is what I tried, but obviously dosn't work:

cStringCommand = "SELECT drawings.`Job number`, drawings.`Drawing number`, " & _
"From drawings " & _
"WHERE drawings.`Drawing number` = " & drgNumber & _
"AND drawings. 'Job number' = " & JobNumber
cRs.Open cStringCommand, cConn

If cStringCommand = JobNumber Then
MsgBox "No match found"

Else
MsgBox "This drawing is already entered"
End If

Now I know there is a much much better way to code this. Basically, I'm asking, or begging, this code to open a connection, send the results to my cStringCommand variable, then check that variable against the drgNumber and JobNumber vars. I think that what I really want here is a Boolean, if True then.... ELSE..... I know if a crack at this enough I'll get it, I just don't know if I'll live that long I'm not asking for someone to create the code, I just don't really know the best way to tackle this little problem. As I stated, once I get this working, I'll make it into a class (I'd do that right from the get go, but my understanding of classes is shakey). I'm using a book called "Database Access with Visual Basic 6". Great book, I just can't seem to figure out how to validate like this, and I couldn't find it in the book.

How To Check Double Entry In MDB Database
Hi

I am making one program for generating reports by quality control department. I wanted to ask if there is any way to check whether there is double entry. In my program, user will fill all the fields including QCreport number. I need to show one message box when user enters one QCreport number which is already there in database and clicks save button.
Please give some hint.
Thanks in advance

Check If Registry Entry Exists
I have a program that stores values in the Registry. When it starts up, it looks for a value i na certain key. If it doesn't find the correct value, but that key, it executes a set of instructions. If, however, it doesn't find the registry key, it errors and closes the program. How can I make it first look to see if that registry key EXISTS in the first place, then check to see if the value is what its supposed to be? I'm using the following module for VB6.0 which I dug up off of another VB Projects site...but without the documentation I needed:

' Project: General Functions
' Program: Registry Functions
' Author: V.A. van den Braken
' Version: 1.1
' Date: 30-07-1997, 02-08-1997
' Copyright: Copyright © 1997 Deltec BV, Naarden
' Description: Functions to access/modify/write the Windows Registry

How To Check If An Entry Already Exists In Table
HI TO All DEVELOPERS,
    how can i check if the new entry record if already exist to the table here's my CODE but doesn't works everytime when i add new record the message is already exist. which is the record is deff. to the existing record.how can i solved this problem.

Private Sub cmdUpdate_Click()

If mbEditFlag = True Then 'Add new Record
  On Error GoTo UpdateErr
  adoPrimaryRS.UpdateBatch adAffectAll

  If mbAddNewFlag Then
    adoPrimaryRS.MoveLast 'move to the new record
  End If
Else 'edit mode
    Call CheckIfExist     ' this is the sub function to check the record if exist.
    adoPrimaryRS.UpdateBatch adAffectAll

    If bmAddNewFlag Then
       adoPrimaryRS.MoveLast
    End If
End If
  MsgBox ("Record Successfully Update!!!")
  mbEditFlag = False
  mbAddNewFlag = False
  SetButtons True
  mbDataChanged = False

  Exit Sub
  Call disablebuttons
UpdateErr:
  MsgBox Err.Description
End Sub

sub CheckIfexist()
Dim ifound As Boolean: ifound = False

If Not adoPrimaryRS.BOF Then
    adoPrimaryRS.MoveFirst
Do While Not adoPrimaryRS.EOF
    If txtFields(0).Text = adoPrimaryRS.Fields(0) Then
        ifound = True
Exit Do
End If
adoPrimaryRS.MoveNext
Loop
If ifound = True Then
    MsgBox ("Record Already Exist")
    Exit Sub
End If
End If
End Sub

THANK YOU!!!!!!

<Edit> Metallisoft - Please don't use caps in the Subject field </Edit>

Edited by - Metallisoft on 7/29/2004 9:35:56 AM

On Exit Textbox Function. Check Entry??
I'm using MSAccess 2003.

After someone has typed some text into a textbox, I want to use that text to create a directory in that name on my computer.

Obviously there are some characters that you cannot use like / * etc etc.

how can I check that these aren't used and if they are, stop them from exiting the text box until they rectify it?

I was trying this, but after it runs, it still exits the text box. and i'd have to write a line for EVERY character not allowed?!

VB Code:
Private Sub ProjectName_Exit(Cancel As Integer)If InStr(1, ProjectName.Value, "/") > 0 Then MsgBox ("/ character not allowed"): ProjectName.SetFocusIf InStr(1, ProjectName.Value, "") > 0 Then MsgBox (" character not allowed"): ProjectName.SetFocusIf InStr(1, ProjectName.Value, ":") > 0 Then MsgBox (": character not allowed"): ProjectName.SetFocusIf InStr(1, ProjectName.Value, "*") > 0 Then MsgBox ("* character not allowed"): ProjectName.SetFocusIf InStr(1, ProjectName.Value, "?") > 0 Then MsgBox ("? character not allowed"): ProjectName.SetFocusIf InStr(1, ProjectName.Value, "<") > 0 Then MsgBox ("< character not allowed"): ProjectName.SetFocusIf InStr(1, ProjectName.Value, ">") > 0 Then MsgBox ("> character not allowed"): ProjectName.SetFocusIf InStr(1, ProjectName.Value, "|") > 0 Then MsgBox ("| character not allowed"): ProjectName.SetFocusIf InStr(1, ProjectName.Value, ",") > 0 Then MsgBox (", character not allowed"): ProjectName.SetFocus End Sub

Check Array For Duplicate Data Entry
I am very new to visual basic so please bear with me. I believe I am trying to do something very very simple , could anyone show me how to code this problem

I have a 20 element array called Ingrediants

I want the user to be able to enter upto 20 ingrediants into the array but never the same ingrediant twice . The ingrediant must always be different in every element of the array. I cannot have the same ingrediant twice in the array.

So when the user enters data into an input box it will check the array to see if it is there already if not write it into the next free element in the array and so on till the array if full.

Could someone show me the code to allow this as it would be a good help to me as I am stuck.

Thank you for any help given

How To Check If Entry Exists And If It Does Update All Entrys
Hello

i am doing a cw for my college on access and i want to do the following :

check in a table if a value (Integer, non primary key) exists and if it does when saving the form to scroll all numbers(+1) from that number and below .

I did a search and found someone with my "problem" but no answer was given.

Thx in advance

How To Check For Non-existent Field In Address Entry
I have created a VB program that will update a SQL Server database table (using a strored procedure) with values from my MS Exchange GAL. The problem I'm experiencing is the field I'm reading from the GAL doesn't exist in all address entries. When this occurs it still keeps the value from the last address entry for which the field existed. So I'm populating the wrong value in all the subsequent rows until it runs across an address entry with a value for that field. How can I check to see if the current address entry being processed in my "for each" loop doesn't have a particular field? I tried checking with "Is Nothing" but that doesn't seem valid. I am using CDO to access the Exchange fields in each address entry.

Below is a partial code snipet of my procedure:

Thanks!

...CODE SNIPET BEGIN...

Dim objAddressList As MAPI.AddressList ' Global address list
Dim objAddressEntries As MAPI.AddressEntries ' AddressEntries
Dim objAddressEntry As MAPI.AddressEntry ' AddressEntry
Dim objAddressFields As MAPI.Fields ' Fields collection
Dim obj_HM_NUMBER As Object

Const CdoPR_HOME_TELEPHONE_NUMBER = &H3A09001E

Set objSession = CDOClass.Session

'Get the Global Address List
Set objAddressList = objSession.GetAddressList(0) 'GAL

'Set our variable to the collection of AddressEntries
Set objAddressEntries = objAddressList.AddressEntries

For Each objAddressEntry In objAddressEntries
' Get address entry fields
Set objAddressFields = objAddressEntry.Fields

Set obj_HM_NUMBER = objAddressFields.item(CdoPR_HOME_TELEPHONE_NUMBER)

With ComProcedure
If Not obj_HM_NUMBER Is Nothing Then
.Parameters("@HOME_TELEPHONE_NUMBER").Value = obj_HM_NUMBER.Value
Else
.Parameters("@HOME_TELEPHONE_NUMBER").Value = ""
End If

.Execute
End With
Set objAddressFields = Nothing
Next objAddressEntry
... CODE SNIPET END ...

Revealed: How To Check If A Combo Box Input Is A New Entry Or If It Already Exists
Ok ive just written this code and thought how useful it is. It basically checks if the cbombo box has already had the data entered, if it has nothing happens but if it has not it adds it. This is useful as a URL bar for a Web Browser.

So if the user types data into the combo box and presses enter the data will be added to the list if it isnt already in there

Vairiables used:
[vbtemp]
Dim temp as Integer
dim blnExist as Boolean
[/vbtemp]

Code:

[vbtemp]
Private Sub combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ' If user presses Enter Key
temp = 1 ' Set scan to start at list 1
blnExist = False ' Set the vairiable up incase last return was true
Do While temp < combo1.ListCount' do the loop while the list item being scanned actually exists
If combo1.List(temp) = combo1.Text Then ' If the item exists
blnExist = True ' Set the vairiable to true
end if
temp = temp + 1 ' scan next
Loop
If blnExist = False Then ' If teh entry doesnt exist
combo1.AddItem (combo1.Text) ' Add it to the list
End If
End If
End Sub
[/vbtemp]

Hope that helps someone

How Do I Check If The User Selected A Valid Entry For A Datacombo Box?
For a normal combo box, I just do a check if the ListIndex = -1, but what about DataCombo box? The DCB does not have a list index property, so what should I use? I can't check for BoundText = "" either, because the user can type gibberish into the DCB and the check won't pick it up.

Thanks.

Edited by - Chewbacca789 on 4/23/2004 2:28:10 AM

Determining If Previous Row Is Equal To Current Row In A Recordset?
hi, i'm just wonder if there is a 'quick and easy way' to determine if previous row is equal to current row in a recordset?
I will not know the field number at run time, so if i was going to just make some temporary 'compare' values then i'd have to redetermine an array every loop of the recordset.

thanks

Reg. Entry
I have a form with a combo box. I would like to give the user the oppertunity to add and remove items to the list . I already have a setting for another item being saved to the Registry but I'm not sure how to code it to a combo box. This is what I have for one of other settings, could someone help me modify this to the combo box.

SaveSetting "Max Workout Program", "Startup", "Intro", CStr(mnuIntro.Checked)

Dim intLastEntry As Integer
mnuIntro.Checked = CBool(GetSetting("Max Workout Program", "Startup", "Intro"))

My combo box is called ExerciseInput.

DSN Entry
Hi,

How would I create a DSN entry programmatically.

I know the SQL Server name, but I have to be able to do it programmatically.

thanks,

Last ADO Entry
If I don't have any specific field that I can search for, how can select the last entry from a database table using ado.

Thanks in advance.

COLORMAP With More Than One Entry (GDI+)
Is it possible to have either an array of COLORMAPs or a COLORMAP with an array of oldcolor-newcolor enties? I need to replace serveral colors. This work fine with subsequent calls to the ReplaceColor Function, but is surely not the right way to do it...

Code snip (is a modified function of the "MakeTransparent" funktion in cBitmap from OnErrOr)

Code:
Public Function ReplaceColor(ByVal OldColor As Long, ByVal NewColor As Long) As Long
Dim bmp As cBitmap
Dim gfx As cGraphics
Set bmp = New cBitmap
Set gfx = New cGraphics
Dim rc As RECT
Dim lAttrib As Long
Dim ReMapTab As COLORMAP
Dim lTmpHandle As Long

ReMapTab.NewColor = NewColor
ReMapTab.OldColor = OldColor

If bmp.CreateFromScan0(m_lWidth, m_lHeight, 0, PixelFormat32bppARGB, 0) = Ok Then
If gfx.GetGraphicsContext(bmp.Handle) = Ok Then
If gfx.Clear = Ok Then
rc.Right = m_lWidth
rc.Bottom = m_lHeight

If GdipCreateImageAttributes(lAttrib) = Ok Then
If GdipSetImageAttributesRemapTable(lAttrib, ColorAdjustTypeDefault, 1, 2, ReMapTab) = Ok Then
If gfx.DrawImageRectRectIAttr(bitmap, 0, 0, m_lWidth, m_lHeight, 0, 0, m_lWidth, m_lHeight, lAttrib) = Ok Then
...
I have tried with:
Dim ReMapTab(0 to 10) As COLORMAP
but this gives me a type mismatch error?!

Datagrid Entry
hi all,
i am a newbie .I am developing an application which needs to enter data directly into the grid .I am fed up of doing lengthy coding. So please suggest me any alternative for it or any thirdparty control(free) that offer this facilities( to directly enter data into the grid).
i hope this forum has some solution to my problem.
ThankYou in advance !

Set An Entry In Thr Regsistry
Hi, hopefully someone will be able to assist. In the registry on a users logon I want to be able to set the current printer=to a speicifc value.

I can get a list of the printers installed on the system, but I'm using Dymo printers for various label types, what I want to do is set the CurrentPrinter value=to the printer I want to use.

In registry the value I need to change is under the following structure

HKEY_CURRENT_USER
Software
DYMO
LabelWriter
Settings
Current Printer

I need the command to set the value of current printer in the sturcture provided above.

Can anyonehelp, thanks

New Registry Entry
How do i create a new registry entry with my program?

Entry Level Job Available
I don't know if this is legal to do this--if this thread doesn't belong here, let me know and I'll delete it.

My company is looking for another programmer. Preferrably one that has experience with DirectX or OpenGL, and knows their way around VB/C++.

Take a look at the job posting:

http://www.jobtarget.com/candidates/...d&t emp_id=16

DLL Entry Point
I'm very very new to dlls. Getting an entry point error. Any ideas?

I'm using excel

Validation On Entry Of [hh]:mm
Hi there. I got an userform containing two fields namely "time-off from"(textbox1) and "to"(textbox2). The format of both field is "hh:mm" it is expected user must key in the value in the required format. I tried the following vba codes but was unable to achieve the expected result.

Code:
timeoff_hr = textbox1.value - textbox2.value 'the earned time-off hours
if textbox1.value <> format(textbox1.value,"hh:mm") or textbox1.value <> format(textbox1.value,"hh:mm") then
msgbox "Invalid format of time-off hours claimed! Press 'OK' to try again."
else
range("a1") = timeoff_hr
endif

Any advice please.
Cheers.

Need Help! Invoicing Entry
I am newbie in VB, I am task to create a simple invoicing program that the fields are:

date, customer name, item, quantity, UP, total

invoice number - should be unique to each other.

The program will able to generate reports like:

Daily Sales Report (Quantity Item Sold)

I need any leads or link how to start.

Looking forward to hear from you guru.

John

How Do I Continue Entry
Hi
I want to enter data to an excell sheet. I have made the connectivity and used datacontrol to do so. But my entry spreads through 6 pages. That is i have to enter data for six pages one after the other. Should I use update method at the end, in the last form, or as I goto the next page. And is there any new method for adding data to an excell sheet, because it is giving errors, asking for an addnew method.

Thanx DHI

Error With Entry
Hello,

I am working on this program and I have it working until I messed up an entry. What I have it do is store values based on what the user enters and then refreshes a menu on another form to load it with added servers (kind of like I. Explorer's favorites list). I have provided a link to a screenshot of this type mismatch error. If you know how I can change the value, please inform me because the program halts since it checks the values when it starts.

http://www.fragcorner.com/error.gif

Also, if you want to take a look at the source, ask me and I will PM you the link to it so you can look at it better.

Combo Box Entry
I have a combo box that is populated when the form loads, or it
can be repopulated with a command button. The items that are
being inserted into the combo box or being retrieved from a text file.
When the combo box is populated, you must use the drop down arrow
in order to see the contents. Is it possible to fill in the top most line
with the first item to be entered? Then to see the rest of the items
use the drop down arrow?
This way the user knows that the combo box has been populated.

Any help would be greatly appreciated.

INI Entry Exist ?
****, it's a long time since I've posted on here, anyways...

I have alot of info stored in a .ini file.
On my form I have a textbox and a command button.
Quite simply, when the command button is pressed it places a new entry into the .ini file in the form of...

Code:
INI_write Text1.Text, Text1.Text & "Information", "Ref", App.Path & "Reference.ini"
What I would like though, is that if I try to enter a new piece of information into the .ini... that already exists, for it to inform me of this in a label or whatever.

All I need to know is how to check the .ini file to see if
Text1.text & "Information"
already exists.

Any ideas ?

Last Entry In The Array
I'm trying to stop at the last entry in the array, but I don't know how to deturmine when my variable reaches that number.

I have a string breaking down into an array using split() so that allentries becomes an array with X number of entries, depending on how often "&" occurs.

allentries = split(wholestr, "&")

. . .

showentry = showentry + 1
textbox1.text = allentries(showentry)

how do I get my variable showentry to stop when I have reached the last entry in allentries?

I should use something like

If showentry = allentries(last) then
textbox1.text = "no more entries"

but how do I deturmine "last"?

DLL ENTRY POINT
How can i dynamically call a J++ dll from vb6 ? Must somehow set an entry point without reference. PLEASE HELP ME !!!!!!!!!!!

Delete UDT Entry
How do you delete an entry from a UDT Array?

Regards

[img]images/icons/smile.gif[/img]

Validating Value Entry
How do I ensure that any value has been entered in a textbox when user initiates click command? I'm guessing "IsEmpty" or "IsMissing" but don't know syntax. Code sample would be great and possibly a layman's explanation. Thanks in advance for the help.

matt

How To: Data Entry From
Hi folks,

First post (of many probably)

Some background: 20 years of UNIX/C, only 4 months of OOP

I'm using VS.NET 7, VB windows form application

What would be the best approach for building a data entry screen for entering invoice details?

Assuming a minimum of 2 columns: product & description

Assuming unlimited rows

On each row one should be able to pick a product (combo box, drop down list or something of that nature), have it's description show up in the description column on the same row.

Is a Datagrid apropos?

For what it's worth, my data comes from text files, read in via fileget, which can populate a simple array or any other data structure that is appropriate for the task.

Some guide lines / suggestions would be appreciated !

Thanks

Marc

Verify New Entry
Hi Folks.

I wrote a program which is connected to a access database. It runs in a network-enviroment. Sometimes, when one of the users uses the program to add data to the db, the data is not there, so we have to add the data again. Is there any way to verify within vb after a SQL-add or change, if the data is really in the database?

thank you.

Select First Entry Only
I am quering a database with Crystal reports 9.

I have a reference field which occurs many times, all with different dates.

eg

Ref date
1111 01/02/04 - want this one!!!!
1111 02/02/04
1111 04/04/04

What I would like to be able to do is select the instance it first appears ie select the date and corresponding information in that row for that reference field on the first date it appears.

Can anyone help me with a statement?

Entry Point In DLL
Hi all,
Does a Dll a requires an Entry point ?. Or We can Build dll without EntryPoint

Thanks in Advance
Dana

Registry Entry
hi.this is my 1st post

i wana ask how to add a registry entry using VB6 and how to delete an entry... do reply plz...

How Can I Take Date As An Entry?
Can anyone tell me how i can take DATE as an entry from a user in a text field?

Thanks

Date Entry
i want a control like a dtpicker, but the format is " - - " with blank date and in format dd-mm-yyyy.

MySql Last Entry
Hi how could i get the last entry from a mysql database i dont know if this helps but i have a field called HostId which is the number of the host and each time a host it added it goes up one.

Data Entry
I am looking to have a user enter alot of data onto a form. Is there a way to create a table that when the user enters data into it, it updates a tablein the database automatically.

Help With Scrollbars And Seeing Last Entry.
Im having a small problem with keeping the scrollbars to stay down as more text is added. As in, you click a certain button, text is added to the text box, and as you continue adding text the scrollbars dont go down so you can see the last text entered. I have attached an example of my problem. Any help would be GREATLY appreciated.

Registry Entry
i want to enter some particular registry values
how to do dat

VB6 And SZ Registry Entry
Hello everybody

I think I have a rather trivial problem. Unfortunately, I have not been able to come up with a solution. I am trying to create a couple of string (zero terminated) key entries. The string to be entered in the registry comes from a text box on a form (txtServerIP).
When I write the value of the text box to the registry, the value is written as a double word whereas I would like to have it stored as string.
The text box is supposed to store an IP address as a string. Could the periods of an IP address cause a problem?

The code is as shown below :

Private Sub OKButton_Click()

Dim strServerIP As String

strServerIP = txtServerIP.Text

' Check whether key 'SOFTWARELEAP_SOFTWARE exists. If not then create key
' 'SOFTWARELEAP_SOFTWAREEPEMBATHS' and set key values. Otherwise just
' set key values.

If RegistryModule.regDoes_Key_Exist(HKEY_LOCAL_MACHINE, "SOFTWARELEAP_SOFTWARE") Then
RegistryModule.regCreate_Key_Value HKEY_LOCAL_MACHINE, "SOFTWARELEAP_SOFTWAREEPEMBATHS", "MY_SQL_SERVER_IP", strServerIP
RegistryModule.regCreate_Key_Value HKEY_LOCAL_MACHINE, "SOFTWARELEAP_SOFTWAREEPEMBATHS", "DATABASE_NAME", "biotech"
Else
RegistryModule.regCreate_A_Key HKEY_LOCAL_MACHINE, "SOFTWARELEAP_SOFTWAREEPEMBATHS"
RegistryModule.regCreate_Key_Value HKEY_LOCAL_MACHINE, "SOFTWARELEAP_SOFTWAREEPEMBATHS", "MY_SQL_SERVER_IP", strServerIP
RegistryModule.regCreate_Key_Value HKEY_LOCAL_MACHINE, "SOFTWARELEAP_SOFTWAREEPEMBATHS", "DATABASE_NAME", "biotech"
'RegistryModule.regCreate_A_Key HKEY_LOCAL_MACHINE, "SOFTWARELEAP_SOFTWAREEPEMBATHSMY_SQL_SERVER_IP"
'RegistryModule.regCreate_A_Key HKEY_LOCAL_MACHINE, "SOFTWARELEAP_SOFTWAREEPEMBATHSDATABASE_NAME"
End If

Any suggestions?

thx, in advance

George Papadopoulos