Porém estive analisando, e achei que seria muita detalhe para fazer e resolvi deixar mais simples, sem usar o banco de dados, apenas o "InStr" e ficou assim:
Código: Selecionar todos
Private Sub CommandButton2_Click()
Dim var1, var2, var3, var4, va5, var6
If InStr(1, frmProduto.cboProduto.Text, "Calça", 1) > 0 Then
var1 = "01"
ElseIf InStr(1, frmProduto.cboProduto.Text, "Camisa polo", 1) > 0 Then
var1 = "02"
ElseIf InStr(1, frmProduto.cboProduto.Text, "Camisa social", 1) > 0 Then
var1 = "03"
ElseIf InStr(1, frmProduto.cboProduto.Text, "Camiseta", 1) > 0 Then
var1 = "04"
ElseIf InStr(1, frmProduto.cboProduto.Text, "Colete", 1) > 0 Then
var1 = "05"
ElseIf InStr(1, frmProduto.cboProduto.Text, "Jaleco", 1) > 0 Then
var1 = "06"
ElseIf InStr(1, frmProduto.cboProduto.Text, "Jaqueta", 1) > 0 Then
var1 = "07"
ElseIf InStr(1, frmProduto.cboProduto.Text, "Abrigo", 1) > 0 Then
var1 = "08"
End If
If InStr(1, frmProduto.cboProduto.Text, "manga CURTA", 1) > 0 Then
var2 = "01"
ElseIf InStr(1, frmProduto.cboProduto.Text, "manga LONGA", 1) > 0 Then
var2 = "02"
ElseIf InStr(1, frmProduto.cboProduto.Text, "manga 3/4", 1) > 0 Then
var2 = "03"
ElseIf InStr(1, frmProduto.cboProduto.Text, "manga 7/8", 1) > 0 Then
var2 = "04"
ElseIf InStr(1, frmProduto.cboProduto.Text, "abrigo", 1) > 0 Then
var2 = "05"
ElseIf InStr(1, frmProduto.cboProduto.Text, "matelado", 1) > 0 Then
var2 = "06"
ElseIf InStr(1, frmProduto.cboProduto.Text, "matelada", 1) > 0 Then
var2 = "06"
ElseIf InStr(1, frmProduto.cboProduto.Text, "acolchoado", 1) > 0 Then
var2 = "07"
ElseIf InStr(1, frmProduto.cboProduto.Text, "acolchoada", 1) > 0 Then
var2 = "07"
ElseIf InStr(1, frmProduto.cboProduto.Text, "", 1) > 0 Then
var2 = "00"
End If
If InStr(1, frmProduto.cboProduto.Text, "FEMININO", 1) > 0 Then
var3 = "01"
ElseIf InStr(1, frmProduto.cboProduto.Text, "FEMININA", 1) > 0 Then
var3 = "01"
ElseIf InStr(1, frmProduto.cboProduto.Text, "MASCULINO", 1) > 0 Then
var3 = "02"
ElseIf InStr(1, frmProduto.cboProduto.Text, "MASCULINA", 1) > 0 Then
var3 = "02"
ElseIf InStr(1, frmProduto.cboProduto.Text, "", 1) > 0 Then
var3 = "00"
End If
If InStr(1, frmProduto.cboProduto.Text, "manga removível", 1) > 0 Then
var4 = "01"
ElseIf InStr(1, frmProduto.cboProduto.Text, "", 1) > 0 Then
var4 = "00"
End If
If InStr(1, frmProduto.cboTecido.Text, "100%co", 1) > 0 Then
var5 = "001"
ElseIf InStr(1, frmProduto.cboTecido.Text, "50%pes 50%co", 1) > 0 Then
var5 = "002"
ElseIf InStr(1, frmProduto.cboTecido.Text, "50%co 50%pes", 1) > 0 Then
var5 = "002"
ElseIf InStr(1, frmProduto.cboTecido.Text, "52%pes 48%co", 1) > 0 Then
var5 = "002"
ElseIf InStr(1, frmProduto.cboTecido.Text, "48%co 52%pes", 1) > 0 Then
var5 = "002"
ElseIf InStr(1, frmProduto.cboTecido.Text, "56%co 44%pes", 1) > 0 Then
var5 = "002"
ElseIf InStr(1, frmProduto.cboTecido.Text, "44%pes 56%co", 1) > 0 Then
var5 = "002"
ElseIf InStr(1, frmProduto.cboTecido.Text, "67%co 33%pes", 1) > 0 Then
var5 = "003"
ElseIf InStr(1, frmProduto.cboTecido.Text, "33%pes 67%co", 1) > 0 Then
var5 = "003"
ElseIf InStr(1, frmProduto.cboTecido.Text, "67%pes 33%co", 1) > 0 Then
var5 = "004"
ElseIf InStr(1, frmProduto.cboTecido.Text, "33%co 67%pes", 1) > 0 Then
var5 = "004"
ElseIf InStr(1, frmProduto.cboTecido.Text, "67%pes 33%cv", 1) > 0 Then
var5 = "005"
ElseIf InStr(1, frmProduto.cboTecido.Text, "33%cv 67%pes", 1) > 0 Then
var5 = "005"
ElseIf InStr(1, frmProduto.cboTecido.Text, "68%pes 27%co 5%pue", 1) > 0 Then
var5 = "006"
ElseIf InStr(1, frmProduto.cboTecido.Text, "27%co 68%pes 5%pue", 1) > 0 Then
var5 = "006"
ElseIf InStr(1, frmProduto.cboTecido.Text, "63%co 34%pes 3%pue", 1) > 0 Then
var5 = "007"
ElseIf InStr(1, frmProduto.cboTecido.Text, "34%pes 63%co 3%pue", 1) > 0 Then
var5 = "007"
ElseIf InStr(1, frmProduto.cboTecido.Text, "100%pes", 1) > 0 Then
var5 = "008"
ElseIf InStr(1, frmProduto.cboTecido.Text, "73%co 27%pes", 1) > 0 Then
var5 = "009"
ElseIf InStr(1, frmProduto.cboTecido.Text, "27%pes 73%co", 1) > 0 Then
var5 = "009"
ElseIf InStr(1, frmProduto.cboTecido.Text, "100%pa", 1) > 0 Then
var5 = "010"
ElseIf InStr(1, frmProduto.cboTecido.Text, "67%co 30%pes 3%pue", 1) > 0 Then
var5 = "011"
ElseIf InStr(1, frmProduto.cboTecido.Text, "30%pes 67%co 3%pue", 1) > 0 Then
var5 = "011"
ElseIf InStr(1, frmProduto.cboTecido.Text, "65%co 32%pes 3%pue", 1) > 0 Then
var5 = "011"
ElseIf InStr(1, frmProduto.cboTecido.Text, "32%pes 65%co 3%pue", 1) > 0 Then
var5 = "011"
ElseIf InStr(1, frmProduto.cboTecido.Text, "83%co 17%pes", 1) > 0 Then
var5 = "012"
ElseIf InStr(1, frmProduto.cboTecido.Text, "17%pes 83%co", 1) > 0 Then
var5 = "012"
ElseIf InStr(1, frmProduto.cboTecido.Text, "66%co 31%pa 3%pue", 1) > 0 Then
var5 = "013"
ElseIf InStr(1, frmProduto.cboTecido.Text, "31%pa 66%co 3%pue", 1) > 0 Then
var5 = "013"
End If
var6 = "0"
Me.txtCod1.Value = var1 & var2 & var3 & var4 & var5 & var6
End Sub
O unico detalhe que talvez eu sinta que precise do banco de dados é se for adicionado um novo tipo de produto ou uma nova variavel, porem acho que por enquanto assim esta bom! O que acham?