Variavel e Texto

[NS-5 Without the 3 Law 0]

Eu quero fazer o seguinte

 

Tenho um banco de dados que contem os estados brasileiros.

 

Gostaria de definir que SP = São Paulo

assim eu não preciso escrever São Paulo e sim SP apenas.

 

E quando eu digitasse na text ele já saberia que SP é São Paulo e procuraria no banco São Paulo ao invez de SP

 

Alguem sabe como fazer isso?

ou tem ideia sei la?

[mibnetweb 0]

Para isso você teria que criar uma tabela do tipo "DE PARA", pesquisar nesta tabela e achar seu correspondente na tabela principal.

 

Agora, no código abaixo tem uma solução interessante:

 

Option Explicit
Private Const CB_FINDSTRING As Long = &H14C
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
																		ByVal wMsg As Long, _
																		ByVal wParam As Long, _
																		lParam As Any) As Long
Public Function Combo_AutoCompletar(xCombo As ComboBox, ByVal xKeyAscii As Long, Optional ByVal xUpperCase As Boolean = True) As Long
	Dim lngFind As Long, intPos As Long, intLength As Long, tStr As String
	With xCombo
		If xKeyAscii = 8 Then
			If .SelStart = 0 Then Exit Function
			
			.SelStart = .SelStart - 1
			.SelLength = Len(.Text)
			.SelText = vbNullString
		Else
			intPos = .SelStart
			tStr = .Text
			.SelText = (Chr$(xKeyAscii))
'			.SelText = IIf(xUpperCase, _
'						   UCase$(Chr$(xKeyAscii)), _
'						   LCase$(Chr$(xKeyAscii)))
		End If
		lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text)
		If lngFind = -1 Then
			.Text = tStr
			.SelStart = intPos
			.SelLength = (Len(.Text) - intPos)
			Combo_AutoCompletar = xKeyAscii
		Else
			intPos = .SelStart
			intLength = Len(.List(lngFind)) - Len(.Text)
			.SelText = .SelText & Right$(.List(lngFind), intLength)
			.SelStart = intPos
			.SelLength = intLength
		End If
	End With
End Function

 

Lançar na Combo, evento Keypress

KeyAscii = Combo_AutoCompletar(combo1, KeyAscii)

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif